From e551a3b88895531cde98a7209989089c19051386 Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Mon, 7 Oct 2002 00:35:44 +0000
Subject: [PATCH] Added a FIXME comment.

---
 C4/Format.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/C4/Format.pm b/C4/Format.pm
index 119c6c595b..922f89ec57 100755
--- a/C4/Format.pm
+++ b/C4/Format.pm
@@ -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;
-- 
2.39.5