Lines 24-30
use C4::Members;
Link Here
|
24 |
use C4::Items; |
24 |
use C4::Items; |
25 |
use C4::Circulation; |
25 |
use C4::Circulation; |
26 |
use C4::Branch; |
26 |
use C4::Branch; |
27 |
use C4::Accounts; |
|
|
28 |
use C4::Biblio; |
27 |
use C4::Biblio; |
29 |
use C4::Reserves qw(AddReserve CancelReserve GetReservesFromBiblionumber GetReservesFromBorrowernumber CanBookBeReserved CanItemBeReserved); |
28 |
use C4::Reserves qw(AddReserve CancelReserve GetReservesFromBiblionumber GetReservesFromBorrowernumber CanBookBeReserved CanItemBeReserved); |
30 |
use C4::Context; |
29 |
use C4::Context; |
Lines 34-39
use HTML::Entities;
Link Here
|
34 |
use CGI; |
33 |
use CGI; |
35 |
use DateTime; |
34 |
use DateTime; |
36 |
use C4::Auth; |
35 |
use C4::Auth; |
|
|
36 |
use Koha::Database; |
37 |
|
37 |
|
38 |
=head1 NAME |
38 |
=head1 NAME |
39 |
|
39 |
|
Lines 387-396
sub GetPatronInfo {
Link Here
|
387 |
|
387 |
|
388 |
# Fines management |
388 |
# Fines management |
389 |
if ( $cgi->param('show_fines') eq "1" ) { |
389 |
if ( $cgi->param('show_fines') eq "1" ) { |
390 |
my @charges; |
390 |
my @charges = |
391 |
for ( my $i = 1 ; my @charge = getcharges( $borrowernumber, undef, $i ) ; $i++ ) { |
391 |
Koha::Database->new()->schema()->resultset('AccountDebit') |
392 |
push( @charges, @charge ); |
392 |
->search( { borrowernumber => $borrowernumber } ); |
393 |
} |
|
|
394 |
$borrower->{'fines'}->{'fine'} = \@charges; |
393 |
$borrower->{'fines'}->{'fine'} = \@charges; |
395 |
} |
394 |
} |
396 |
|
395 |
|
397 |
- |
|
|