|
Lines 217-240
sub checkin {
Link Here
|
| 217 |
return $circ; |
217 |
return $circ; |
| 218 |
} |
218 |
} |
| 219 |
|
219 |
|
| 220 |
if( !$circ->ok && $circ->alert_type && $circ->alert_type == 98 ) { # data corruption |
220 |
if ( !$circ->ok && $circ->alert_type && $circ->alert_type == 98 ) { # data corruption |
| 221 |
$circ->screen_msg("Checkin failed: data problem"); |
221 |
$circ->screen_msg("Checkin failed: data problem"); |
| 222 |
syslog( "LOG_WARNING", "Problem with issue_id in issues and old_issues; check the about page" ); |
222 |
syslog( "LOG_WARNING", "Problem with issue_id in issues and old_issues; check the about page" ); |
| 223 |
} elsif( $data->{messages}->{withdrawn} && !$circ->ok ) { |
223 |
} elsif ( $data->{messages}->{withdrawn} && !$circ->ok ) { |
| 224 |
$circ->screen_msg("Item withdrawn, return not allowed"); |
224 |
$circ->screen_msg("Item withdrawn, return not allowed"); |
| 225 |
syslog("LOG_DEBUG", "C4::SIP::ILS::Checkin - item withdrawn"); |
225 |
syslog("LOG_DEBUG", "C4::SIP::ILS::Checkin - item withdrawn"); |
| 226 |
} elsif( $data->{messages}->{WasLost} && !$circ->ok ) { |
226 |
} elsif ( $data->{messages}->{WasLost} && !$circ->ok ) { |
| 227 |
$circ->screen_msg("Item lost, return not allowed"); |
227 |
$circ->screen_msg("Item lost, return not allowed"); |
| 228 |
syslog("LOG_DEBUG", "C4::SIP::ILS::Checkin - item lost"); |
228 |
syslog("LOG_DEBUG", "C4::SIP::ILS::Checkin - item lost"); |
| 229 |
} elsif( !$item->{patron} ) { |
229 |
} elsif ( !$item->{patron} ) { |
| 230 |
if( $checked_in_ok ) { # Mark checkin ok although book not checked out |
230 |
if ( $checked_in_ok ) { # Mark checkin ok although book not checked out |
| 231 |
$circ->ok( 1 ); |
231 |
$circ->ok( 1 ); |
| 232 |
syslog("LOG_DEBUG", "C4::SIP::ILS::Checkin - using checked_in_ok"); |
232 |
syslog("LOG_DEBUG", "C4::SIP::ILS::Checkin - using checked_in_ok"); |
| 233 |
} else { |
233 |
} else { |
| 234 |
$circ->screen_msg("Item not checked out"); |
234 |
$circ->screen_msg("Item not checked out"); |
| 235 |
syslog("LOG_DEBUG", "C4::SIP::ILS::Checkin - item not checked out"); |
235 |
syslog("LOG_DEBUG", "C4::SIP::ILS::Checkin - item not checked out"); |
| 236 |
} |
236 |
} |
| 237 |
} elsif( $circ->ok ) { |
237 |
} elsif ( $circ->ok ) { |
| 238 |
$circ->patron( $patron = C4::SIP::ILS::Patron->new( $item->{patron} ) ); |
238 |
$circ->patron( $patron = C4::SIP::ILS::Patron->new( $item->{patron} ) ); |
| 239 |
delete $item->{patron}; |
239 |
delete $item->{patron}; |
| 240 |
delete $item->{due_date}; |
240 |
delete $item->{due_date}; |
| 241 |
- |
|
|