diff options
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; |