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 under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along
18 # with Koha; if not, write to the Free Software Foundation, Inc.,
19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
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.
60 $valid = &checkdigit($cardnumber $nounique);
62 Takes a card number, computes its check digit, and compares it to the
63 checkdigit at the end of C<$cardnumber>. Returns a true value iff
64 C<$cardnumber> has a valid check digit.
69 sub checkdigit
($;$) {
71 my ($infl, $nounique) = @_;
74 # Check to make sure the cardnumber is unique
76 #FIXME: We should make the error for a nonunique cardnumber
77 #different from the one where the checkdigit on the number is
82 my $query=qq{SELECT
* FROM borrowers WHERE cardnumber
=?
};
83 my $sth=C4
::Context
->prepare($query);
85 my %results = $sth->fetchrow_hashref();
86 if ( $sth->rows != 0 )
91 if (C4
::Context
->preference("checkdigit") eq "none") {
95 my @weightings = (8,4,6,3,5,2,1);
97 foreach my $i (1..7) {
98 my $temp1 = $weightings[$i-1];
99 my $temp2 = substr($infl,$i,1);
100 $sum += $temp1 * $temp2;
106 if ($rem eq substr($infl,8,1)) {
114 $CGIScrollingList = &buildCGISort($name string, $input_name string);
116 Returns the scrolling list with name $input_name, built on authorised Values named $name.
117 Returns NULL if no authorised values found
122 my ($name,$input_name,$data) = @_;
123 my $dbh=C4
::Context
->dbh;
124 my $query=qq{SELECT
* FROM authorised_values WHERE category
=? order by lib
};
125 my $sth=$dbh->prepare($query);
126 $sth->execute($name);
132 for (my $i =0;$i<$sth->rows;$i++){
133 my $results = $sth->fetchrow_hashref;
134 push @values, $results->{authorised_value
};
135 $labels{$results->{authorised_value
}}=$results->{lib
};
137 $CGISort= CGI
::scrolling_list
(
138 -name
=> $input_name,
149 END { } # module clean-up code here (global destructor)
158 Koha Development Team <http://koha-community.org/>