@@ -, +, @@ - acqui/addorderiso2709.pl - acqui/basketgroup.pl - acqui/neworderempty.pl - acqui/uncertainprice.pl - admin/aqplan.pl - members/memberentry.pl my $temp2 = substr($infl,$i,1); if ($rem eq substr($infl,8,1)) { use_ok('C4::Input'); --- C4/Input.pm | 122 ----------------------------------------------- acqui/addorderiso2709.pl | 1 - acqui/basketgroup.pl | 1 - acqui/neworderempty.pl | 3 -- acqui/uncertainprice.pl | 1 - admin/aqplan.pl | 1 - members/memberentry.pl | 1 - t/Input.t | 14 ------ 8 files changed, 144 deletions(-) delete mode 100644 C4/Input.pm delete mode 100755 t/Input.t --- a/C4/Input.pm +++ a/C4/Input.pm @@ -1,122 +0,0 @@ -package C4::Input; #assumes C4/Input - - -# Copyright 2000-2002 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3 of the License, or -# (at your option) any later version. -# -# Koha is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with Koha; if not, see . - -use strict; -use warnings; - -require Exporter; -use C4::Context; -use CGI qw ( -utf8 ); - -use vars qw($VERSION @ISA @EXPORT); - -# set the version for version checking -$VERSION = 3.07.00.049; - -=head1 NAME - -C4::Input - Miscellaneous sanity checks - -=head1 SYNOPSIS - - use C4::Input; - -=head1 DESCRIPTION - -This module provides functions to see whether a given library card -number or ISBN is valid. - -=head1 FUNCTIONS - -=over 2 - -=cut - -@ISA = qw(Exporter); -@EXPORT = qw( - &checkdigit -); - -=item checkdigit - - $valid = &checkdigit($cardnumber $nounique); - -Takes a card number, computes its check digit, and compares it to the -checkdigit at the end of C<$cardnumber>. Returns a true value iff -C<$cardnumber> has a valid check digit. - -=cut - -#' -sub checkdigit ($;$) { - - my ($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 $query=qq{SELECT * FROM borrowers WHERE cardnumber=?}; - my $sth=C4::Context->prepare($query); - $sth->execute($infl); - my %results = $sth->fetchrow_hashref(); - if ( $sth->rows != 0 ) - { - return 0; - } - } - if (C4::Context->preference("checkdigit") eq "none") { - return 1; - } - - my @weightings = (8,4,6,3,5,2,1); - my $sum; - foreach my $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)) { - return 1; - } - return 0; -} # sub checkdigit - -END { } # module clean-up code here (global destructor) - -1; -__END__ - -=back - -=head1 AUTHOR - -Koha Development Team - -=cut --- a/acqui/addorderiso2709.pl +++ a/acqui/addorderiso2709.pl @@ -28,7 +28,6 @@ use YAML qw/Load/; use C4::Context; use C4::Auth; -use C4::Input; use C4::Output; use C4::ImportBatch; use C4::Matcher; --- a/acqui/basketgroup.pl +++ a/acqui/basketgroup.pl @@ -47,7 +47,6 @@ use strict; use warnings; use Carp; -use C4::Input; use C4::Auth; use C4::Output; use CGI qw ( -utf8 ); --- a/acqui/neworderempty.pl +++ a/acqui/neworderempty.pl @@ -70,11 +70,9 @@ use warnings; use strict; use CGI qw ( -utf8 ); use C4::Context; -use C4::Input; use C4::Auth; use C4::Budgets; -use C4::Input; use C4::Acquisition; use C4::Contract; @@ -82,7 +80,6 @@ use C4::Suggestions; # GetSuggestion use C4::Biblio; # GetBiblioData GetMarcPrice use C4::Items; #PrepareItemRecord use C4::Output; -use C4::Input; use C4::Koha; use C4::Branch; # GetBranches use C4::Members; --- a/acqui/uncertainprice.pl +++ a/acqui/uncertainprice.pl @@ -46,7 +46,6 @@ The bookseller who we want to display the orders of. use strict; use warnings; -use C4::Input; use C4::Auth; use C4::Output; use CGI qw ( -utf8 ); --- a/admin/aqplan.pl +++ a/admin/aqplan.pl @@ -35,7 +35,6 @@ use C4::Context; use C4::Output; use C4::Koha; use C4::Auth; -use C4::Input; use C4::Debug; my $input = new CGI; --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -36,7 +36,6 @@ use C4::Members::Attributes; use C4::Members::AttributeTypes; use C4::Koha; use C4::Dates qw/format_date format_date_in_iso/; -use C4::Input; use C4::Log; use C4::Letters; use C4::Branch; # GetBranches --- a/t/Input.t +++ a/t/Input.t @@ -1,14 +0,0 @@ -#!/usr/bin/perl -# -# This Koha test module is a stub! -# Add more tests here!!! - -use strict; -use warnings; - -use Test::More tests => 1; - -BEGIN { - use_ok('C4::Input'); -} - --