Lines 240-306
while ( my $c = $sth->fetchrow_hashref() ) {
Link Here
|
240 |
} |
240 |
} |
241 |
|
241 |
|
242 |
my $checkout = { |
242 |
my $checkout = { |
243 |
DT_RowId => $c->{itemnumber} . '-' . $c->{borrowernumber}, |
243 |
DT_RowId => $c->{itemnumber} . '-' . $c->{borrowernumber}, |
244 |
title => $c->{title}, |
244 |
title => $c->{title}, |
245 |
subtitle => \@subtitles, |
245 |
subtitle => \@subtitles, |
246 |
medium => $c->{medium} // '', |
246 |
medium => $c->{medium} // '', |
247 |
part_number => $c->{part_number} // '', |
247 |
part_number => $c->{part_number} // '', |
248 |
part_name => $c->{part_name} // '', |
248 |
part_name => $c->{part_name} // '', |
249 |
author => $c->{author}, |
249 |
author => $c->{author}, |
250 |
barcode => $c->{barcode}, |
250 |
barcode => $c->{barcode}, |
251 |
type_for_stat => $type_for_stat || q{}, |
251 |
type_for_stat => $type_for_stat || q{}, |
252 |
itemtype_description => $itemtype || q{}, |
252 |
itemtype_description => $itemtype || q{}, |
253 |
recordtype_description => $recordtype || q{}, |
253 |
recordtype_description => $recordtype || q{}, |
254 |
collection => $collection, |
254 |
collection => $collection, |
255 |
location => $location, |
255 |
location => $location, |
256 |
homebranch => $c->{homebranch}, |
256 |
homebranch => $c->{homebranch}, |
257 |
itemnotes => $c->{itemnotes}, |
257 |
itemnotes => $c->{itemnotes}, |
258 |
itemnotes_nonpublic => $c->{itemnotes_nonpublic}, |
258 |
itemnotes_nonpublic => $c->{itemnotes_nonpublic}, |
259 |
branchcode => $c->{branchcode}, |
259 |
branchcode => $c->{branchcode}, |
260 |
branchname => $c->{branchname}, |
260 |
branchname => $c->{branchname}, |
261 |
itemcallnumber => $c->{itemcallnumber} || q{}, |
261 |
itemcallnumber => $c->{itemcallnumber} || q{}, |
262 |
copynumber => $c->{copynumber} || q{}, |
262 |
copynumber => $c->{copynumber} || q{}, |
263 |
charge => $charge, |
263 |
charge => $charge, |
264 |
fine => $fine, |
264 |
fine => $fine, |
265 |
price => $c->{replacementprice} || q{}, |
265 |
price => $c->{replacementprice} || q{}, |
266 |
can_renew => $can_renew, |
266 |
can_renew => $can_renew, |
267 |
can_renew_error => $can_renew_error, |
267 |
can_renew_error => $can_renew_error, |
268 |
can_renew_date => $can_renew_date, |
268 |
can_renew_date => $can_renew_date, |
269 |
itemnumber => $c->{itemnumber}, |
269 |
itemnumber => $c->{itemnumber}, |
270 |
borrowernumber => $c->{borrowernumber}, |
270 |
borrowernumber => $c->{borrowernumber}, |
271 |
biblionumber => $c->{biblionumber}, |
271 |
biblionumber => $c->{biblionumber}, |
272 |
issuedate => $c->{issuedate}, |
272 |
issuedate => $c->{issuedate}, |
273 |
date_due => $c->{date_due}, |
273 |
date_due => $c->{date_due}, |
274 |
date_due_overdue => $c->{date_due_overdue} ? JSON::true : JSON::false, |
274 |
date_due_overdue => $c->{date_due_overdue} ? JSON::true : JSON::false, |
275 |
timestamp => $c->{timestamp}, |
275 |
timestamp => $c->{timestamp}, |
276 |
auto_renew => $c->{auto_renew}, |
276 |
auto_renew => $c->{auto_renew}, |
277 |
onsite_checkout => $c->{onsite_checkout}, |
277 |
onsite_checkout => $c->{onsite_checkout}, |
278 |
enumchron => $c->{enumchron}, |
278 |
enumchron => $c->{enumchron}, |
279 |
renewals_count => $renewals_count, |
279 |
renewals_count => $renewals_count, |
280 |
renewals_allowed => $renewals_allowed || 0, |
280 |
renewals_allowed => $renewals_allowed || 0, |
281 |
renewals_remaining => $renewals_remaining, |
281 |
renewals_remaining => $renewals_remaining, |
282 |
unseen_count => $unseen_count, |
282 |
unseen_count => $unseen_count, |
283 |
unseen_allowed => $unseen_allowed, |
283 |
unseen_allowed => $unseen_allowed, |
284 |
unseen_remaining => $unseen_remaining, |
284 |
unseen_remaining => $unseen_remaining, |
285 |
|
285 |
|
286 |
return_claim_id => $c->{return_claim_id}, |
286 |
return_claim_id => $c->{return_claim_id}, |
287 |
return_claim_notes => $c->{return_claim_notes}, |
287 |
return_claim_notes => $c->{return_claim_notes}, |
288 |
return_claim_created_on => $c->{return_claim_created_on}, |
288 |
return_claim_created_on => $c->{return_claim_created_on}, |
289 |
return_claim_updated_on => $c->{return_claim_updated_on}, |
289 |
return_claim_updated_on => $c->{return_claim_updated_on}, |
290 |
return_claim_created_on_formatted => $c->{return_claim_created_on} ? output_pref({ dt => dt_from_string( $c->{return_claim_created_on} ) }) : undef, |
290 |
return_claim_created_on_formatted => $c->{return_claim_created_on} |
291 |
return_claim_updated_on_formatted => $c->{return_claim_updated_on} ? output_pref({ dt => dt_from_string( $c->{return_claim_updated_on} ) }) : undef, |
291 |
? output_pref( { dt => dt_from_string( $c->{return_claim_created_on} ) } ) |
292 |
|
292 |
: undef, |
293 |
lost => $lost, |
293 |
return_claim_updated_on_formatted => $c->{return_claim_updated_on} |
|
|
294 |
? output_pref( { dt => dt_from_string( $c->{return_claim_updated_on} ) } ) |
295 |
: undef, |
296 |
|
297 |
lost => $lost, |
294 |
claims_returned => $claims_returned, |
298 |
claims_returned => $claims_returned, |
295 |
damaged => $damaged, |
299 |
damaged => $damaged, |
296 |
materials => $materials, |
300 |
materials => $materials, |
297 |
borrower => { |
301 |
borrower => { |
298 |
surname => $c->{surname}, |
302 |
surname => $c->{surname}, |
299 |
firstname => $c->{firstname}, |
303 |
firstname => $c->{firstname}, |
300 |
cardnumber => $c->{cardnumber}, |
304 |
cardnumber => $c->{cardnumber}, |
301 |
}, |
305 |
}, |
302 |
issued_today => !$c->{not_issued_today}, |
306 |
issued_today => !$c->{not_issued_today}, |
303 |
recalled => $recalled, |
307 |
recalled => $recalled, |
304 |
}; |
308 |
}; |
305 |
|
309 |
|
306 |
if ( $c->{not_issued_today} ) { |
310 |
if ( $c->{not_issued_today} ) { |