gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed fines to date

This commit is contained in:
finlayt 2002-11-29 02:26:38 +00:00
parent f6dded2f0f
commit 99f13f88d6
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
opac/opac-user.pl
View File

@ -8,6 +8,7 @@ use C4::Koha;
use C4::Circulation::Circ2;
use C4::Circulation::Renewals2;
use C4::Reserves2;
use C4::Search;
my $query = new CGI;
my ($template, $borrowernumber, $cookie)
@ -62,7 +63,15 @@ foreach my $key (keys %$issues) {
if ($restype) {
$issue->{'reserved'} = 1;
}
my ($charges, $itemtype) = calc_charges(undef, undef, $issue->{'itemnumber'}, $borrowernumber);
my ($numaccts,$accts,$total) = getboracctrecord(undef,$borr);
my $charges = 0;
foreach my $ac (@$accts) {
if ($ac->{'itemnumber'} == $issue->{'itemnumber'}) {
$charges += $ac->{'amountoutstanding'} if $ac->{'accounttype'} eq 'F';
$charges += $ac->{'amountoutstanding'} if $ac->{'accounttype'} eq 'L';
}
}
$issue->{'charges'} = $charges;
# get publictype for icon