Attachment #40906 for bug #14428

View | Details | Raw Unified | Return to bug 14428
Collapse All | Expand All




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 <http://www.gnu.org/licenses>.

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 <http://koha-community.org/>

=cut

Lines 28-34 use YAML qw/Load/; Link Here

(-)a/acqui/addorderiso2709.pl (-1 lines)
28		28
29	use C4::Context;	29	use C4::Context;
30	use C4::Auth;	30	use C4::Auth;
31	use C4::Input;
32	use C4::Output;	31	use C4::Output;
33	use C4::ImportBatch;	32	use C4::ImportBatch;
34	use C4::Matcher;	33	use C4::Matcher;

Lines 47-53 use strict; Link Here

(-)a/acqui/basketgroup.pl (-1 lines)
47	use warnings;	47	use warnings;
48	use Carp;	48	use Carp;
49		49
50	use C4::Input;
51	use C4::Auth;	50	use C4::Auth;
52	use C4::Output;	51	use C4::Output;
53	use CGI qw ( -utf8 );	52	use CGI qw ( -utf8 );




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;

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;

Lines 46-52 The bookseller who we want to display the orders of. Link Here

(-)a/acqui/uncertainprice.pl (-1 lines)
46	use strict;	46	use strict;
47	use warnings;	47	use warnings;
48		48
49	use C4::Input;
50	use C4::Auth;	49	use C4::Auth;
51	use C4::Output;	50	use C4::Output;
52	use CGI qw ( -utf8 );	51	use CGI qw ( -utf8 );

Lines 35-41 use C4::Context; Link Here

(-)a/admin/aqplan.pl (-1 lines)
35	use C4::Output;	35	use C4::Output;
36	use C4::Koha;	36	use C4::Koha;
37	use C4::Auth;	37	use C4::Auth;
38	use C4::Input;
39	use C4::Debug;	38	use C4::Debug;
40		39
41	my $input = new CGI;	40	my $input = new CGI;

Lines 36-42 use C4::Members::Attributes; Link Here

(-)a/members/memberentry.pl (-1 lines)
36	use C4::Members::AttributeTypes;	36	use C4::Members::AttributeTypes;
37	use C4::Koha;	37	use C4::Koha;
38	use C4::Dates qw/format_date format_date_in_iso/;	38	use C4::Dates qw/format_date format_date_in_iso/;
39	use C4::Input;
40	use C4::Log;	39	use C4::Log;
41	use C4::Letters;	40	use C4::Letters;
42	use C4::Branch; # GetBranches	41	use C4::Branch; # GetBranches




#!/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');
}

- 

Return to bug 14428

Lines 70-80 use warnings; Link Here

(-)a/acqui/neworderempty.pl (-3 lines)
70	use strict;	70	use strict;
71	use CGI qw ( -utf8 );	71	use CGI qw ( -utf8 );
72	use C4::Context;	72	use C4::Context;
73	use C4::Input;
74		73
75	use C4::Auth;	74	use C4::Auth;
76	use C4::Budgets;	75	use C4::Budgets;
77	use C4::Input;
78		76
79	use C4::Acquisition;	77	use C4::Acquisition;
80	use C4::Contract;	78	use C4::Contract;
Lines 82-88 use C4::Suggestions; # GetSuggestion Link Here
82	use C4::Biblio; # GetBiblioData GetMarcPrice	80	use C4::Biblio; # GetBiblioData GetMarcPrice
83	use C4::Items; #PrepareItemRecord	81	use C4::Items; #PrepareItemRecord
84	use C4::Output;	82	use C4::Output;
85	use C4::Input;
86	use C4::Koha;	83	use C4::Koha;
87	use C4::Branch; # GetBranches	84	use C4::Branch; # GetBranches
88	use C4::Members;	85	use C4::Members;

Lines 1-122 Link Here

(-)a/C4/Input.pm (-122 lines)
1	package C4::Input; #assumes C4/Input
2
3
4	# Copyright 2000-2002 Katipo Communications
5	#
6	# This file is part of Koha.
7	#
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.
12	#
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.
17	#
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>.
20
21	use strict;
22	use warnings;
23
24	require Exporter;
25	use C4::Context;
26	use CGI qw ( -utf8 );
27
28	use vars qw($VERSION @ISA @EXPORT);
29
30	# set the version for version checking
31	$VERSION = 3.07.00.049;
32
33	=head1 NAME
34
35	C4::Input - Miscellaneous sanity checks
36
37	=head1 SYNOPSIS
38
39	use C4::Input;
40
41	=head1 DESCRIPTION
42
43	This module provides functions to see whether a given library card
44	number or ISBN is valid.
45
46	=head1 FUNCTIONS
47
48	=over 2
49
50	=cut
51
52	@ISA = qw(Exporter);
53	@EXPORT = qw(
54	&checkdigit
55	);
56
57	=item checkdigit
58
59	$valid = &checkdigit($cardnumber $nounique);
60
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.
64
65	=cut
66
67	#'
68	sub checkdigit ($;$) {
69
70	my ($infl, $nounique) = @_;
71	$infl = uc $infl;
72
73	# Check to make sure the cardnumber is unique
74
75	#FIXME: We should make the error for a nonunique cardnumber
76	#different from the one where the checkdigit on the number is
77	#not correct
78
79	unless ( $nounique )
80	{
81	my $query=qq{SELECT * FROM borrowers WHERE cardnumber=?};
82	my $sth=C4::Context->prepare($query);
83	$sth->execute($infl);
84	my %results = $sth->fetchrow_hashref();
85	if ( $sth->rows != 0 )
86	{
87	return 0;
88	}
89	}
90	if (C4::Context->preference("checkdigit") eq "none") {
91	return 1;
92	}
93
94	my @weightings = (8,4,6,3,5,2,1);
95	my $sum;
96	foreach my $i (1..7) {
97	my $temp1 = $weightings[$i-1];
98	my $temp2 = substr($infl,$i,1);
99	$sum += $temp1 * $temp2;
100	}
101	my $rem = ($sum%11);
102	if ($rem == 10) {
103	$rem = "X";
104	}
105	if ($rem eq substr($infl,8,1)) {
106	return 1;
107	}
108	return 0;
109	} # sub checkdigit
110
111	END { } # module clean-up code here (global destructor)
112
113	1;
114	__END__
115
116	=back
117
118	=head1 AUTHOR
119
120	Koha Development Team <http://koha-community.org/>
121
122	=cut

Lines 1-14 Link Here

(-)a/t/Input.t (-15 lines)
1	#!/usr/bin/perl
2	#
3	# This Koha test module is a stub!
4	# Add more tests here!!!
5
6	use strict;
7	use warnings;
8
9	use Test::More tests => 1;
10
11	BEGIN {
12	use_ok('C4::Input');
13	}
14
15	-