[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;