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

[Mike Hansen]

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

Modified Files:
	Input.pm 
Log Message:


Index: Input.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Input.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** Input.pm	19 Mar 2003 21:03:33 -0000	1.12
--- Input.pm	1 Jul 2003 17:22:17 -0000	1.13
***************
*** 80,88 ****
  #'
  sub checkdigit {
  	if (C4::Context->preference("checkdigit") eq "none") {
  		return 1;
  	} else {
- 		my ($env,$infl) =  @_;
- 		$infl = uc $infl;
  		my @weightings = (8,4,6,3,5,2,1);
  		my $sum;
--- 80,110 ----
  #'
  sub checkdigit {
+ 
+ 	my ($env,$infl, $nounique) =  @_;
+ 	$infl = uc $infl;
+ 
+ 
+ 	#Check to make sure the cardnumber is unique
+ 
+ 	#FIXME: We should make the error for a nonunique cardnumber
+ 	#different from the one where the checkdigit on the number is
+ 	#not correct
+ 
+ 	unless ( $nounique ) 
+ 	{
+ 		my $dbh=C4::Context->dbh;
+ 		my $query=qq{SELECT * FROM borrowers WHERE cardnumber="$infl"};
+ 		my $sth=$dbh->prepare($query);
+ 		$sth->execute;
+ 		my %results = $sth->fetchrow_hashref();
+ 		if ( $sth->rows != 0 )
+ 		{
+ 			return 0;
+ 		}
+ 	}
+ 
  	if (C4::Context->preference("checkdigit") eq "none") {
  		return 1;
  	} else {
  		my @weightings = (8,4,6,3,5,2,1);
  		my $sum;