Code Cleaning Members.

[srvgit] / opac / opac-user.pl

diff --git a/opac/opac-user.pl b/opac/opac-user.pl
index 1be5e6a..87d46b9 100755 (executable)
--- a/opac/opac-user.pl
+++ b/opac/opac-user.pl
@@ -92,7 +92,7 @@ foreach my $issue ( @$issues ) {
         $issue->{'reserved'} = 1;
     }
     
-    my ( $numaccts, $accts, $total ) = getboracctrecord( undef, $borr );
+    my ( $total , $accts, $numaccts) = GetBorrowerAcctRecord( $borrowernumber );
     my $charges = 0;
     foreach my $ac (@$accts) {
         if ( $ac->{'itemnumber'} == $issue->{'itemnumber'} ) {