[Koha-cvs] koha/admin categorie.pl

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Chris Cormack <rangi>	06/06/07 02:42:52

Modified files:
	admin          : categorie.pl 

Log message:
	Adding a sprintf to format the fields involving currency to 2 decimal places

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/admin/categorie.pl?cvsroot=koha&r1=1.21&r2=1.22

Patches:
Index: categorie.pl
===================================================================
RCS file: /sources/koha/koha/admin/categorie.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- categorie.pl	23 May 2006 14:26:15 -0000	1.21
+++ categorie.pl	7 Jun 2006 02:42:51 -0000	1.22
@@ -102,10 +102,10 @@
 				enrolmentperiod         => $data->{'enrolmentperiod'},
 				upperagelimit           => $data->{'upperagelimit'},
 				dateofbirthrequired     => $data->{'dateofbirthrequired'},
-				enrolmentfee            => $data->{'enrolmentfee'},
+				enrolmentfee            => sprintf("%.2f",$data->{'enrolmentfee'}),
 				overduenoticerequired   => $data->{'overduenoticerequired'},
 				issuelimit              => $data->{'issuelimit'},
-				reservefee              => $data->{'reservefee'},
+				reservefee              => sprintf("%.2f",$data->{'reservefee'}),
 				category_type           => $data->{'category_type'},
 				"type_".$data->{'category_type'} => " SELECTED ",
 				);
@@ -146,10 +146,10 @@
                                 enrolmentperiod         => $data->{'enrolmentperiod'},
                                 upperagelimit           => $data->{'upperagelimit'},
                                 dateofbirthrequired     => $data->{'dateofbirthrequired'},
-                                enrolmentfee            => $data->{'enrolmentfee'},
+                                enrolmentfee            =>  sprintf("%.2f",$data->{'enrolmentfee'}),
                                 overduenoticerequired   => $data->{'overduenoticerequired'},
                                 issuelimit              => $data->{'issuelimit'},
-                                reservefee              => $data->{'reservefee'},
+                                reservefee              =>  sprintf("%.2f",$data->{'reservefee'}),
                                 category_type           => $data->{'category_type'}
                                 );
 													# END $OP eq DELETE_CONFIRM
@@ -178,10 +178,10 @@
 				enrolmentperiod => $results->[$i]{'enrolmentperiod'},
 				upperagelimit => $results->[$i]{'upperagelimit'},
 				dateofbirthrequired => $results->[$i]{'dateofbirthrequired'},
-				enrolmentfee => $results->[$i]{'enrolmentfee'},
+				enrolmentfee => sprintf("%.2f",$results->[$i]{'enrolmentfee'}),
 				overduenoticerequired => $results->[$i]{'overduenoticerequired'},
 				issuelimit => $results->[$i]{'issuelimit'},
-				reservefee => $results->[$i]{'reservefee'},
+				reservefee => sprintf("%.2f",$results->[$i]{'reservefee'}),
 				category_type => $results->[$i]{'category_type'},
 				toggle => $toggle );	
 		push @loop, \%row;