[Koha-cvs] CVS: koha newimember.pl,1.2,1.3

[Andrew Arensburger]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4272

Modified Files:
	newimember.pl 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: newimember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newimember.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** newimember.pl	14 Aug 2002 18:12:51 -0000	1.2
--- newimember.pl	13 Oct 2002 07:34:08 -0000	1.3
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  #script to print confirmation screen, then if accepted calls itself to insert data
  
***************
*** 36,42 ****
  my %data;
  my @names=$input->param;
! foreach my $key (@names){                                                                                    
!   $data{$key}=$input->param($key);                                                                           
! }  
  my $ok=0;
  
--- 38,44 ----
  my %data;
  my @names=$input->param;
! foreach my $key (@names){
!   $data{$key}=$input->param($key);
! }
  my $ok=0;
  
***************
*** 73,77 ****
      print "Invalid cardnumber";
    } else {
!     
       my @inputs;
       my $i=0;
--- 75,79 ----
      print "Invalid cardnumber";
    } else {
! 
       my @inputs;
       my $i=0;
***************
*** 79,86 ****
         $value=~ s/\"/%22/g;
         $inputs[$i]=["hidden","$key","$value"];
!        $i++;                                  
!      }                                        
       $inputs[$i]=["submit","submit","submit"];
!      print mkformnotable("/cgi-bin/koha/insertidata.pl", at inputs);   
    }
  }
--- 81,88 ----
         $value=~ s/\"/%22/g;
         $inputs[$i]=["hidden","$key","$value"];
!        $i++;
!      }
       $inputs[$i]=["submit","submit","submit"];
!      print mkformnotable("/cgi-bin/koha/insertidata.pl", at inputs);
    }
  }