[Koha-cvs] CVS: koha/admin aqbookfund.pl,1.19.2.3,1.19.2.4

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
	aqbookfund.pl 
Log Message:
backporting branchcode save, forgotten during head => 2.2 backport

Index: aqbookfund.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbookfund.pl,v
retrieving revision 1.19.2.3
retrieving revision 1.19.2.4
diff -C2 -r1.19.2.3 -r1.19.2.4
*** aqbookfund.pl	26 Aug 2005 12:21:49 -0000	1.19.2.3
--- aqbookfund.pl	9 Sep 2005 08:39:17 -0000	1.19.2.4
***************
*** 164,169 ****
  	$sth->execute($bookfundid);
  	$sth->finish;
! 	my $sth=$dbh->prepare("replace aqbookfund (bookfundid,bookfundname) values (?,?)");
! 	$sth->execute($input->param('bookfundid'),$input->param('bookfundname'));
  	$sth->finish;
  	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=aqbookfund.pl\"></html>";
--- 164,169 ----
  	$sth->execute($bookfundid);
  	$sth->finish;
! 	my $sth=$dbh->prepare("replace aqbookfund (bookfundid,bookfundname,branchcode) values (?,?,?)");
! 	$sth->execute($input->param('bookfundid'),$input->param('bookfundname'),$input->param('branchcode'));
  	$sth->finish;
  	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=aqbookfund.pl\"></html>";