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