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