projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removing my own adress as "From" ;-)
[koha.git]
/
pay.pl
diff --git
a/pay.pl
b/pay.pl
index
68f8ad5
..
80ad227
100755
(executable)
--- a/
pay.pl
+++ b/
pay.pl
@@
-55,7
+55,7
@@
my @names=$input->param;
my %inp;
my $check=0;
for (my $i=0;$i<@names;$i++){
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;
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;
$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]);
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');
}
}
$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");
}
}