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 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
- 

Return to bug 17680