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

(-)a/C4/Acquisition.pm (-2 / +1 lines)
Lines 302-308 sub GetBasketAsCSV { Link Here
302
        ) {
302
        ) {
303
            push @headers, $1;
303
            push @headers, $1;
304
            my $field = $2;
304
            my $field = $2;
305
            $field =~ s/[^\.]*\.?//; # 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
        for my $order (@orders) {
308
        for my $order (@orders) {
309
- 

Return to bug 8612