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;