[Koha-cvs] CVS: koha/opac opac-user.pl,1.1.2.11,1.1.2.12

[Finlay Thompson]

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;