diff options
Diffstat (limited to 'LedgerSMB/Template/HTML.pm')
| -rwxr-xr-x | LedgerSMB/Template/HTML.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/LedgerSMB/Template/HTML.pm b/LedgerSMB/Template/HTML.pm index da9d2e00..cb9bd2fe 100755 --- a/LedgerSMB/Template/HTML.pm +++ b/LedgerSMB/Template/HTML.pm @@ -76,12 +76,20 @@ sub process { my $cleanvars = shift; my $template; my $output; + my $source; if ($parent->{outputfile}) { $output = "$parent->{outputfile}.html"; } else { $output = \$parent->{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 = Template->new({ INCLUDE_PATH => $parent->{include_path}, START_TAG => quotemeta('<?lsmb'), @@ -92,7 +100,7 @@ sub process { DEBUG_FORMAT => '', }) || throw Error::Simple Template->error(); if (not $template->process( - get_template($parent->{template}), + $source, {%$cleanvars, %$LedgerSMB::Template::TTI18N::ttfuncs, 'escape' => \&preprocess}, $output, binmode => ':utf8')) { |