|
Lines 27-32
use C4::Auth qw(check_cookie_auth);
Link Here
|
| 27 |
use C4::Biblio qw(GetMarcBiblio GetFrameworkCode GetRecordValue ); |
27 |
use C4::Biblio qw(GetMarcBiblio GetFrameworkCode GetRecordValue ); |
| 28 |
use C4::Circulation qw(GetIssuingCharges CanBookBeRenewed GetRenewCount GetSoonestRenewDate); |
28 |
use C4::Circulation qw(GetIssuingCharges CanBookBeRenewed GetRenewCount GetSoonestRenewDate); |
| 29 |
use C4::Koha qw(GetAuthorisedValueByCode); |
29 |
use C4::Koha qw(GetAuthorisedValueByCode); |
|
|
30 |
use C4::Overdues qw(GetFine); |
| 30 |
use C4::Context; |
31 |
use C4::Context; |
| 31 |
|
32 |
|
| 32 |
use Koha::DateUtils; |
33 |
use Koha::DateUtils; |
|
Lines 126-131
my @checkouts_today;
Link Here
|
| 126 |
my @checkouts_previous; |
127 |
my @checkouts_previous; |
| 127 |
while ( my $c = $sth->fetchrow_hashref() ) { |
128 |
while ( my $c = $sth->fetchrow_hashref() ) { |
| 128 |
my ($charge) = GetIssuingCharges( $c->{itemnumber}, $c->{borrowernumber} ); |
129 |
my ($charge) = GetIssuingCharges( $c->{itemnumber}, $c->{borrowernumber} ); |
|
|
130 |
my $fine = GetFine( $c->{itemnumber}, $c->{borrowernumber} ); |
| 131 |
$charge += $fine if defined $fine; |
| 129 |
|
132 |
|
| 130 |
my ( $can_renew, $can_renew_error ) = |
133 |
my ( $can_renew, $can_renew_error ) = |
| 131 |
CanBookBeRenewed( $c->{borrowernumber}, $c->{itemnumber} ); |
134 |
CanBookBeRenewed( $c->{borrowernumber}, $c->{itemnumber} ); |
| 132 |
- |
|
|