[Koha-cvs] CVS: koha newjmember.pl,1.10,1.10.2.1

[Chris Cormack]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4994

Modified Files:
      Tag: rel_2_0
        newjmember.pl 
Log Message:
Fix for bug 729


Index: newjmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/Attic/newjmember.pl,v
retrieving revision 1.10
retrieving revision 1.10.2.1
diff -C2 -r1.10 -r1.10.2.1
*** newjmember.pl       28 Nov 2003 12:51:26 -0000      1.10
--- newjmember.pl       28 Apr 2004 09:31:20 -0000      1.10.2.1
***************
*** 3,7 ****
  # $Id$
  
! #script to print confirmation screen, then if accepted calls itself to insert 
data
  # FIXME - Yes, but what does it _do_?
  # 2002/12/18 address@hidden
--- 3,7 ----
  # $Id$
  
! # script to print confirmation screen, then if accepted calls itself to 
insert data
  # FIXME - Yes, but what does it _do_?
  # 2002/12/18 address@hidden
***************
*** 96,100 ****
        $nounique = 1;
      }
!     my $valid=checkdigit(\%env,$data{'cardnumber'}, $nounique);
      if ($valid != 1){
        $string.=" Invalid Cardnumber $number<br>";
--- 96,100 ----
        $nounique = 1;
      }
!     my $valid=checkdigit(\%env,$number, $nounique);
      if ($valid != 1){
        $string.=" Invalid Cardnumber $number<br>";