[open-ils-commits] r10614 - branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2008-09-17 10:33:16 -0400 (Wed, 17 Sep 2008)
New Revision: 10614

Modified:
   branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:
Text::CSV changes ... arg; adding line breaks for bre format

Modified: branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2008-09-17 14:10:23 UTC (rev 10613)
+++ branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2008-09-17 14:33:16 UTC (rev 10614)
@@ -65,7 +65,6 @@
 			my $csv = new Text::CSV;
 
 			while (<$file>) {
-				chomp;
 				$csv->parse($_);
 				my @data = $csv->fields;
 				my $id = $data[$col];
@@ -207,7 +206,7 @@
 		next unless $bib;
 
     		if (uc($format) eq 'BRE') {
-        		$r->print( OpenSRF::Utils::JSON->perl2JSON($bib) );
+        		$r->print( OpenSRF::Utils::JSON->perl2JSON($bib) . "\n" );
         		next;
     		}