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

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

Return to bug 17680