#! perl
# Wxhtml.pm -- WxHtml backend for Proof/Saldi report.
# Author : Johan Vromans
# Created On : ***
# Last Modified By: Johan Vromans
# Last Modified On: Sat Jun 19 00:38:57 2010
# Update Count : 4
# Status : Unknown, Use with caution!
package EB::Report::Proof::Wxhtml;
use strict;
use warnings;
use base qw(EB::Report::Reporter::WxHtml);
sub style {
my ($self, $row, $cell) = @_;
my $stylesheet = {
d => {
acct => { link => "gbk://" },
},
d2 => {
acct => { link => "gbk://" },
desc => { indent => 2 },
},
h1 => {
_style => { colour => 'red',
size => '+2',
}
},
h2 => {
_style => { colour => 'red' },
desc => { indent => 1,},
},
t1 => {
_style => { colour => 'blue',
size => '+1',
}
},
t2 => {
_style => { colour => 'blue' },
desc => { indent => 1 },
},
v => {
_style => { colour => 'red',
size => '+2',
}
},
grand => {
_style => { colour => 'blue' }
},
};
$cell = "_style" unless defined($cell);
return $stylesheet->{$row}->{$cell};
}
1;