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

(-)a/C4/Acquisition.pm (-7 / +11 lines)
Lines 295-308 sub GetBasketAsCSV { Link Here
295
        my $csv_profile_content = $csv_profile->content;
295
        my $csv_profile_content = $csv_profile->content;
296
        my ( @headers, @fields );
296
        my ( @headers, @fields );
297
        while ( $csv_profile_content =~ /
297
        while ( $csv_profile_content =~ /
298
            ([^=]+) # header
298
            ([^=\|]+) # header
299
            =
299
            =?
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;
304
            my $field = ($2 eq '') ? $1 : $2;
305
            $field =~ s/[^\.]*\.?//; # Remove the table name if exists.
305
306
            $header =~ s/^\s+|\s+$//g; # Trim whitespaces
307
            push @headers, $header;
308
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) {
309
- 

Return to bug 8612