C4/SIP/ILS/Transaction/Checkin.pm

   1 #
   2 # An object to handle checkin status
   3 #
   4
   5 package ILS::Transaction::Checkin;
   6
   7 use warnings;
   8 use strict;
   9
  10 use POSIX qw(strftime);
  11
  12 use ILS;
  13 use ILS::Transaction;
  14
  15 our @ISA = qw(ILS::Transaction);
  16
  17 my %fields = (
  18               magnetic => 0,
  19               sort_bin => undef,
  20               );
  21
  22 sub new {
  23     my $class = shift;;
  24     my $self = $class->SUPER::new();
  25     my $element;
  26
  27     foreach $element (keys %fields) {
  28         $self->{_permitted}->{$element} = $fields{$element};
  29     }
  30
  31     @{$self}{keys %fields} = values %fields;
  32
  33     return bless $self, $class;
  34 }
  35
  36 sub resensitize {
  37     my $self = shift;
  38
  39     return !$self->{item}->magnetic;
  40 }
  41
  42 1;