1 package C4::Input; #asummes C4/Input
3 #package to deal with marking up output
8 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
10 # set the version for version checking
14 @EXPORT = qw(&checkflds &checkdigit);
15 %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
17 # your exported package globals go here,
18 # as well as any optionally exported functions
20 @EXPORT_OK = qw($Var1 %Hashit);
23 # non-exported package globals go here
24 use vars qw(@more $stuff);
26 # initalize package globals, first exported ones
32 # then the others (which are still accessible as $Some::Module::stuff)
36 # all file-scoped lexicals must be created before
37 # the functions below that use them.
39 # file-private lexicals go here
43 # here's a file-private function as a closure,
44 # callable as &$priv_func; it cannot be prototyped.
49 # make all your functions, whether exported or not;
52 my ($env,$reqflds,$data) = @_;
53 my $numrflds = @$reqflds;
56 while ($i < $numrflds) {
57 if ($data->{@$reqflds[$i]} eq "") {
58 push(@probarr, @$reqflds[$i]);
68 my @weightings = (8,4,6,3,5,2,1);
74 my $temp1 = $weightings[$i-1];
75 my $temp2 = substr($infl,$i,1);
76 $sum = $sum + ($temp1*$temp2);
77 # print "$sum $temp1 $temp2<br>";
85 if ($rem eq substr($infl,8,1)) {
91 END { } # module clean-up code here (global destructor)