[Koha-cvs] CVS: koha pay.pl,1.9,1.10

[Owen Leonard]

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

Modified Files:
	pay.pl 
Log Message:
Formatting currency values

Index: pay.pl
===================================================================
RCS file: /cvsroot/koha/koha/pay.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** pay.pl	12 Jan 2004 16:58:20 -0000	1.9
--- pay.pl	16 Feb 2005 19:17:15 -0000	1.10
***************
*** 102,107 ****
  			$line{itemnumber} = $accts->[$i]{'itemnumber'};
  			$line{accounttype} = $accts->[$i]{'accounttype'};
! 			$line{amount} = $accts->[$i]{'amount'};
! 			$line{amountoutstanding} = $accts->[$i]{'amountoutstanding'};
  			$line{bornum} = $bornum;
  			$line{accountno} = $accts->[$i]{'accountno'};
--- 102,107 ----
  			$line{itemnumber} = $accts->[$i]{'itemnumber'};
  			$line{accounttype} = $accts->[$i]{'accounttype'};
! 			$line{amount} = sprintf("%.2f",$accts->[$i]{'amount'});
! 			$line{amountoutstanding} = sprintf("%.2f",$accts->[$i]{'amountoutstanding'});
  			$line{bornum} = $bornum;
  			$line{accountno} = $accts->[$i]{'accountno'};
***************
*** 115,119 ****
  							bornum => $bornum,
  							loop_pay => \@loop_pay,
! 							total => $total);
  	print "Content-Type: text/html\n\n", $template->output;
  
--- 115,119 ----
  							bornum => $bornum,
  							loop_pay => \@loop_pay,
! 							total => sprintf("%.2f",$total));
  	print "Content-Type: text/html\n\n", $template->output;