[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