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

(-)a/C4/Acquisition.pm (-1 / +6 lines)
Lines 300-308 sub GetBasketAsCSV { Link Here
300
            ([^\|]*) # fieldname (table.row or row)
300
            ([^\|]*) # fieldname (table.row or row)
301
            \|? /gxms
301
            \|? /gxms
302
        ) {
302
        ) {
303
            push @headers, $1;
303
            my $header = $1;
304
            my $field = ($2 eq '') ? $1 : $2;
304
            my $field = ($2 eq '') ? $1 : $2;
305
306
            $header =~ s/^\s+|\s+$//g; # Trim whitespaces
307
            push @headers, $header;
308
305
            $field =~ s/[^\.]*\.{1}//; # Remove the table name if exists.
309
            $field =~ s/[^\.]*\.{1}//; # Remove the table name if exists.
310
            $field =~ s/^\s+|\s+$//g; # Trim whitespaces
306
            push @fields, $field;
311
            push @fields, $field;
307
        }
312
        }
308
        for my $order (@orders) {
313
        for my $order (@orders) {
(-)a/t/db_dependent/Acquisition/GetBasketAsCSV.t (-2 / +1 lines)
Lines 42-48 my $csv_profile2 = Koha::CsvProfile->new({ Link Here
42
    profile => 'my user profile',
42
    profile => 'my user profile',
43
    type => 'export_basket',
43
    type => 'export_basket',
44
    csv_separator => ',',
44
    csv_separator => ',',
45
    content => 'biblio.author|title=biblio.title|quantity=aqorders.quantity',
45
    content => 'biblio.author | title = biblio.title|quantity=aqorders.quantity',
46
})->store;
46
})->store;
47
47
48
my $basketno;
48
my $basketno;
49
- 

Return to bug 8612