SF.net SVN: ledger-smb:[4905] branches/1.3

[..hidden..]

Revision: 4905
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4905&view=rev
Author:   einhverfr
Date:     2012-06-17 10:13:17 +0000 (Sun, 17 Jun 2012)
Log Message:
-----------
Correcting csv exports never outputting data

Modified Paths:
--------------
    branches/1.3/Changelog
    branches/1.3/LedgerSMB/Template/CSV.pm

Modified: branches/1.3/Changelog
===================================================================
--- branches/1.3/Changelog	2012-06-17 09:38:58 UTC (rev 4904)
+++ branches/1.3/Changelog	2012-06-17 10:13:17 UTC (rev 4905)
@@ -17,6 +17,7 @@
 * Fixed encoding of attachment retrieval (Chris T h/t Erik H)
 * Fixed missing grant on partsvendor_entry_id_seq (Chris T, h/t Brian W)
 * Fixed voiding invoice duplicates payment (Chris T h/t John L)
+* Fixed CSV exports not having any data (Chris T h/t Erik H)
 
 Brian W is Brian Wolf
 Chris T is Chris Travers

Modified: branches/1.3/LedgerSMB/Template/CSV.pm
===================================================================
--- branches/1.3/LedgerSMB/Template/CSV.pm	2012-06-17 09:38:58 UTC (rev 4904)
+++ branches/1.3/LedgerSMB/Template/CSV.pm	2012-06-17 10:13:17 UTC (rev 4905)
@@ -87,6 +87,10 @@
 sub process {
 	my $parent = shift;
 	my $cleanvars = shift;
+        for my $col (@{$cleanvars->{columns}}){
+            $col =~ s/""/"/g;
+            $col =~ s/(^"|"$)//g;
+        }
 	my $template;
 	my $source;
 	my $output;

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