summaryrefslogtreecommitdiff
path: root/LedgerSMB/Template
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-07-05 22:11:54 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-07-05 22:11:54 +0000
commit859ae950bebed02d0d3d6d0ab2341629d242d236 (patch)
treea20634709fe7f5637e951a6360536954804e9380 /LedgerSMB/Template
parent025fd80e331af9a44552efd5be8ae35b4825e7f6 (diff)
Fixing crashes when used with Math::BigInt::GMP
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2186 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Template')
-rwxr-xr-xLedgerSMB/Template/HTML.pm3
-rwxr-xr-xLedgerSMB/Template/LaTeX.pm2
2 files changed, 3 insertions, 2 deletions
diff --git a/LedgerSMB/Template/HTML.pm b/LedgerSMB/Template/HTML.pm
index ca748dd3..7b3544fd 100755
--- a/LedgerSMB/Template/HTML.pm
+++ b/LedgerSMB/Template/HTML.pm
@@ -66,9 +66,10 @@ sub preprocess {
}
} elsif (!$type) {
return escapeHTML($rawvars);
- } elsif ($type eq 'SCALAR') {
+ } elsif ($type eq 'SCALAR' or $type eq 'Math::BigInt::GMP') {
return escapeHTML($$rawvars);
} else { # Hashes and objects
+ print STDERR "$_ is $type:$rawvars";
for ( keys %{$rawvars} ) {
$vars->{preprocess($_)} = preprocess( $rawvars->{$_} );
}
diff --git a/LedgerSMB/Template/LaTeX.pm b/LedgerSMB/Template/LaTeX.pm
index ea04bb80..71ddfce8 100755
--- a/LedgerSMB/Template/LaTeX.pm
+++ b/LedgerSMB/Template/LaTeX.pm
@@ -71,7 +71,7 @@ sub preprocess {
push @{$vars}, preprocess($_);
}
} elsif (!$type or $type eq 'SCALAR') {
- if ($type eq 'SCALAR') {
+ if ($type eq 'SCALAR' or $type eq 'Math::BigInt::GMP') {
$vars = $$rawvars;
} else {
$vars = $rawvars;