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) { |