view release on metacpan or  search on metacpan

lib/EB/Report/Journal/Wxhtml.pm  view on Meta::CPAN

#! perl

# Wxhtml.pm -- WxHtml backend for Journal reports.
# Author          : Johan Vromans
# Created On      : Thu Feb  7 14:21:31 2008
# Last Modified By: Johan Vromans
# Last Modified On: Fri Oct  9 20:13:02 2015
# Update Count    : 11
# Status          : Unknown, Use with caution!

package EB::Report::Journal::Wxhtml;

use strict;
use warnings;
use base qw(EB::Report::Reporter::WxHtml);

sub style {
    my ($self, $row, $cell) = @_;

    my $stylesheet = {
	head    => {
	    _style => { colour => 'red'  },
	},
	chead    => {
	    _style => { colour => 'red'  },
	    rel    => { link => "crd://" },
	},
	cheada   => {
	    _style => { colour => 'red'  },
	    desc   => { att => "att://" },
	    rel    => { link => "crd://" },
	},
	dhead    => {
	    _style => { colour => 'red'  },
	    rel    => { link => "deb://" },
	},
	dheada   => {
	    _style => { colour => 'red'  },
	    desc   => { att => "att://" },
	    rel    => { link => "deb://" },
	},
	total    => {
	    _style => { colour => 'blue',
		      }
	},
	data    => {
	    desc => { indent => '+2' },
	    acct => { link => "gbk://" },
	    bsk  => { indent => '+2' },
	},
	cdata    => {
	    desc => { indent => '+2' },
	    acct => { link => "gbk://" },
	    bsk  => { indent => '+2' },
	    rel  => { link => "crd://" },
	},
	ddata    => {
	    desc => { indent => '+2' },
	    acct => { link => "gbk://" },
	    bsk  => { indent => '+2' },
	    rel  => { link => "deb://" },
	},
    };

    $cell = "_style" unless defined($cell);
    return $stylesheet->{$row}->{$cell};
}

1;