X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-account.pl;h=22d83b839234356c94b9115751aae97e8b484713;hb=2ea6fdec156419fbbdd5f64da927d0b2b45e751c;hp=96d9c817136e3dfc5a933ca8aeb3764d9077376c;hpb=b642e687d2ccca954945d1044df1089af49956c8;p=srvgit diff --git a/opac/opac-account.pl b/opac/opac-account.pl index 96d9c81713..22d83b8392 100755 --- a/opac/opac-account.pl +++ b/opac/opac-account.pl @@ -24,7 +24,8 @@ use C4::Members; use C4::Circulation; use C4::Auth; use C4::Output; -use C4::Date; +use C4::Dates qw/format_date/; +use warnings; my $query = new CGI; my ( $template, $borrowernumber, $cookie ) = get_template_and_user( @@ -40,7 +41,6 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( # get borrower information .... my $borr = GetMemberDetails( $borrowernumber ); - my @bordat; $bordat[0] = $borr; @@ -51,20 +51,15 @@ my ( $total , $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); for ( my $i = 0 ; $i < $numaccts ; $i++ ) { $accts->[$i]{'date'} = format_date( $accts->[$i]{'date'} ); - $accts->[$i]{'amount'} = sprintf( "%.2f", $accts->[$i]{'amount'} ); + $accts->[$i]{'amount'} = sprintf( "%.2f", $accts->[$i]{'amount'} || '0.00'); if ( $accts->[$i]{'amount'} >= 0 ) { $accts->[$i]{'amountcredit'} = 1; } $accts->[$i]{'amountoutstanding'} = - sprintf( "%.2f", $accts->[$i]{'amountoutstanding'} ); + sprintf( "%.2f", $accts->[$i]{'amountoutstanding'} || '0.00' ); if ( $accts->[$i]{'amountoutstanding'} >= 0 ) { $accts->[$i]{'amountoutstandingcredit'} = 1; } - if ( $accts->[$i]{'accounttype'} ne 'F' - && $accts->[$i]{'accounttype'} ne 'FU' ) - { - $accts->[$i]{'print_title'}; - } } # add the row parity @@ -77,7 +72,8 @@ foreach my $row (@$accts) { $template->param ( ACCOUNT_LINES => $accts, - total => sprintf( "%.2f", $total ) + total => sprintf( "%.2f", $total ), + accountview => 1 ); output_html_with_http_headers $query, $cookie, $template->output;