From 4cef812d06f4e462abbfea500620f76402739c2e Mon Sep 17 00:00:00 2001 From: wolfpac444 Date: Wed, 2 Jul 2003 00:29:51 +0000 Subject: [PATCH] *** empty log message *** --- .../intranet-tmpl/default/en/members/memberentry.tmpl | 1 + memberentry.pl | 2 +- newmember.pl | 11 ++++++++++- 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/default/en/members/memberentry.tmpl b/koha-tmpl/intranet-tmpl/default/en/members/memberentry.tmpl index 452e154906..308b39470a 100644 --- a/koha-tmpl/intranet-tmpl/default/en/members/memberentry.tmpl +++ b/koha-tmpl/intranet-tmpl/default/en/members/memberentry.tmpl @@ -197,6 +197,7 @@ + > //images/2rightarrow.png" ALT="Add New Member" border=0 > diff --git a/memberentry.pl b/memberentry.pl index 912865fbd3..b07372b07a 100755 --- a/memberentry.pl +++ b/memberentry.pl @@ -149,7 +149,7 @@ if ($delete){ -size => 1, -multiple => 0 ); - $template->param( + $template->param( type => $type, member => $member, address => $data->{'streetaddress'}, firstname => $data->{'firstname'}, diff --git a/newmember.pl b/newmember.pl index d600f32583..cd433616c0 100755 --- a/newmember.pl +++ b/newmember.pl @@ -74,7 +74,16 @@ if ($data{'cardnumber'} eq ''){ $ok=1; } else { #check cardnumber is valid - my $valid=checkdigit(\%env,$data{'cardnumber'}); + my $nounique; + if ( $data{'type'} ne "Add" ) + { + $nounique = 1; + } + else + { + $nounique = 0; + } + my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique); if ($valid != 1){ $ok=1; $string.=" Invalid Cardnumber
"; -- 2.39.5