Lines 1207-1217
sub handle_item_information {
Link Here
|
1207 |
} else { |
1207 |
} else { |
1208 |
|
1208 |
|
1209 |
# Valid Item ID, send the good stuff |
1209 |
# Valid Item ID, send the good stuff |
1210 |
$resp .= $item->sip_circulation_status; |
1210 |
my $circulation_status = $item->sip_circulation_status; |
|
|
1211 |
$resp .= $circulation_status; |
1211 |
$resp .= $item->sip_security_marker; |
1212 |
$resp .= $item->sip_security_marker; |
1212 |
$resp .= $item->sip_fee_type; |
1213 |
$resp .= $item->sip_fee_type; |
1213 |
$resp .= timestamp; |
1214 |
$resp .= timestamp; |
1214 |
|
1215 |
|
|
|
1216 |
if ( $circulation_status eq '01' ) { |
1217 |
$resp .= maybe_add( FID_SCREEN_MSG, "Item is damaged", $server ); |
1218 |
} |
1219 |
|
1215 |
$resp .= add_field( FID_ITEM_ID, $item->id, $server ); |
1220 |
$resp .= add_field( FID_ITEM_ID, $item->id, $server ); |
1216 |
$resp .= add_field( FID_TITLE_ID, $item->title_id, $server ); |
1221 |
$resp .= add_field( FID_TITLE_ID, $item->title_id, $server ); |
1217 |
|
1222 |
|
Lines 1220-1225
sub handle_item_information {
Link Here
|
1220 |
$resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location, $server ); |
1225 |
$resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location, $server ); |
1221 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
1226 |
$resp .= maybe_add( FID_ITEM_PROPS, $item->sip_item_properties, $server ); |
1222 |
|
1227 |
|
|
|
1228 |
|
1223 |
if ( my $CR = $server->{account}->{cr_item_field} ) { |
1229 |
if ( my $CR = $server->{account}->{cr_item_field} ) { |
1224 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->{$CR}, $server ); |
1230 |
$resp .= maybe_add( FID_COLLECTION_CODE, $item->{$CR}, $server ); |
1225 |
} else { |
1231 |
} else { |
1226 |
- |
|
|