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

[Steve Tonnesen]

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

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


Index: Input.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Input.pm,v
retrieving revision 1.1.1.1.2.3
retrieving revision 1.1.1.1.2.4
diff -C2 -r1.1.1.1.2.3 -r1.1.1.1.2.4
*** Input.pm	3 Jul 2002 03:02:53 -0000	1.1.1.1.2.3
--- Input.pm	5 Jul 2002 04:45:13 -0000	1.1.1.1.2.4
***************
*** 73,77 ****
              for ($i=0; $i<9; $i++) { 
                  my $digit=substr($q,$i,1);
!                 $c+=$digit*(10-$i);
              }
  	    $c=$c%11;  # % is the modulus function
--- 73,77 ----
              for ($i=0; $i<9; $i++) { 
                  my $digit=substr($q,$i,1);
!                 $c+=$digit*($i+1);
              }
  	    $c=$c%11;  # % is the modulus function