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