[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha memberentry.pl,1.33,1.34 newmember.pl,1.12,1.13
From: |
Mike Hansen |
Subject: |
[Koha-cvs] CVS: koha memberentry.pl,1.33,1.34 newmember.pl,1.12,1.13 |
Date: |
Tue, 01 Jul 2003 17:29:53 -0700 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv26855/koha
Modified Files:
memberentry.pl newmember.pl
Log Message:
Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -r1.33 -r1.34
*** memberentry.pl 21 May 2003 14:36:21 -0000 1.33
--- memberentry.pl 2 Jul 2003 00:29:51 -0000 1.34
***************
*** 150,154 ****
-multiple => 0 );
! $template->param(
member => $member,
address => $data->{'streetaddress'},
--- 150,154 ----
-multiple => 0 );
! $template->param( type => $type,
member => $member,
address => $data->{'streetaddress'},
Index: newmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newmember.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** newmember.pl 15 May 2003 12:25:05 -0000 1.12
--- newmember.pl 2 Jul 2003 00:29:51 -0000 1.13
***************
*** 75,79 ****
} else {
#check cardnumber is valid
! my $valid=checkdigit(\%env,$data{'cardnumber'});
if ($valid != 1){
$ok=1;
--- 75,88 ----
} else {
#check cardnumber is valid
! my $nounique;
! if ( $data{'type'} ne "Add" )
! {
! $nounique = 1;
! }
! else
! {
! $nounique = 0;
! }
! my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
if ($valid != 1){
$ok=1;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha memberentry.pl,1.33,1.34 newmember.pl,1.12,1.13,
Mike Hansen <=