From 3779ef4e29bb20dca8c852b914710cd98b71e637 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 14 Apr 2004 19:44:33 +0000
Subject: [PATCH] *** empty log message ***

---
 admin/aqbookfund.pl        | 5 ++++-
 admin/systempreferences.pl | 2 ++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl
index 3c099d6870..26d99d537a 100755
--- a/admin/aqbookfund.pl
+++ b/admin/aqbookfund.pl
@@ -133,7 +133,10 @@ if ($op eq 'add_form') {
 	my $sth=$dbh->prepare("replace aqbookfund (bookfundid,bookfundname) values (?,?)");
 	$sth->execute($input->param('bookfundid'),$input->param('bookfundname'));
 	$sth->finish;
-													# END $OP eq ADD_VALIDATE
+	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
 } elsif ($op eq 'delete_confirm') {
diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl
index 1677ca1518..c273619d33 100755
--- a/admin/systempreferences.pl
+++ b/admin/systempreferences.pl
@@ -246,6 +246,8 @@ if ($op eq 'add_form') {
 		}
 	}
 	$sth->finish;
+	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=systempreferences.pl\"></html>";
+	exit;
 ################## DELETE_CONFIRM ##################################
 # called by default form, used to confirm deletion of data in DB
 } elsif ($op eq 'delete_confirm') {
-- 
2.39.5