SF.net SVN: ledger-smb: [2188] trunk/LedgerSMB/Template

[..hidden..]

Revision: 2188
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2188&view=rev
Author:   einhverfr
Date:     2008-07-05 15:54:46 -0700 (Sat, 05 Jul 2008)

Log Message:
-----------
Correcting more GMP errors in other formats

Modified Paths:
--------------
    trunk/LedgerSMB/Template/CSV.pm
    trunk/LedgerSMB/Template/ODS.pm
    trunk/LedgerSMB/Template/TXT.pm
    trunk/LedgerSMB/Template/XLS.pm

Modified: trunk/LedgerSMB/Template/CSV.pm
===================================================================
--- trunk/LedgerSMB/Template/CSV.pm	2008-07-05 22:13:42 UTC (rev 2187)
+++ trunk/LedgerSMB/Template/CSV.pm	2008-07-05 22:54:46 UTC (rev 2188)
@@ -63,7 +63,7 @@
 			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;

Modified: trunk/LedgerSMB/Template/ODS.pm
===================================================================
--- trunk/LedgerSMB/Template/ODS.pm	2008-07-05 22:13:42 UTC (rev 2187)
+++ trunk/LedgerSMB/Template/ODS.pm	2008-07-05 22:54:46 UTC (rev 2188)
@@ -807,7 +807,7 @@
         }
     } 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} ) {

Modified: trunk/LedgerSMB/Template/TXT.pm
===================================================================
--- trunk/LedgerSMB/Template/TXT.pm	2008-07-05 22:13:42 UTC (rev 2187)
+++ trunk/LedgerSMB/Template/TXT.pm	2008-07-05 22:54:46 UTC (rev 2188)
@@ -67,7 +67,7 @@
 	} 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}};

Modified: trunk/LedgerSMB/Template/XLS.pm
===================================================================
--- trunk/LedgerSMB/Template/XLS.pm	2008-07-05 22:13:42 UTC (rev 2187)
+++ trunk/LedgerSMB/Template/XLS.pm	2008-07-05 22:54:46 UTC (rev 2188)
@@ -75,7 +75,7 @@
         }
     } 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} ) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.