[Koha-cvs] CVS: koha/admin aqbookfund.pl,1.17,1.18

[Paul POULAIN]

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

Modified Files:
        aqbookfund.pl 
Log Message:


Index: aqbookfund.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbookfund.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** aqbookfund.pl       11 Mar 2004 05:42:55 -0000      1.17
--- aqbookfund.pl       14 Apr 2004 19:44:33 -0000      1.18
***************
*** 134,138 ****
        
$sth->execute($input->param('bookfundid'),$input->param('bookfundname'));
        $sth->finish;
!                                                                               
                        # END $OP eq ADD_VALIDATE
  ################## DELETE_CONFIRM ##################################
  # called by default form, used to confirm deletion of data in DB
--- 134,141 ----
        
$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>";
!       exit;
!                       
!                                                                               
# END $OP eq ADD_VALIDATE
  ################## DELETE_CONFIRM ##################################
  # called by default form, used to confirm deletion of data in DB