3 #script to print confirmation screen, then if accepted calls itself to insert data
13 #get varibale that tells us whether to show confirmation page
15 my $insert=$input->param('insert');
19 my @names=$input->param;
20 foreach my $key (@names){
21 $data{$key}=$input->param($key);
25 my $string="The following compulsary fields have been left blank. Please push the back button
27 for (my $i=0;$i<3;$i++){
28 my $number=$data{"cardnumber_child_$i"};
29 my $firstname=$data{"firstname_child_$i"};
30 my $surname=$data{"surname_child_$i"};
31 my $dob=$data{"dateofbirth_child_$i"};
32 my $sex=$data{"sex_child_$i"};
35 $string.=" Cardnumber<br>";
39 if ($firstname eq ''){
40 $string.=" Given Names<br>";
44 $string.=" Surname<br>";
48 $string.=" Date Of Birth<br>";
52 $string.=" Gender <br>";
55 my $valid=checkdigit(\%env,$data{"cardnumber_child_$i"});
58 $string.=" Invalid Cardnumber $number<br>";
64 print startmenu('member');
67 print mkheadr(1,'Confirm Record');
69 my $image="/images/background-mem.gif";
70 for (my $i=0;$i<3;$i++){
71 if ($data{"cardnumber_child_$i"} ne ''){
73 print mktablerow(2,$main,bold('NEW MEMBER'),"",$image);
74 my $name=$data{"firstname_child_$i"}.$data{"surname_child_$i"};
75 print mktablerow(2,'white',bold('Name'),$name);
76 print mktablerow(2,$main,bold('MEMBERSHIP DETAILS'),"",$image);
77 print mktablerow(2,'white',bold('Membership Number'),$data{"bornumber_child_$i"});
78 print mktablerow(2,'white',bold('Date of Birth'),$data{"dateofbirth_child_$i"});
80 if ($data{"sex_child_$i"} eq 'M'){
85 print mktablerow(2,'white',bold('Sex'),$sex);
86 print mktablerow(2,'white',bold('School'),$data{"school_child_$i"});
87 print mktablerow(2,'white',bold('General Notes'),$data{"altnotes_child_$i"});
95 while (my ($key, $value) = each %data) {
97 $inputs[$i]=["hidden","$key","$value"];
100 $inputs[$i]=["submit","submit","submit"];
101 print mkformnotable("/cgi-bin/koha/insertjdata.pl",@inputs);
109 print endmenu('member');