[open-ils-commits] r10616 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2008-09-17 10:34:42 -0400 (Wed, 17 Sep 2008)
New Revision: 10616

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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2008-09-17 14:33:57 UTC (rev 10615)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2008-09-17 14:34:42 UTC (rev 10616)
@@ -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;
     		}