From 859ae950bebed02d0d3d6d0ab2341629d242d236 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sat, 5 Jul 2008 22:11:54 +0000 Subject: 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 --- LedgerSMB/Template/HTML.pm | 3 ++- LedgerSMB/Template/LaTeX.pm | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) (limited to 'LedgerSMB/Template') 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; -- cgit v1.2.3