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