1
2
3
4
5
6
7
8
9
10
11
my $list = $doc->insertItemList($par, $style = "L1");
$doc->appendListItem($list , text => "Eins", style => $styl);
$doc->appendListItem($list , text => "Zwei", style => $styl, level => 2);
$doc->appendItem($list, text => $_) for
(
"Platform : $^O",
"Perl version : $]",
"Archive::Zip version : $Archive::Zip::VERSION",
"XML::XPath version : $XML::XPath::VERSION",
"OpenOffice::OODoc version : $OpenOffice::OODoc::VERSION"
);
my $list = $doc->insertItemList($par, type => 'ordered', $style = "L1");
1
2
3
4
5
6
7
8
<text:list-style style:name="L1">
<text:list-level-style-bullet text:level="1" text:style-name="Bullet_20_Symbols" text:bullet-char="•">
<style:list-level-properties text:list-level-position-and-space-mode="label-alignment">
<style:list-level-label-alignment text:label-followed-by="listtab" text:list-tab-stop-position="1.27cm" fo:text-indent="-0.635cm" fo:margin-left="1.27cm"/>
</style:list-level-properties>
</text:list-level-style-bullet>
<text:list-level-style-bullet text:level="2" text:style-name="Bullet_20_Symbols" text:bullet-char="◦">
............