[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Input.pm,1.12,1.13
From: |
Mike Hansen |
Subject: |
[Koha-cvs] CVS: koha/C4 Input.pm,1.12,1.13 |
Date: |
Tue, 01 Jul 2003 10:22:19 -0700 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Input.pm,1.12,1.13,
Mike Hansen <=