Lines 682-694
sub handle_checkin {
Link Here
|
682 |
$resp .= add_field( FID_PATRON_ID, $patron->id, $server ); |
682 |
$resp .= add_field( FID_PATRON_ID, $patron->id, $server ); |
683 |
} |
683 |
} |
684 |
if ($item) { |
684 |
if ($item) { |
685 |
$resp .= maybe_add( FID_MEDIA_TYPE, $item->sip_media_type, $server ); |
685 |
$resp .= maybe_add( FID_MEDIA_TYPE, $item->sip_media_type, $server ); |
686 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
686 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
687 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->collection_code, $server ); |
687 |
$resp .= maybe_add( FID_CALL_NUMBER, $item->call_number, $server ); |
688 |
$resp .= maybe_add( FID_CALL_NUMBER, $item->call_number, $server ); |
688 |
$resp .= maybe_add( FID_HOLD_PATRON_ID, $item->hold_patron_bcode, $server ); |
689 |
$resp .= maybe_add( FID_HOLD_PATRON_ID, $item->hold_patron_bcode, $server ); |
689 |
$resp .= add_field( FID_DESTINATION_LOCATION, $item->destination_loc, $server ) if ( $item->destination_loc || $server->{account}->{ct_always_send} ); |
690 |
$resp .= add_field( FID_DESTINATION_LOCATION, $item->destination_loc, $server ) if ( $item->destination_loc || $server->{account}->{ct_always_send} ); |
690 |
$resp .= maybe_add( FID_HOLD_PATRON_NAME, $item->hold_patron_name( $server->{account}->{da_field_template} ), $server ); |
691 |
$resp .= maybe_add( FID_HOLD_PATRON_NAME, $item->hold_patron_name( $server->{account}->{da_field_template} ), $server ); |
691 |
|
|
|
692 |
if ( my $CR = $server->{account}->{cr_item_field} ) { |
693 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->{$CR}, $server ); |
694 |
} else { |
695 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->collection_code, $server ); |
696 |
} |
692 |
|
697 |
|
693 |
if ( $status->hold and $status->hold->{branchcode} ne $item->destination_loc ) { |
698 |
if ( $status->hold and $status->hold->{branchcode} ne $item->destination_loc ) { |
694 |
warn 'SIP hold mismatch: $status->hold->{branchcode}=' . $status->hold->{branchcode} . '; $item->destination_loc=' . $item->destination_loc; |
699 |
warn 'SIP hold mismatch: $status->hold->{branchcode}=' . $status->hold->{branchcode} . '; $item->destination_loc=' . $item->destination_loc; |
Lines 1160-1165
sub handle_item_information {
Link Here
|
1160 |
$resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location, $server ); |
1165 |
$resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location, $server ); |
1161 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
1166 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
1162 |
|
1167 |
|
|
|
1168 |
if ( my $CR = $server->{account}->{cr_item_field} ) { |
1169 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->$CR, $server ); |
1170 |
} else { |
1171 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->collection_code, $server ); |
1172 |
} |
1173 |
|
1163 |
if ( ( $i = $item->fee ) != 0 ) { |
1174 |
if ( ( $i = $item->fee ) != 0 ) { |
1164 |
$resp .= add_field( FID_CURRENCY, $item->fee_currency, $server ); |
1175 |
$resp .= add_field( FID_CURRENCY, $item->fee_currency, $server ); |
1165 |
$resp .= add_field( FID_FEE_AMT, $i, $server ); |
1176 |
$resp .= add_field( FID_FEE_AMT, $i, $server ); |