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