From 7f88f7da06d8622b28606ba7278c5faf892e68d9 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 15 Sep 2007 01:23:13 +0000
Subject: Syntax fixes

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1604 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Template/PDF.pm | 4 ++--
 LedgerSMB/Template/PS.pm  | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'LedgerSMB/Template')

diff --git a/LedgerSMB/Template/PDF.pm b/LedgerSMB/Template/PDF.pm
index aca26f71..557a5d09 100755
--- a/LedgerSMB/Template/PDF.pm
+++ b/LedgerSMB/Template/PDF.pm
@@ -57,7 +57,7 @@ sub preprocess {
 		for (@{$rawvars}) {
 			push @{$vars}, preprocess($_);
 		}
-	} else (!$type) {
+	} elsif (!$type) {
 		#XXX Fix escaping
 		$rawvars =~ s/([&\$\\_<>~^#\%\{\}])/\\$1/g;
 		$rawvars =~ s/"(.*)"/``$1''/gs;
@@ -80,7 +80,7 @@ sub process {
 		INCLUDE_PATH => $parent->{include_path},
 		START_TAG => quotemeta('<?lsmb'),
 		END_TAG => quotemeta('?>'),
-		DELIMITER => ';'
+		DELIMITER => ';',
 		DEBUG => ($parent->{debug})? 'dirs': undef,
 		DEBUG_FORMAT => '',
 		}) || throw Error::Simple Template::Latex->error(); 
diff --git a/LedgerSMB/Template/PS.pm b/LedgerSMB/Template/PS.pm
index 9833dba1..ca80066b 100755
--- a/LedgerSMB/Template/PS.pm
+++ b/LedgerSMB/Template/PS.pm
@@ -57,7 +57,7 @@ sub preprocess {
 		for (@{$rawvars}) {
 			push @{$vars}, preprocess($_);
 		}
-	} else (!$type) {
+	} elsif (!$type) {
 		#XXX Fix escaping
 		$rawvars =~ s/([&\$\\_<>~^#\%\{\}])/\\$1/g;
 		$rawvars =~ s/"(.*)"/``$1''/gs;
-- 
cgit v1.2.3