Text::CSV changes ... arg; adding line breaks for bre format
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 17 Sep 2008 14:34:42 +0000 (14:34 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 17 Sep 2008 14:34:42 +0000 (14:34 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10616 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm

index e5713bc..7f36215 100644 (file)
@@ -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;
                }