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

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;