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

[Andrew Arensburger]

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

Modified Files:
        newmember.pl 
Log Message:
Removed trailing whitespace.
Added a FIXME comment.


Index: newmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newmember.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** newmember.pl        14 Aug 2002 18:12:51 -0000      1.2
--- newmember.pl        13 Oct 2002 07:51:44 -0000      1.3
***************
*** 1,6 ****
  #!/usr/bin/perl
  
! #script to print confirmation screen, then if accepted calls itself to insert 
data
  
  
  # Copyright 2000-2002 Katipo Communications
--- 1,8 ----
  #!/usr/bin/perl
  
! # $Id$
  
+ #script to print confirmation screen, then if accepted calls itself to insert 
data
+ # FIXME - Yes, but what does it _do_?
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 36,42 ****
  my %data;
  my @names=$input->param;
! foreach my $key (@names){                                                     
                               
!   $data{$key}=$input->param($key);                                            
                               
! }  
  print $input->header;
  print startpage();
--- 38,44 ----
  my %data;
  my @names=$input->param;
! foreach my $key (@names){
!   $data{$key}=$input->param($key);
! }
  print $input->header;
  print startpage();
***************
*** 50,54 ****
    and try again<p>";
    if ($data{'cardnumber'} eq ''){
!    
       $string.=" Cardnumber<br>";
      $ok=1;
--- 52,56 ----
    and try again<p>";
    if ($data{'cardnumber'} eq ''){
! 
       $string.=" Cardnumber<br>";
      $ok=1;
***************
*** 157,161 ****
     while (my ($key, $value) = each %data) {
       $value=~ s/\"/%22/g;
!      $inputs[$i]=["hidden","$key","$value"];       
       $i++;
     }
--- 159,163 ----
     while (my ($key, $value) = each %data) {
       $value=~ s/\"/%22/g;
!      $inputs[$i]=["hidden","$key","$value"];
       $i++;
     }