summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/Template/CSV.pm2
-rw-r--r--LedgerSMB/Template/ODS.pm2
-rwxr-xr-xLedgerSMB/Template/TXT.pm2
-rw-r--r--LedgerSMB/Template/XLS.pm2
4 files changed, 4 insertions, 4 deletions
diff --git a/LedgerSMB/Template/CSV.pm b/LedgerSMB/Template/CSV.pm
index 50edef15..2ba90e0f 100755
--- a/LedgerSMB/Template/CSV.pm
+++ b/LedgerSMB/Template/CSV.pm
@@ -63,7 +63,7 @@ sub preprocess {
push @{$vars}, preprocess( $_ );
}
} elsif ( !$type or $type eq 'SCALAR' ) { # Scalar
- if ($type eq 'SCALAR' ) {
+ if ($type eq 'SCALAR' or $type eq 'Math::BigInt::GMP') {
$vars = $$rawvars;
} else {
$vars = $rawvars;
diff --git a/LedgerSMB/Template/ODS.pm b/LedgerSMB/Template/ODS.pm
index f3a37583..858f55cd 100644
--- a/LedgerSMB/Template/ODS.pm
+++ b/LedgerSMB/Template/ODS.pm
@@ -807,7 +807,7 @@ 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
for ( keys %{$rawvars} ) {
diff --git a/LedgerSMB/Template/TXT.pm b/LedgerSMB/Template/TXT.pm
index 66169613..ec4aaec3 100755
--- a/LedgerSMB/Template/TXT.pm
+++ b/LedgerSMB/Template/TXT.pm
@@ -67,7 +67,7 @@ sub process {
} else {
$output = \$parent->{output};
}
- if (ref $parent->{template} eq 'SCALAR') {
+ if (ref $parent->{template} eq 'SCALAR' or $type eq 'Math::BigInt::GMP') {
$source = $parent->{template};
} elsif (ref $parent->{template} eq 'ARRAY') {
$source = join "\n", @{$parent->{template}};
diff --git a/LedgerSMB/Template/XLS.pm b/LedgerSMB/Template/XLS.pm
index acb8196e..a5c0627a 100644
--- a/LedgerSMB/Template/XLS.pm
+++ b/LedgerSMB/Template/XLS.pm
@@ -75,7 +75,7 @@ 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
for ( keys %{$rawvars} ) {