View | Details | Raw Unified | Return to bug 17389
Collapse All | Expand All

(-)a/C4/ImportExportFramework.pm (-4 / +4 lines)
Lines 278-286 sub _export_table_csv Link Here
278
        $sth->execute($frameworkcode);
278
        $sth->execute($frameworkcode);
279
        my $data;
279
        my $data;
280
        while (my $hashRef = $sth->fetchrow_hashref) {
280
        while (my $hashRef = $sth->fetchrow_hashref) {
281
            for (@fields) {
281
            for my $field (@fields) {
282
                $hashRef->{$_} =~ s/[\r\n]//g;
282
                my $value = $hashRef->{$field} // q||;
283
                $$strCSV .= '"' . $hashRef->{$_} . '",';
283
                $value =~ s/[\r\n]//g;
284
                $$strCSV .= '"' . $value . '",';
284
            }
285
            }
285
            chop $$strCSV;
286
            chop $$strCSV;
286
            $$strCSV .= chr(10);
287
            $$strCSV .= chr(10);
287
- 

Return to bug 17389