fix list not closing right

LDP/txt2db/README

@@ -50,8 +50,6 @@ Foo			<para>Foo</para>
 
 '''Foo'''		<emphasis>Foo</emphasis>
 
-[filename]		<filename>filename</filename>
-
 Or, you can insert arbitrary DocBook. It cannot be embedded within anything
 else, though. In other words, you cannot have DocBook and one of the constructs
 above in the same line.

LDP/txt2db/txt2db.pl

@@ -82,18 +82,14 @@ sub proc_txt {
 
 		# blank lines
 		if ($line eq '') {
-			&closepara;
-			&closelist;
-			&closeorderedlist;
+			&closenonsect;
 			next;
 		}
 
 		# pass DocBook right on through
 		#
 		if ($line =~ /^</) {
-			&closepara;
-			$closelist;
-			&closeorderedlist;
+			&closenonsect;
 
 			$tag = $line;
 			$tag =~ s/^.*<//;
@@ -240,6 +236,12 @@ sub close3 {
 	}
 }
 
+sub closenonsect {
+	&closepara;
+	&closeorderedlist;
+	&closelist;
+}
+
 sub closeorderedlist {
 	&closepara;
 	&closelistitem;