3 # written 31/5/00 by chris@katipo.co.nz to make a way to fix account mistakes
13 #print $input->header();
16 my $bornum=$input->param('bornum');
18 my @name=$input->param;
20 foreach my $key (@name){
21 if ($key ne 'bornum'){
22 my $temp=$input->param($key);
26 fixaccounts($bornum,$key,$temp);
32 print $input->redirect("boraccount.pl?bornum=$bornum");