[Koha-cvs] CVS: koha pay.pl,1.9.2.1,1.9.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32105

Modified Files:
      Tag: rel_2_2
        pay.pl 
Log Message:
* fixing a bug
* redirecting to patron page, it's more logic

Index: pay.pl
===================================================================
RCS file: /cvsroot/koha/koha/pay.pl,v
retrieving revision 1.9.2.1
retrieving revision 1.9.2.2
diff -C2 -r1.9.2.1 -r1.9.2.2
*** pay.pl      16 Feb 2005 19:16:35 -0000      1.9.2.1
--- pay.pl      6 Jun 2005 14:15:08 -0000       1.9.2.2
***************
*** 56,60 ****
  my $check=0;
  for (my $i=0;$i<@names;$i++){
!       my$temp=$input->param($names[$i]);
        if ($temp eq 'wo'){
                $inp{$names[$i]}=$temp;
--- 56,60 ----
  my $check=0;
  for (my $i=0;$i<@names;$i++){
!       my $temp=$input->param($names[$i]);
        if ($temp eq 'wo'){
                $inp{$names[$i]}=$temp;
***************
*** 65,68 ****
--- 65,69 ----
                $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]);
***************
*** 146,150 ****
        }
        $bornum=$input->param('bornum');
!       print $input->redirect("/cgi-bin/koha/pay.pl?bornum=$bornum");
  }
  
--- 147,151 ----
        }
        $bornum=$input->param('bornum');
!       print 
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$bornum");
  }