*** empty log message ***

diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl
index 3c099d6..26d99d5 100755 (executable)
--- 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 1677ca1..c273619 100755 (executable)
--- 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') {