diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-15 01:23:13 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-15 01:23:13 +0000 |
| commit | 7f88f7da06d8622b28606ba7278c5faf892e68d9 (patch) | |
| tree | aabfb1c2fe95a13b668f29d84b5c4ed631ea043c | |
| parent | cf1348aeeaa44679abd7eaa7966414eb3a1fc361 (diff) | |
Syntax fixes
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1604 4979c152-3d1c-0410-bac9-87ea11338e46
| -rwxr-xr-x | LedgerSMB/Template/PDF.pm | 4 | ||||
| -rwxr-xr-x | LedgerSMB/Template/PS.pm | 2 |
2 files changed, 3 insertions, 3 deletions
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; |