path: root/LedgerSMB/Template.pm

#=====================================================================
#
# Template support module for LedgerSMB
# LedgerSMB::Template
#
# LedgerSMB 
# Small Medium Business Accounting software
# http://www.ledgersmb.org/
# 
#
# Copyright (C) 2007
# This work contains copyrighted information from a number of sources all used
# with permission.  It is released under the GNU General Public License 
# Version 2 or, at your option, any later version.  See COPYRIGHT file for 
# details.
#
#
#======================================================================
# This package contains template related functions:
#
#
#====================================================================
use Error qw(:try);
use Template;
use LedgerSMB::Sysconfig;

package LedgerSMB::Template;

sub new {
    my $class = shift;
    my $self = {};
    $self->{myconfig} = shift;
    $self->{template} = shift;
    $self->{format} = shift;
    $self->{language} = shift;
    $self->{output} = '';
    bless $self, $class;
    return $self;
}

sub valid_language {
    my $self = shift;
    # XXX Actually perform validity checks
    return 1;
}

sub render {
    my $self = shift;
    my $vars = shift;
    my $template;

    if (not defined $self->{language}) {
        $template = Template->new({
            INCLUDE_PATH => $self->{'myconfig'}->{'templates'},
            START_TAG => quotemeta('<?lsmb'),
            END_TAG => quotemeta('?>'),
            DELIMITER => ';',
            }) || throw Error::Simple Template->error(); 
    } elsif ($self->valid_language()) {
        $template = Template->new({
            INCLUDE_PATH => "$self->{'myconfig'}->{'templates'}/$self->{language};$self->{'myconfig'}->{'templates'}",
            START_TAG => quotemeta('<?lsmb'),
            END_TAG => quotemeta('?>'),
            DELIMITER => ';',
            }) || throw Error::Simple Template->error();
    } else {
        throw Error::Simple 'Invalid language';
    }

    eval "require LedgerSMB::Template::$self->{format}";
    if ($@) {
        throw Error::Simple $@;
    }

    my $cleanvars = &{"LedgerSMB::Template::$self->{format}::preprocess"}($vars);
    if (not $template->process(
        &{"LedgerSMB::Template::$self->{format}::get_template"}($self->{template}), 
            $cleanvars, \$self->{output}, binmode => ':utf8')) {
        throw Error::Simple $template->error();
    }

    &{"LedgerSMB::Template::$self->{format}::postprocess"}($self);

    return $self->{output};
}

1;