Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Added a FIXME comment.

Browse source
This commit is contained in:
arensb 2002-10-07 00:35:44 +00:00
parent acaffcf53e
commit e551a3b888
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
C4/Format.pm
View file

@ -181,6 +181,12 @@ sub fmtdec {
$tempdec = 0;
}
# 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) {
$fnumb = ",".substr($tempint,-3,3).$fnumb;