summaryrefslogtreecommitdiff
path: root/LedgerSMB/Template.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/Template.pm')
-rwxr-xr-xLedgerSMB/Template.pm13
1 files changed, 11 insertions, 2 deletions
diff --git a/LedgerSMB/Template.pm b/LedgerSMB/Template.pm
index e87251fd..2d1fd130 100755
--- a/LedgerSMB/Template.pm
+++ b/LedgerSMB/Template.pm
@@ -181,6 +181,7 @@ sub new {
.";$self->{'include_path'}"
}
}
+ print STDERR "include path: $self->{'include_path'} \n";
return $self;
}
@@ -293,12 +294,20 @@ sub output {
}
sub _http_output {
- my $self = shift;
- my $data = shift;
+ my ($self, $data) = @_;
$data ||= $self->{output};
if ($self->{format} !~ /^\p{IsAlnum}+$/) {
throw Error::Simple "Invalid format";
}
+
+ if (!defined $data and defined $self->{rendered}){
+ $data = "";
+ open (DATA, '<', $self->{rendered});
+ while (my $line = <DATA>){
+ $data .= $line;
+ }
+ }
+
my $format = "LedgerSMB::Template::$self->{format}";
my $disposition = "";
my $name = $format->can('postprocess')->($self);