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