[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");
  }