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