[Koha-cvs] CVS: koha/C4 Input.pm,1.2,1.3

[Steve Tonnesen]

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

Modified Files:
        Input.pm 
Log Message:
Fixed bug in checkvalidisbn()


Index: Input.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Input.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** Input.pm    20 Jun 2002 20:41:21 -0000      1.2
--- Input.pm    3 Jul 2002 03:18:50 -0000       1.3
***************
*** 75,79 ****
                  $c+=$digit*(10-$i);
              }
!             $c=int(11-($c/11-int($c/11))*11+.1);
              ($c==10) && ($c='X');
              if ($c eq $checksum) {
--- 75,79 ----
                  $c+=$digit*(10-$i);
              }
!           $c=$c%11;  # % is the modulus function
              ($c==10) && ($c='X');
              if ($c eq $checksum) {