[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;