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

(-)a/C4/Acquisition.pm (-1 / +1 lines)
Lines 311-317 sub GetBasketAsCSV { Link Here
311
            }
311
            }
312
            push @rows, \@row;
312
            push @rows, \@row;
313
        }
313
        }
314
        my $content = join( $csv_profile->csv_separator, @headers ) . "\n";
314
        my $content = join( $delimiter, @headers ) . "\n";
315
        for my $row ( @rows ) {
315
        for my $row ( @rows ) {
316
            $csv->combine(@$row);
316
            $csv->combine(@$row);
317
            my $string = $csv->string;
317
            my $string = $csv->string;
(-)a/serials/lateissues-export.pl (-2 / +1 lines)
Lines 83-89 print $query->header( Link Here
83
    -attachment => "serials-claims.csv",
83
    -attachment => "serials-claims.csv",
84
);
84
);
85
85
86
print join( $csv_profile->csv_separator, @headers ) . "\n";
86
print join( $delimiter, @headers ) . "\n";
87
87
88
for my $row ( @rows ) {
88
for my $row ( @rows ) {
89
    $csv->combine(@$row);
89
    $csv->combine(@$row);
90
- 

Return to bug 27045