[Koha-cvs] CVS: koha/opac opac-account.pl,1.8,1.8.2.1

[Owen Leonard]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25338/opac

Modified Files:
      Tag: rel_2_2
        opac-account.pl 
Log Message:
-- formatting currency amounts to two decimals
-- formatting dates according to system preference
-- adding variables to indicate positive or negative currency amounts (for use 
in styling output)

Index: opac-account.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-account.pl,v
retrieving revision 1.8
retrieving revision 1.8.2.1
diff -C2 -r1.8 -r1.8.2.1
*** opac-account.pl     8 Jan 2004 18:23:36 -0000       1.8
--- opac-account.pl     15 Jul 2005 18:16:14 -0000      1.8.2.1
***************
*** 37,42 ****
  
  for (my $i=0;$i<$numaccts;$i++){
!     $accts->[$i]{'amount'}+=0.00;
!     $accts->[$i]{'amountoutstanding'}+=0.00;
      if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 
'FU'){
        $accts->[$i]{'print_title'};
--- 37,49 ----
  
  for (my $i=0;$i<$numaccts;$i++){
!       $accts->[$i]{'date'} = format_date($accts->[$i]{'date'});
!     $accts->[$i]{'amount'} = sprintf("%.2f", $accts->[$i]{'amount'});
!       if($accts->[$i]{'amount'} >= 0){
!               $accts->[$i]{'amountcredit'} = 1;
!       }
!     $accts->[$i]{'amountoutstanding'} =sprintf("%.2f", 
$accts->[$i]{'amountoutstanding'});
!       if($accts->[$i]{'amountoutstanding'} >= 0){
!               $accts->[$i]{'amountoutstandingcredit'} = 1;
!       }
      if ($accts->[$i]{'accounttype'} ne 'F' && $accts->[$i]{'accounttype'} ne 
'FU'){
        $accts->[$i]{'print_title'};
***************
*** 57,61 ****
   );
  
! $template->param( total => $total );
  
  #$template->param(loggeninuser => $loggedinuser);
--- 64,68 ----
   );
  
! $template->param( total => sprintf("%.2f",$total) );
  
  #$template->param(loggeninuser => $loggedinuser);