[Koha-cvs] CVS: koha memberentry.pl,1.33,1.34 newmember.pl,1.12,1.13

[Mike Hansen]

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;