[Koha-cvs] CVS: koha modrequest.pl,1.3,1.4

[Chris Cormack]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv3119

Modified Files:
	modrequest.pl 
Log Message:
Fixing bug 388


Index: modrequest.pl
===================================================================
RCS file: /cvsroot/koha/koha/modrequest.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** modrequest.pl	27 Sep 2002 05:21:44 -0000	1.3
--- modrequest.pl	22 Apr 2003 08:39:04 -0000	1.4
***************
*** 33,41 ****
  #print $input->header;
  
! #print $input->dump;
  
  my @rank=$input->param('rank-request');
  my @biblio=$input->param('biblio');
! my @borrower=$input->param('borrower');
  my @branch=$input->param('pickup');
  my $count=@rank;
--- 33,41 ----
  #print $input->header;
  
! #print $input->Dump;
  
  my @rank=$input->param('rank-request');
  my @biblio=$input->param('biblio');
! my @borrower=$input->param('borrowernumber');
  my @branch=$input->param('pickup');
  my $count=@rank;
***************
*** 45,48 ****
--- 45,49 ----
  for (my $i=0;$i<$count;$i++){
      UpdateReserve($rank[$i],$biblio[$i],$borrower[$i],$branch[$i]); #from C4::Reserves2
+       print "updating reserve";
  }