Correcting all check printing issues on my secondary testing instance

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2190 4979c152-3d1c-0410-bac9-87ea11338e46

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);