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 2495-2539
sub _GetCircControlBranch {
Link Here
|
2495 |
return $branch; |
2494 |
return $branch; |
2496 |
} |
2495 |
} |
2497 |
|
2496 |
|
2498 |
|
|
|
2499 |
|
2500 |
|
2501 |
|
2502 |
|
2503 |
=head2 GetItemIssue |
2504 |
|
2505 |
$issue = &GetItemIssue($itemnumber); |
2506 |
|
2507 |
Returns patron currently having a book, or undef if not checked out. |
2508 |
|
2509 |
C<$itemnumber> is the itemnumber. |
2510 |
|
2511 |
C<$issue> is a hashref of the row from the issues table. |
2512 |
|
2513 |
=cut |
2514 |
|
2515 |
sub GetItemIssue { |
2516 |
my ($itemnumber) = @_; |
2517 |
return unless $itemnumber; |
2518 |
my $sth = C4::Context->dbh->prepare( |
2519 |
"SELECT items.*, issues.* |
2520 |
FROM issues |
2521 |
LEFT JOIN items ON issues.itemnumber=items.itemnumber |
2522 |
WHERE issues.itemnumber=?"); |
2523 |
$sth->execute($itemnumber); |
2524 |
my $data = $sth->fetchrow_hashref; |
2525 |
return unless $data; |
2526 |
$data->{issuedate_sql} = $data->{issuedate}; |
2527 |
$data->{date_due_sql} = $data->{date_due}; |
2528 |
$data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); |
2529 |
$data->{issuedate}->truncate(to => 'minute'); |
2530 |
$data->{date_due} = dt_from_string($data->{date_due}, 'sql'); |
2531 |
$data->{date_due}->truncate(to => 'minute'); |
2532 |
my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minute'); |
2533 |
$data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; |
2534 |
return $data; |
2535 |
} |
2536 |
|
2537 |
=head2 GetOpenIssue |
2497 |
=head2 GetOpenIssue |
2538 |
|
2498 |
|
2539 |
$issue = GetOpenIssue( $itemnumber ); |
2499 |
$issue = GetOpenIssue( $itemnumber ); |
2540 |
- |
|
|