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

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

Return to bug 27045