SF.net SVN: ledger-smb:[4720] branches/1.3/LedgerSMB/Template/ODS.pm

[..hidden..]

Revision: 4720
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4720&view=rev
Author:   einhverfr
Date:     2012-05-18 12:18:21 +0000 (Fri, 18 May 2012)
Log Message:
-----------
Removing debugging code accidently committed

Modified Paths:
--------------
    branches/1.3/LedgerSMB/Template/ODS.pm

Modified: branches/1.3/LedgerSMB/Template/ODS.pm
===================================================================
--- branches/1.3/LedgerSMB/Template/ODS.pm	2012-05-18 12:11:18 UTC (rev 4719)
+++ branches/1.3/LedgerSMB/Template/ODS.pm	2012-05-18 12:18:21 UTC (rev 4720)
@@ -164,9 +164,7 @@
 			$ods->cellValueType($cell, 'float');
 		}
 	}
-        print STDERR "Calling cellValue($sheetname, $rowcount, $currcol, $_->{att}->{text})\n";
 	$ods->cellValue($sheetname, $rowcount, $currcol, $_->{att}->{text});
-        print STDERR "The above cell is now set to " . $ods->getCellValue($sheetnum, $rowcount, $currcol) . "\n";
 	if (@style_stack) {
 		$ods->cellStyle($cell, $style_stack[0][0]);
 	}
@@ -802,15 +800,6 @@
 		);
 	$parser->parse($template);
 	$parser->purge;
-##############
-use Data::Dumper;
-           my $d    = Data::Dumper->new( [$ods] );
-    $d->Sortkeys(1);
-
-        open( FH, '>', "/tmp/ods" ) or die $!;
-        print FH $d->Dump();
-        close(FH);
-########### 
 	$ods->save;
 }
 

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