1 package C4
::Input
; #assumes C4/Input
4 # Copyright 2000-2002 Katipo Communications
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
28 use vars
qw($VERSION @ISA @EXPORT);
30 # set the version for version checking
31 $VERSION = 3.07.00.049;
35 C4::Input - Miscellaneous sanity checks
43 This module provides functions to see whether a given library card
44 number or ISBN is valid.
59 $valid = &checkdigit($cardnumber $nounique);
61 Takes a card number, computes its check digit, and compares it to the
62 checkdigit at the end of C<$cardnumber>. Returns a true value iff
63 C<$cardnumber> has a valid check digit.
68 sub checkdigit
($;$) {
70 my ($infl, $nounique) = @_;
73 # Check to make sure the cardnumber is unique
75 #FIXME: We should make the error for a nonunique cardnumber
76 #different from the one where the checkdigit on the number is
81 my $query=qq{SELECT
* FROM borrowers WHERE cardnumber
=?
};
82 my $sth=C4
::Context
->prepare($query);
84 my %results = $sth->fetchrow_hashref();
85 if ( $sth->rows != 0 )
90 if (C4
::Context
->preference("checkdigit") eq "none") {
94 my @weightings = (8,4,6,3,5,2,1);
96 foreach my $i (1..7) {
97 my $temp1 = $weightings[$i-1];
98 my $temp2 = substr($infl,$i,1);
99 $sum += $temp1 * $temp2;
105 if ($rem eq substr($infl,8,1)) {
111 END { } # module clean-up code here (global destructor)
120 Koha Development Team <http://koha-community.org/>