summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-24 19:24:15 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-24 19:24:15 +0000
commit5f4abd6713bee259eaa8e62403e4d8af8ae9ae89 (patch)
tree758c34819044ca03800ae71f1ec28e40df382a87 /LedgerSMB
parent9e34b3bf12cfda888c75a3a90decd447752fd4ff (diff)
Starting the addition of style support to LSMB::T::ODS
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1658 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/Template/ODS.pm77
1 files changed, 75 insertions, 2 deletions
diff --git a/LedgerSMB/Template/ODS.pm b/LedgerSMB/Template/ODS.pm
index b425494b..cd85e526 100644
--- a/LedgerSMB/Template/ODS.pm
+++ b/LedgerSMB/Template/ODS.pm
@@ -94,9 +94,79 @@ sub _row_handler {
sub _cell_handler {
my $cell = $ods->getCell(-1, $rowcount, $currcol);
$ods->cellValue($cell, $_->{att}->{text});
+ if (@basestyle) {
+ $ods->cellStyle($cell, $basestyle[0][0]);
+ }
$currcol++;
}
+sub _format_handler {
+ my ($t, $format) = @_;
+ my $style = "ce$stylecount";
+
+ my @width = ('none', '0.018cm solid', '0.035cm solid',
+ '0.018cm dashed', '0.018cm dotted', '0.141cm solid',
+ '0.039cm double', '0.002cm solid');
+ my %properties;
+ if (@basestyle) {
+ %properties = %{$basestyle[0][1]};
+ }
+ while (my ($attr, $val) = each %{$format->{att}}) {
+ if ($attr eq 'bottom') {
+ $properties{cell}{'fo:border-bottom'} = "$width[$val] #000000";
+ } elsif ($attr eq 'top') {
+ $properties{cell}{'fo:border-top'} = "$width[$val] #000000";
+ } elsif ($attr eq 'left') {
+ $properties{cell}{'fo:border-left'} = "$width[$val] #000000";
+ } elsif ($attr eq 'right') {
+ $properties{cell}{'fo:border-right'} = "$width[$val] #000000";
+ } elsif ($attr eq 'border') {
+ $properties{cell}{'fo:border'} = "$width[$val] #000000";
+ } elsif ($attr eq 'align') {
+ $properties{text}{'fo:text-align'} = $val;
+ } elsif ($attr eq 'valign') {
+ # takes top, vcenter, bottom, or vjustify
+ # needs top, middle, or bottom
+ if ($val =~ /^v/) {
+ $properties{text}{'fo:vertical-align'} = 'middle';
+ } else {
+ $properties{text}{'fo:vertical-align'} = $val;
+ }
+ } elsif ($attr eq 'bold') {
+ if ($properties{text}{'fo:font-weight'} and !$val) {
+ delete $properties{'fo:font-weight'};
+ } elsif ($val) {
+ $properties{text}{'fo:font-weight'} = 'bold';
+ }
+ } elsif ($attr eq 'italic') {
+ if ($properties{'fo:font-style'} and !$val) {
+ delete $properties{text}{'fo:font-style'};
+ } elsif ($val) {
+ $properties{text}{'fo:font-style'} = 'italic';
+ }
+ }
+ }
+ $ods->createStyle(
+ $style,
+ family => 'table-cell',
+ properties => $properties{cell},
+ );
+ $ods->updateStyle(
+ $style,
+ properties => {
+ -area => 'text',
+ %{$properties{text}}
+ }
+ );
+ unshift @basestyle, [$style, \%properties];
+ $stylecount++;
+}
+
+sub _format_cleanup_handler {
+ my ($t, $format) = @_;
+ shift @basestyle;
+}
+
sub _ods_process {
my ($filename, $template, $user) = @_;
@@ -105,18 +175,21 @@ sub _ods_process {
local $sheet;
local $rowcount;
local $currcol;
+ local $stylecount = 1;
+ local @basestyle;
my $parser = XML::Twig->new(
start_tag_handlers => {
worksheet => \&_worksheet_handler,
row => \&_row_handler,
+ cell => \&_cell_handler,
+ format => \&_format_handler,
},
twig_handlers => {
- cell => \&_cell_handler,
+ format => \&_format_cleanup_handler,
}
);
$parser->parse($template);
$parser->flush;
- #$ods->normalizeSheet($sheet, $rowcount, $colcount);
$ods->save;
}