X-Git-Url: http://Server1/repobrowser/?p=kiriwrite%2F.git;a=blobdiff_plain;f=cgi-files%2Flib%2Ffilter.lib;h=a0053df9dfd082e4534c470a43ed59ac4ec2cb41;hp=c4e88254130bf6d638a05d9174ebb631faf4c040;hb=fe1dc6f1bd9353cc3dd3adf7b80985d457ed457d;hpb=fb02a3c6cb60580a1dce80522a06168919460207

diff --git a/cgi-files/lib/filter.lib b/cgi-files/lib/filter.lib
index c4e8825..a0053df 100644
--- 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();
 
 	}