2 # An object to handle checkin status
5 package C4::SIP::ILS::Transaction::Checkin;
10 # use POSIX qw(strftime);
12 use C4::SIP::ILS::Transaction;
16 use C4::Items qw( ModItemTransfer );
17 use C4::Reserves qw( ModReserveAffect );
18 use Koha::DateUtils qw( dt_from_string );
20 use parent qw(C4::SIP::ILS::Transaction);
25 collection_code => undef,
28 destination_loc => undef,
29 alert_type => undef, # 00,01,02,03,04 or 99
30 hold_patron_id => undef,
31 hold_patron_name => "",
37 my $self = $class->SUPER::new(); # start with an ILS::Transaction object
39 foreach (keys %fields) {
40 $self->{_permitted}->{$_} = $fields{$_}; # overlaying _permitted
43 @{$self}{keys %fields} = values %fields; # copying defaults into object
44 return bless $self, $class;
50 my $return_date = shift;
51 my $cv_triggers_alert = shift;
52 my $checked_in_ok = shift;
57 my $barcode = $self->{item}->id;
59 $return_date = substr( $return_date, 0, 4 )
61 . substr( $return_date, 4, 2 )
63 . substr( $return_date, 6, 2 )
65 . substr( $return_date, 12, 2 )
67 . substr( $return_date, 14, 2 )
69 . substr( $return_date, 16, 2 );
71 $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";
72 my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, dt_from_string($return_date));
74 if ( $checked_in_ok ) {
75 delete $messages->{NotIssued};
76 delete $messages->{LocalUse};
77 $return = 1 unless keys %$messages;
80 # biblionumber, biblioitemnumber, itemnumber
81 # borrowernumber, reservedate, branchcode
82 # cancellationdate, found, reservenotes, priority, timestamp
83 if( $messages->{DataCorrupted} ) {
84 $self->alert_type('98');
86 if ($messages->{BadBarcode}) {
87 $self->alert_type('99');
89 if ($messages->{withdrawn}) {
90 $self->alert_type('99');
92 if ($messages->{WasLost}) {
93 $self->alert_type('99') if C4::Context->preference("BlockReturnOfLostItems");
95 if ($messages->{Wrongbranch}) {
96 $self->{item}->destination_loc($messages->{Wrongbranch}->{Rightbranch});
97 $self->alert_type('04'); # send to other branch
99 if ($messages->{WrongTransfer}) {
100 $self->{item}->destination_loc($messages->{WrongTransfer});
101 $self->alert_type('04'); # send to other branch
103 if ($messages->{NeedsTransfer}) {
104 $self->{item}->destination_loc($messages->{NeedsTransfer});
105 $self->alert_type('04'); # send to other branch
107 if ($messages->{WasTransfered}) { # set into transit so tell unit
108 $self->{item}->destination_loc($issue->item->homebranch);
109 $self->alert_type('04'); # send to other branch
111 if ($messages->{ResFound}) {
112 $self->hold($messages->{ResFound});
113 if ($branch eq $messages->{ResFound}->{branchcode}) {
114 $self->alert_type('01');
115 ModReserveAffect( $messages->{ResFound}->{itemnumber},
116 $messages->{ResFound}->{borrowernumber}, 0, $messages->{ResFound}->{reserve_id});
119 $self->alert_type('02');
120 ModReserveAffect( $messages->{ResFound}->{itemnumber},
121 $messages->{ResFound}->{borrowernumber}, 1, $messages->{ResFound}->{reserve_id});
122 ModItemTransfer( $messages->{ResFound}->{itemnumber},
124 $messages->{ResFound}->{branchcode}
128 $self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} );
129 $self->{item}->destination_loc( $messages->{ResFound}->{branchcode} );
131 # ignoring messages: NotIssued, WasTransfered
133 if ($cv_triggers_alert) {
134 $self->alert( defined $self->alert_type ); # Overwrites existing alert value, should set to 0 if there is no alert type
137 $self->alert( !$return || defined $self->alert_type );
142 return { messages => $messages };
147 unless ($self->{item}) {
148 warn "resensitize(): no item found in object to resensitize";
151 return !$self->{item}->magnetic_media;
156 unless ($self->{patron}) {
157 warn "patron_id(): no patron found in object";
160 return $self->{patron}->id;