[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha newimember.pl,1.6,1.7 newjmember.pl,1.9,1.10 newmem
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha newimember.pl,1.6,1.7 newjmember.pl,1.9,1.10 newmember.pl,1.16,1.17 |
Date: |
Fri, 28 Nov 2003 04:51:28 -0800 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv2489
Modified Files:
newimember.pl newjmember.pl newmember.pl
Log Message:
fix for #564
Index: newimember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newimember.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** newimember.pl 19 Feb 2003 05:22:01 -0000 1.6
--- newimember.pl 28 Nov 2003 12:51:26 -0000 1.7
***************
*** 90,94 ****
($data{'cardnumber_institution'});
! my $valid=checkdigit(\%env,$data{"cardnumber_institution"});
$template->param( invalid => ($valid !=1));
--- 90,101 ----
($data{'cardnumber_institution'});
! #check cardnumber is valid
! my $nounique;
! if ( $data{'type'} ne "Add" ) {
! $nounique = 0;
! } else {
! $nounique = 1;
! }
! my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
$template->param( invalid => ($valid !=1));
Index: newjmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newjmember.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** newjmember.pl 30 Apr 2003 00:56:21 -0000 1.9
--- newjmember.pl 28 Nov 2003 12:51:26 -0000 1.10
***************
*** 89,93 ****
$missing=1;
}
! my $valid=checkdigit(\%env,$data{"cardnumber_child_$i"});
if ($valid != 1){
$string.=" Invalid Cardnumber $number<br>";
--- 89,100 ----
$missing=1;
}
! #check cardnumber is valid
! my $nounique;
! if ( $data{'type'} ne "Add" ) {
! $nounique = 0;
! } else {
! $nounique = 1;
! }
! my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
if ($valid != 1){
$string.=" Invalid Cardnumber $number<br>";
Index: newmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newmember.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** newmember.pl 4 Sep 2003 14:29:44 -0000 1.16
--- newmember.pl 28 Nov 2003 12:51:26 -0000 1.17
***************
*** 78,88 ****
#check cardnumber is valid
my $nounique;
! if ( $data{'type'} ne "Add" )
! {
! $nounique = 1;
! }
! else
! {
$nounique = 0;
}
my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
--- 78,85 ----
#check cardnumber is valid
my $nounique;
! if ( $data{'type'} ne "Add" ) {
$nounique = 0;
+ } else {
+ $nounique = 1;
}
my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha newimember.pl,1.6,1.7 newjmember.pl,1.9,1.10 newmember.pl,1.16,1.17,
Paul POULAIN <=