gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* fixing a bug 

* redirecting to patron page, it's more logic
This commit is contained in:
tipaul 2005-06-06 14:15:08 +00:00
parent 8195242c96
commit 9aa594ced9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pay.pl
View File

@ -55,7 +55,7 @@ my @names=$input->param;
my %inp;
my $check=0;
for (my $i=0;$i<@names;$i++){
my$temp=$input->param($names[$i]);
my $temp=$input->param($names[$i]);
if ($temp eq 'wo'){
$inp{$names[$i]}=$temp;
$check=1;
@ -64,6 +64,7 @@ for (my $i=0;$i<@names;$i++){
$user=~ s/Levin/C/i;
$user=~ s/Foxton/F/i;
$user=~ s/Shannon/S/i;
# FIXME : using array +4, +5, +6 is dirty. Should use arrays for each accountline
my $amount=$input->param($names[$i+4]);
my $bornum=$input->param($names[$i+5]);
my $accountno=$input->param($names[$i+6]);
@ -145,7 +146,7 @@ if ($check ==0){
}
}
$bornum=$input->param('bornum');
print $input->redirect("/cgi-bin/koha/pay.pl?bornum=$bornum");
print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$bornum");
}