[Koha-cvs] CVS: koha newimember.pl,1.2,1.3
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 09:34:10 CEST 2002
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);
}
}
More information about the Koha-cvs
mailing list