View | Details | Raw Unified | Return to bug 17680
Collapse All | Expand All

(-)a/C4/Circulation.pm (-41 lines)
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
- 

Return to bug 17680