[Koha-cvs] CVS: koha/C4 Input.pm,1.10,1.11

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv15147/C4

Modified Files:
        Input.pm 
Log Message:
adding checkdigit parameter that choose how to check the members cardnumber.
At the moment :
* none = no checking
* katipo = checked as before

Index: Input.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Input.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** Input.pm    28 Feb 2003 16:29:11 -0000      1.10
--- Input.pm    18 Mar 2003 10:58:20 -0000      1.11
***************
*** 21,24 ****
--- 21,25 ----
  use strict;
  require Exporter;
+ use C4::Context;
  
  use vars qw($VERSION @ISA @EXPORT);
***************
*** 79,105 ****
  #'
  sub checkdigit {
!   my ($env,$infl) =  @_;
!   $infl = uc $infl;
!   my @weightings = (8,4,6,3,5,2,1);
!   my $sum;
!   my $i = 1;
!   my $valid = 0;
!   #  print $infl."<br>";
! 
!   foreach $i (1..7) {
!     my $temp1 = $weightings[$i-1];
!     my $temp2 = substr($infl,$i,1);
!     $sum += $temp1 * $temp2;
! #    print "$sum $temp1 $temp2<br>";
!   }
!   my $rem = ($sum%11);
!   if ($rem == 10) {
!     $rem = "X";
!   }
!   #print $rem."<br>";
!   if ($rem eq substr($infl,8,1)) {
!     $valid = 1;
!   }
!   return $valid;
  } # sub checkdigit
  
--- 80,108 ----
  #'
  sub checkdigit {
!       if (C4::Context->preference("checkdigit") eq "none") {
!               warn "XXcheckdigit : ".C4::Context->preference("checkdigit");
!               return 1;
!       } else {
!               my ($env,$infl) =  @_;
!               $infl = uc $infl;
!               my @weightings = (8,4,6,3,5,2,1);
!               my $sum;
!               my $i = 1;
!               my $valid = 0;
! 
!               foreach $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)) {
!                       $valid = 1;
!               }
!               return $valid;
!       }
  } # sub checkdigit