[Koha-cvs] CVS: koha/C4 Format.pm,1.4,1.5

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv8149

Modified Files:
        Format.pm 
Log Message:
Added a FIXME comment.


Index: Format.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Format.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Format.pm   23 Sep 2002 13:53:18 -0000      1.4
--- Format.pm   7 Oct 2002 00:35:44 -0000       1.5
***************
*** 182,185 ****
--- 182,191 ----
       }
       # If a comma was specified, then comma-separate the integer part
+      # FIXME - From the Perl Cookbook (ISBN 1-56592-243-3), sec. 2.1.7:
+      #        sub commify {
+      #                my $test = reverse $_[0];
+      #                $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
+      #                return scalar reverse $text;
+      #        }
       if ($comma eq ",") {
          while (length($tempdec) > 3) {