path: root/LedgerSMB/Template/LaTeX.pm

=head1 NAME

LedgerSMB::Template::LaTeX  Template support module for LedgerSMB

=head1 SYNOPSIS

Muxed LaTeX rendering support.  Handles PDF, Postscript, and DVI output.

=head1 DETAILS

The final output format is determined by the format_option of filetype.  The
valid filetype specifiers are 'pdf', 'ps', and 'dvi'.

=head1 METHODS

=over

=item get_template ($name)

Returns the appropriate template filename for this format.

=item preprocess ($vars)

Currently does nothing.

=item process ($parent, $cleanvars)

Processes the template for the appropriate output format.

=item postprocess ($parent)

Currently does nothing.

=back

=head1 Copyright (C) 2007, The LedgerSMB core team.

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.  For a full list 
including contact information of contributors, maintainers, and copyright 
holders, see the CONTRIBUTORS file.
=cut

package LedgerSMB::Template::LaTeX;

use warnings;
use strict;

use Error qw(:try);
use Template::Latex;
use LedgerSMB::Template::TTI18N;

sub get_template {
    my $name = shift;
    return "${name}.tex";
}

sub preprocess {
    my $rawvars = shift;
    my $vars;
    my $type = ref $rawvars;

    return $rawvars if $type =~ /^LedgerSMB::Locale/;
    return unless defined $type;
    if ($type eq 'ARRAY') {
        for (@{$rawvars}) {
            push @{$vars}, preprocess($_);
        }
    } elsif (!$type or $type eq 'SCALAR' or $type eq 'Math::BigInt::GMP'
        or $type eq 'CODE'
    ) {
        if ($type eq 'SCALAR' or $type eq 'Math::BigInt::GMP') {
            $vars = $$rawvars;
        } else {
            $vars = $rawvars;
        }
        #XXX Fix escaping
        if (defined $vars){
            $vars =~ s/([&\$\\_<>~^#\%\{\}])/\\$1/g;
            $vars =~ s/"(.*)"/``$1''/gs;
        }
    } else {
        print STDERR "Type: $type\n";
        for ( keys %{$rawvars} ) {
            $vars->{$_} = preprocess($rawvars->{$_});
        }
    }
    return $vars;
}

sub process {
    my $parent = shift;
    my $cleanvars = shift;
    my $template;
    my $source;
    $parent->{outputfile} ||=
        "${LedgerSMB::Sysconfig::tempdir}/$parent->{template}-output-$$";

    if (ref $parent->{template} eq 'SCALAR') {
        $source = $parent->{template};
    } elsif (ref $parent->{template} eq 'ARRAY') {
        $source = join "\n", @{$parent->{template}};
    } else {
        $source = get_template($parent->{template});
    }
    $Template::Latex::DEBUG = 1 if $parent->{debug};
    my $format = 'ps';
    if ($parent->{format_args}{filetype} eq 'dvi') {
        $format = 'dvi';
    } elsif ($parent->{format_args}{filetype} eq 'pdf') {
        $format = 'pdf';
    }
    $template = Template::Latex->new({
        LATEX_FORMAT => $format,
        INCLUDE_PATH => $parent->{include_path},
        START_TAG => quotemeta('<?lsmb'),
        END_TAG => quotemeta('?>'),
        DELIMITER => ';',
        DEBUG => ($parent->{debug})? 'dirs': undef,
        DEBUG_FORMAT => '',
        }) || throw Error::Simple Template::Latex->error(); 
    if (not $template->process(
        $source, 
        {%$cleanvars, %$LedgerSMB::Template::TTI18N::ttfuncs,
            'escape' => \&preprocess},
        "$parent->{outputfile}.$format", binmode => 1)) {
        throw Error::Simple $template->error();
    }
    if (lc $format eq 'dvi') {
        $parent->{mimetype} = 'application/x-dvi';
    } elsif (lc $format eq 'pdf') {
        $parent->{mimetype} = 'application/pdf';
    } else {
        $parent->{mimetype} = 'application/postscript';
    }
    $parent->{rendered} = "$parent->{outputfile}.$format";
}

sub postprocess {
    my $parent = shift;
    return $parent->{rendered};
}

1;