Lines 683-695
sub handle_checkin {
Link Here
|
683 |
$resp .= add_field( FID_PATRON_ID, $patron->id, $server ); |
683 |
$resp .= add_field( FID_PATRON_ID, $patron->id, $server ); |
684 |
} |
684 |
} |
685 |
if ($item) { |
685 |
if ($item) { |
686 |
$resp .= maybe_add( FID_MEDIA_TYPE, $item->sip_media_type, $server ); |
686 |
$resp .= maybe_add( FID_MEDIA_TYPE, $item->sip_media_type, $server ); |
687 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
687 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
688 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->collection_code, $server ); |
688 |
$resp .= maybe_add( FID_CALL_NUMBER, $item->call_number, $server ); |
689 |
$resp .= maybe_add( FID_CALL_NUMBER, $item->call_number, $server ); |
689 |
$resp .= maybe_add( FID_HOLD_PATRON_ID, $item->hold_patron_bcode, $server ); |
690 |
$resp .= maybe_add( FID_HOLD_PATRON_ID, $item->hold_patron_bcode, $server ); |
690 |
$resp .= add_field( FID_DESTINATION_LOCATION, $item->destination_loc, $server ) if ( $item->destination_loc || $server->{account}->{ct_always_send} ); |
691 |
$resp .= add_field( FID_DESTINATION_LOCATION, $item->destination_loc, $server ) if ( $item->destination_loc || $server->{account}->{ct_always_send} ); |
691 |
$resp .= maybe_add( FID_HOLD_PATRON_NAME, $item->hold_patron_name( $server->{account}->{da_field_template} ), $server ); |
692 |
$resp .= maybe_add( FID_HOLD_PATRON_NAME, $item->hold_patron_name( $server->{account}->{da_field_template} ), $server ); |
692 |
|
|
|
693 |
if ( my $CR = $server->{account}->{cr_item_field} ) { |
694 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->{$CR}, $server ); |
695 |
} else { |
696 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->collection_code, $server ); |
697 |
} |
693 |
|
698 |
|
694 |
if ( $status->hold and $status->hold->{branchcode} ne $item->destination_loc ) { |
699 |
if ( $status->hold and $status->hold->{branchcode} ne $item->destination_loc ) { |
695 |
warn 'SIP hold mismatch: $status->hold->{branchcode}=' . $status->hold->{branchcode} . '; $item->destination_loc=' . $item->destination_loc; |
700 |
warn 'SIP hold mismatch: $status->hold->{branchcode}=' . $status->hold->{branchcode} . '; $item->destination_loc=' . $item->destination_loc; |
Lines 1200-1205
sub handle_item_information {
Link Here
|
1200 |
$resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location, $server ); |
1205 |
$resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location, $server ); |
1201 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
1206 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
1202 |
|
1207 |
|
|
|
1208 |
if ( my $CR = $server->{account}->{cr_item_field} ) { |
1209 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->$CR, $server ); |
1210 |
} else { |
1211 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->collection_code, $server ); |
1212 |
} |
1213 |
|
1203 |
if ( ( $i = $item->fee ) != 0 ) { |
1214 |
if ( ( $i = $item->fee ) != 0 ) { |
1204 |
$resp .= add_field( FID_CURRENCY, $item->fee_currency, $server ); |
1215 |
$resp .= add_field( FID_CURRENCY, $item->fee_currency, $server ); |
1205 |
$resp .= add_field( FID_FEE_AMT, $i, $server ); |
1216 |
$resp .= add_field( FID_FEE_AMT, $i, $server ); |