From e67746cb2ccd2ba13a8bb02a223c57389ec3289a Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 17 Sep 2008 14:34:42 +0000
Subject: [PATCH] Text::CSV changes ... arg; adding line breaks for bre format

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10616 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index e5713bc70d..7f3621510e 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -65,7 +65,6 @@ sub handler {
 			my $csv = new Text::CSV;
 
 			while (<$file>) {
-				chomp;
 				$csv->parse($_);
 				my @data = $csv->fields;
 				my $id = $data[$col];
@@ -207,7 +206,7 @@ sub handler {
 		next unless $bib;
 
     		if (uc($format) eq 'BRE') {
-        		$r->print( OpenSRF::Utils::JSON->perl2JSON($bib) );
+        		$r->print( OpenSRF::Utils::JSON->perl2JSON($bib) . "\n" );
         		next;
     		}
 
-- 
2.43.2