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