diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-05 22:11:54 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-05 22:11:54 +0000 |
| commit | 859ae950bebed02d0d3d6d0ab2341629d242d236 (patch) | |
| tree | a20634709fe7f5637e951a6360536954804e9380 /LedgerSMB | |
| parent | 025fd80e331af9a44552efd5be8ae35b4825e7f6 (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')
| -rwxr-xr-x | LedgerSMB/Template/HTML.pm | 3 | ||||
| -rwxr-xr-x | LedgerSMB/Template/LaTeX.pm | 2 |
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; |