- $description =~ s@\n@\n @g;
- return " <listitem>\n" .
- " <para>\n" .
- " " . $description . "\n" .
- " </para>\n" .
- " </listitem>\n";
+ $description =~ s@\n@\n ${lws}@g;
+
+ $markup .= $lws . "<listitem>\n" .
+ $lws . " <para>\n";
+
+ $markup .= $lws . " " . $description . "\n";
+
+ if (defined $entry->{list_header}) {
+ $markup .= $lws . " <itemizedlist>\n";
+
+ } else {
+ if (defined $entry->{last_list_item}) {
+ $markup .= $lws . " </para>\n";
+ $markup .= $lws . "</itemizedlist>\n";
+ $lws = $default_lws;
+ }
+ $markup .= $lws . " </para>\n" .
+ $lws . "</listitem>\n";
+ }
+
+ return $markup;
+}
+
+sub wrap_in_para_itemlist_markup($) {
+ my $content = shift;
+ my $markup = "<para>\n" .
+ " <itemizedlist>\n" .
+ " $content" .
+ " </itemizedlist>\n" .
+ "</para>\n";
+ return $markup;