|
Lines 88-94
BEGIN {
Link Here
|
| 88 |
&GetRenewCount |
88 |
&GetRenewCount |
| 89 |
&GetSoonestRenewDate |
89 |
&GetSoonestRenewDate |
| 90 |
&GetLatestAutoRenewDate |
90 |
&GetLatestAutoRenewDate |
| 91 |
&GetItemIssue |
|
|
| 92 |
&GetIssuingCharges |
91 |
&GetIssuingCharges |
| 93 |
&GetBranchBorrowerCircRule |
92 |
&GetBranchBorrowerCircRule |
| 94 |
&GetBranchItemRule |
93 |
&GetBranchItemRule |
|
Lines 2450-2494
sub _GetCircControlBranch {
Link Here
|
| 2450 |
return $branch; |
2449 |
return $branch; |
| 2451 |
} |
2450 |
} |
| 2452 |
|
2451 |
|
| 2453 |
|
|
|
| 2454 |
|
| 2455 |
|
| 2456 |
|
| 2457 |
|
| 2458 |
=head2 GetItemIssue |
| 2459 |
|
| 2460 |
$issue = &GetItemIssue($itemnumber); |
| 2461 |
|
| 2462 |
Returns patron currently having a book, or undef if not checked out. |
| 2463 |
|
| 2464 |
C<$itemnumber> is the itemnumber. |
| 2465 |
|
| 2466 |
C<$issue> is a hashref of the row from the issues table. |
| 2467 |
|
| 2468 |
=cut |
| 2469 |
|
| 2470 |
sub GetItemIssue { |
| 2471 |
my ($itemnumber) = @_; |
| 2472 |
return unless $itemnumber; |
| 2473 |
my $sth = C4::Context->dbh->prepare( |
| 2474 |
"SELECT items.*, issues.* |
| 2475 |
FROM issues |
| 2476 |
LEFT JOIN items ON issues.itemnumber=items.itemnumber |
| 2477 |
WHERE issues.itemnumber=?"); |
| 2478 |
$sth->execute($itemnumber); |
| 2479 |
my $data = $sth->fetchrow_hashref; |
| 2480 |
return unless $data; |
| 2481 |
$data->{issuedate_sql} = $data->{issuedate}; |
| 2482 |
$data->{date_due_sql} = $data->{date_due}; |
| 2483 |
$data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); |
| 2484 |
$data->{issuedate}->truncate(to => 'minute'); |
| 2485 |
$data->{date_due} = dt_from_string($data->{date_due}, 'sql'); |
| 2486 |
$data->{date_due}->truncate(to => 'minute'); |
| 2487 |
my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minute'); |
| 2488 |
$data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; |
| 2489 |
return $data; |
| 2490 |
} |
| 2491 |
|
| 2492 |
=head2 GetOpenIssue |
2452 |
=head2 GetOpenIssue |
| 2493 |
|
2453 |
|
| 2494 |
$issue = GetOpenIssue( $itemnumber ); |
2454 |
$issue = GetOpenIssue( $itemnumber ); |
| 2495 |
- |
|
|