From 6da98694630626b44d72aaa4cd74e8a0558af231 Mon Sep 17 00:00:00 2001 From: arensb Date: Sun, 13 Oct 2002 06:03:38 +0000 Subject: [PATCH] Added a FIXME comment. --- C4/Input.pm | 1 + C4/Maintainance.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Input.pm b/C4/Input.pm index 5c1e609fa2..87abce138c 100644 --- a/C4/Input.pm +++ b/C4/Input.pm @@ -137,6 +137,7 @@ sub checkvalidisbn { $c+=$digit*(10-$i); } $c=$c%11; # % is the modulus function + # FIXME - %= ($c==10) && ($c='X'); # FIXME - $isbngood = $c eq $checksum; if ($c eq $checksum) { diff --git a/C4/Maintainance.pm b/C4/Maintainance.pm index 6f749bcead..af9cca5e21 100644 --- a/C4/Maintainance.pm +++ b/C4/Maintainance.pm @@ -196,7 +196,7 @@ sub undeletebib{ $query="Insert into biblio values ("; foreach my $temp (@data){ $temp=~ s/\'/\\\'/g; - $query=$query."'$temp',"; + $query=$query."'$temp',"; # FIXME - .= } $query=~ s/\,$/\)/; # print $query; -- 2.20.1