|
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} ) { |