SF.net SVN: ledger-smb: [1604] trunk/LedgerSMB/Template

[..hidden..]

Revision: 1604
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1604&view=rev
Author:   tetragon
Date:     2007-09-14 18:23:13 -0700 (Fri, 14 Sep 2007)

Log Message:
-----------
Syntax fixes

Modified Paths:
--------------
    trunk/LedgerSMB/Template/PDF.pm
    trunk/LedgerSMB/Template/PS.pm

Modified: trunk/LedgerSMB/Template/PDF.pm
===================================================================
--- trunk/LedgerSMB/Template/PDF.pm	2007-09-15 00:06:50 UTC (rev 1603)
+++ trunk/LedgerSMB/Template/PDF.pm	2007-09-15 01:23:13 UTC (rev 1604)
@@ -57,7 +57,7 @@
 		for (@{$rawvars}) {
 			push @{$vars}, preprocess($_);
 		}
-	} else (!$type) {
+	} elsif (!$type) {
 		#XXX Fix escaping
 		$rawvars =~ s/([&\$\\_<>~^#\%\{\}])/\\$1/g;
 		$rawvars =~ s/"(.*)"/``$1''/gs;
@@ -80,7 +80,7 @@
 		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(); 

Modified: trunk/LedgerSMB/Template/PS.pm
===================================================================
--- trunk/LedgerSMB/Template/PS.pm	2007-09-15 00:06:50 UTC (rev 1603)
+++ trunk/LedgerSMB/Template/PS.pm	2007-09-15 01:23:13 UTC (rev 1604)
@@ -57,7 +57,7 @@
 		for (@{$rawvars}) {
 			push @{$vars}, preprocess($_);
 		}
-	} else (!$type) {
+	} elsif (!$type) {
 		#XXX Fix escaping
 		$rawvars =~ s/([&\$\\_<>~^#\%\{\}])/\\$1/g;
 		$rawvars =~ s/"(.*)"/``$1''/gs;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.