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

(-)a/C4/Acquisition.pm (-1 / +3 lines)
Lines 276-282 sub GetBasketAsCSV { Link Here
276
        my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id );
276
        my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id );
277
        Koha::Exceptions::ObjectNotFound->throw( 'There is no valid csv profile given') unless $csv_profile;
277
        Koha::Exceptions::ObjectNotFound->throw( 'There is no valid csv profile given') unless $csv_profile;
278
278
279
        my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$csv_profile->csv_separator,'binary'=>1});
279
        my $delimiter = $csv_profile->csv_separator;
280
        $delimiter = "\t" if $delimiter eq "\\t";
281
        my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$delimiter,'binary'=>1});
280
        my $csv_profile_content = $csv_profile->content;
282
        my $csv_profile_content = $csv_profile->content;
281
        my ( @headers, @fields );
283
        my ( @headers, @fields );
282
        while ( $csv_profile_content =~ /
284
        while ( $csv_profile_content =~ /
(-)a/serials/lateissues-export.pl (-2 / +4 lines)
Lines 35-44 my $csv_profile_id = $query->param('csv_profile'); Link Here
35
my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id );
35
my $csv_profile = Koha::CsvProfiles->find( $csv_profile_id );
36
die "There is no valid csv profile given" unless $csv_profile;
36
die "There is no valid csv profile given" unless $csv_profile;
37
37
38
my $delimiter = $csv_profile->csv_separator;
39
$delimiter = "\t" if $delimiter eq "\\t";
40
38
my $csv = Text::CSV_XS->new({
41
my $csv = Text::CSV_XS->new({
39
    'quote_char'  => '"',
42
    'quote_char'  => '"',
40
    'escape_char' => '"',
43
    'escape_char' => '"',
41
    'sep_char'    => $csv_profile->csv_separator,
44
    'sep_char'    => $delimiter,
42
    'binary'      => 1
45
    'binary'      => 1
43
});
46
});
44
47
45
- 

Return to bug 27045