From 576020a9432cba748ade22242be42e513f49b67f Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 13 Sep 2007 17:45:30 +0000
Subject: Adding a debug flag

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1584 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Template/CSV.pm  | 2 ++
 LedgerSMB/Template/HTML.pm | 4 +++-
 LedgerSMB/Template/PDF.pm  | 2 ++
 LedgerSMB/Template/PS.pm   | 2 ++
 LedgerSMB/Template/TXT.pm  | 2 ++
 5 files changed, 11 insertions(+), 1 deletion(-)

(limited to 'LedgerSMB/Template')

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(
-- 
cgit v1.2.3