[Koha-cvs] CVS: koha newimember.pl,1.6,1.7 newjmember.pl,1.9,1.10 newmember.pl,1.16,1.17

[Paul POULAIN]

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