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

(-)a/C4/Acquisition.pm (-5 / +4 lines)
Lines 295-307 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
            push @headers, $1;
304
            my $field = $2;
304
            my $field = ($2 eq '') ? $1 : $2;
305
            $field =~ s/[^\.]*\.{1}//; # Remove the table name if exists.
305
            $field =~ s/[^\.]*\.{1}//; # Remove the table name if exists.
306
            push @fields, $field;
306
            push @fields, $field;
307
        }
307
        }
308
- 

Return to bug 8612