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/Template/HTML.pm | |
| 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/Template/HTML.pm')
| -rwxr-xr-x | LedgerSMB/Template/HTML.pm | 3 |
1 files changed, 2 insertions, 1 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->{$_} ); } |