[Koha-cvs] CVS: koha/C4 Input.pm,1.1.1.1.2.2,1.1.1.1.2.3

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
        Input.pm 
Log Message:
Fixed error in checkvalidisbn.


Index: Input.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Input.pm,v
retrieving revision 1.1.1.1.2.2
retrieving revision 1.1.1.1.2.3
diff -C2 -r1.1.1.1.2.2 -r1.1.1.1.2.3
*** Input.pm    14 Jun 2002 06:28:14 -0000      1.1.1.1.2.2
--- Input.pm    3 Jul 2002 03:02:53 -0000       1.1.1.1.2.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) {