Revision 1cc72c5b
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
| SL/Controller/CsvImport.pm | ||
|---|---|---|
| 127 | 127 |
my $csv = Text::CSV_XS->new({ binary => 1, map { ( $_ => $self->profile->get($_) ) } qw(sep_char escape_char quote_char),});
|
| 128 | 128 |
|
| 129 | 129 |
if ($self->worker->is_multiplexed) {
|
| 130 |
foreach my $ri (keys %{ $self->displayable_columns }) {
|
|
| 131 |
$csv->print($file->fh, [ map { $_->{name} } @{ $self->displayable_columns->{$ri} } ]);
|
|
| 130 |
foreach my $p (@{ $self->worker->profile }) {
|
|
| 131 |
$csv->print($file->fh, [ map { $_->{name} } @{ $self->displayable_columns->{$p->{row_ident}} } ]);
|
|
| 132 | 132 |
$file->fh->print("\r\n");
|
| 133 | 133 |
} |
| 134 |
foreach my $ri (keys %{ $self->displayable_columns }) {
|
|
| 135 |
$csv->print($file->fh, [ map { $_->{description} } @{ $self->displayable_columns->{$ri} } ]);
|
|
| 134 |
foreach my $p (@{ $self->worker->profile }) {
|
|
| 135 |
$csv->print($file->fh, [ map { $_->{description} } @{ $self->displayable_columns->{$p->{row_ident}} } ]);
|
|
| 136 | 136 |
$file->fh->print("\r\n");
|
| 137 | 137 |
} |
| 138 | 138 |
} else {
|
Auch abrufbar als: Unified diff
Datentypen in der Hilfe und Beispieldatei in der richtigen Reihenfolge anzeigen.