[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/opac opac-user.pl,1.1.2.11,1.1.2.12
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha/opac opac-user.pl,1.1.2.11,1.1.2.12 |
Date: |
Thu, 28 Nov 2002 18:26:41 -0800 |
Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1:/tmp/cvs-serv3953
Modified Files:
Tag: rel-1-2
opac-user.pl
Log Message:
Fixed fines to date
Index: opac-user.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-user.pl,v
retrieving revision 1.1.2.11
retrieving revision 1.1.2.12
diff -C2 -r1.1.2.11 -r1.1.2.12
*** opac-user.pl 28 Nov 2002 23:12:34 -0000 1.1.2.11
--- opac-user.pl 29 Nov 2002 02:26:38 -0000 1.1.2.12
***************
*** 9,12 ****
--- 9,13 ----
use C4::Circulation::Renewals2;
use C4::Reserves2;
+ use C4::Search;
my $query = new CGI;
***************
*** 63,67 ****
$issue->{'reserved'} = 1;
}
! my ($charges, $itemtype) = calc_charges(undef, undef,
$issue->{'itemnumber'}, $borrowernumber);
$issue->{'charges'} = $charges;
--- 64,76 ----
$issue->{'reserved'} = 1;
}
!
! 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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/opac opac-user.pl,1.1.2.11,1.1.2.12,
Finlay Thompson <=