[Koha-cvs] CVS: koha/C4 Input.pm,1.13,1.14

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv5301/C4

Modified Files:
	Input.pm 
Log Message:
improving checkdigit sub.

Index: Input.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Input.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** Input.pm	1 Jul 2003 17:22:17 -0000	1.13
--- Input.pm	7 Jul 2003 14:43:42 -0000	1.14
***************
*** 91,95 ****
  	#not correct
  
! 	unless ( $nounique ) 
  	{
  		my $dbh=C4::Context->dbh;
--- 91,98 ----
  	#not correct
  
! 	if (C4::Context->preference("checkdigit") eq "none") {
! 		return 1;
! 	}
! 	unless ( $nounique )
  	{
  		my $dbh=C4::Context->dbh;
***************
*** 104,129 ****
  	}
  
! 	if (C4::Context->preference("checkdigit") eq "none") {
! 		return 1;
! 	} else {
! 		my @weightings = (8,4,6,3,5,2,1);
! 		my $sum;
! 		my $i = 1;
! 		my $valid = 0;
  
! 		foreach $i (1..7) {
! 			my $temp1 = $weightings[$i-1];
! 			my $temp2 = substr($infl,$i,1);
! 			$sum += $temp1 * $temp2;
! 		}
! 		my $rem = ($sum%11);
! 		if ($rem == 10) {
! 		$rem = "X";
! 		}
! 		if ($rem eq substr($infl,8,1)) {
! 			$valid = 1;
! 		}
! 		return $valid;
  	}
  } # sub checkdigit
  
--- 107,128 ----
  	}
  
! 	my @weightings = (8,4,6,3,5,2,1);
! 	my $sum;
! 	my $i = 1;
! 	my $valid = 0;
  
! 	foreach $i (1..7) {
! 		my $temp1 = $weightings[$i-1];
! 		my $temp2 = substr($infl,$i,1);
! 		$sum += $temp1 * $temp2;
! 	}
! 	my $rem = ($sum%11);
! 	if ($rem == 10) {
! 	$rem = "X";
! 	}
! 	if ($rem eq substr($infl,8,1)) {
! 		$valid = 1;
  	}
+ 	return $valid;
  } # sub checkdigit