diff options
Diffstat (limited to 'LedgerSMB/Template')
| -rwxr-xr-x | LedgerSMB/Template/CSV.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/Template/HTML.pm | 4 | ||||
| -rwxr-xr-x | LedgerSMB/Template/PDF.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/Template/PS.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/Template/TXT.pm | 2 |
5 files changed, 11 insertions, 1 deletions
diff --git a/LedgerSMB/Template/CSV.pm b/LedgerSMB/Template/CSV.pm index c0ff7276..9f494d69 100755 --- a/LedgerSMB/Template/CSV.pm +++ b/LedgerSMB/Template/CSV.pm @@ -81,6 +81,8 @@ sub process { START_TAG => quotemeta('<?lsmb'), END_TAG => quotemeta('?>'), DELIMITER => ';', + DEBUG => ($parent->{debug})? 'dirs': undef, + DEBUG_FORMAT => '', }) || throw Error::Simple Template->error(); if (not $template->process( diff --git a/LedgerSMB/Template/HTML.pm b/LedgerSMB/Template/HTML.pm index 6ec7b833..ae518e18 100755 --- a/LedgerSMB/Template/HTML.pm +++ b/LedgerSMB/Template/HTML.pm @@ -75,12 +75,14 @@ sub process { my $parent = shift; my $cleanvars = shift; my $template; - + $template = Template->new({ INCLUDE_PATH => $parent->{include_path}, START_TAG => quotemeta('<?lsmb'), END_TAG => quotemeta('?>'), DELIMITER => ';', + DEBUG => ($parent->{debug})? 'dirs': undef, + DEBUG_FORMAT => '', }) || throw Error::Simple Template->error(); if (not $template->process( get_template($parent->{template}), diff --git a/LedgerSMB/Template/PDF.pm b/LedgerSMB/Template/PDF.pm index 9c315d62..aca26f71 100755 --- a/LedgerSMB/Template/PDF.pm +++ b/LedgerSMB/Template/PDF.pm @@ -81,6 +81,8 @@ sub process { 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( diff --git a/LedgerSMB/Template/PS.pm b/LedgerSMB/Template/PS.pm index f8c048d0..9833dba1 100755 --- a/LedgerSMB/Template/PS.pm +++ b/LedgerSMB/Template/PS.pm @@ -81,6 +81,8 @@ sub process { 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( diff --git a/LedgerSMB/Template/TXT.pm b/LedgerSMB/Template/TXT.pm index a950335f..055a6cdd 100755 --- a/LedgerSMB/Template/TXT.pm +++ b/LedgerSMB/Template/TXT.pm @@ -62,6 +62,8 @@ sub process { START_TAG => quotemeta('<?lsmb'), END_TAG => quotemeta('?>'), DELIMITER => ';', + DEBUG => ($parent->{debug})? 'dirs': undef, + DEBUG_FORMAT => '', }) || throw Error::Simple Template->error(); if (not $template->process( |