I have the following test code:
#!/usr/bin/perl -w
use strict;
use OpenOffice::OODoc;
use constant FALSE => 0;
use constant TRUE => 1;
my $doc = odfDocument(
file => "MyDocument.odt",
create => 'text'
);
my $rightStyle = $doc->createStyle(
"RightStyle",
family => 'paragraph',
parent => 'Standard',
properties => {
'-area' => 'paragraph',
'fo:text-align' => 'right',
'style:font-name' => 'Times New Roman'
}
);
my $leftStyle = $doc->createStyle(
"LeftStyle",
family => 'paragraph',
parent => 'Standard',
properties => {
'-area' => 'paragraph',
'fo:text-align' => 'left',
'style:font-name' => 'Times New Roman'
}
);
$doc->appendParagraph(
text => "RightStyle-Applied",
style => "RightStyle"
);
$doc->appendParagraph(
text => "LeftStyle-Applied",
style => "LeftStyle"
);
$doc->appendParagraph(
text => "\n\nThis is a test\n------\n",
style => "LeftStyle"
);
$doc->save;
exit 0;
### End of Main ###
### -- Begin of Subroutines --- ###
### -- End of Subroutines --- ###
###--- End of File ---###
The \n------\n is what I manually to do create a horizontal line within OpenOffice Writer. But when I run the above code, I just get the "------" on its own line and not a horizontal line.
Anyone have any ideas?