Extra alterations.

[kiriwrite/.git] / cgi-files / lib / filter.lib

diff --git a/cgi-files/lib/filter.lib b/cgi-files/lib/filter.lib
index c4e8825..a0053df 100644 (file)
--- a/cgi-files/lib/filter.lib
+++ b/cgi-files/lib/filter.lib
@@ -366,8 +366,22 @@ sub kiriwrite_filter_list{
                # The filter database doesn't exist so write
                # a message.
 
-               $filterswarning = $kiriwrite_lang->{filter}->{filterdatabasedoesnotexist};
+               $kiriwrite_presmodule->clear();
+               $kiriwrite_presmodule->addtext(kiriwrite_language($kiriwrite_lang->{filter}->{viewfilters}, $db_name), { Style => "pageheader" });
+               $kiriwrite_presmodule->addlinebreak();
+               $kiriwrite_presmodule->addlinebreak();
+               $kiriwrite_presmodule->startbox("errorbox");
+               $kiriwrite_presmodule->enterdata($kiriwrite_lang->{filter}->{filterdatabasedoesnotexist});
+               $kiriwrite_presmodule->endbox();
+
+               # Disconnect from the filter database.
+
+               $kiriwrite_dbmodule->disconnectfilter();
 
+               # Disconnect from the database server.
+
+               $kiriwrite_dbmodule->disconnect();
+               return $kiriwrite_presmodule->grab();
 
        }