Revision 202844a1
Von Bernd Blessmann vor fast 11 Jahren hinzugefügt
| SL/Helper/Csv/Dispatcher.pm | ||
|---|---|---|
| 55 | 55 |
} |
| 56 | 56 |
} |
| 57 | 57 |
} else {
|
| 58 |
$class = @{ $self->_csv->profile }[0]->{class};
|
|
| 58 |
$class = $self->_csv->profile->[0]->{class};
|
|
| 59 | 59 |
} |
| 60 | 60 |
|
| 61 | 61 |
return $class; |
| ... | ... | |
| 70 | 70 |
foreach my $p (@{ $self->_csv->profile }) {
|
| 71 | 71 |
my $row_ident = $p->{row_ident};
|
| 72 | 72 |
if ($line->{datatype} eq $row_ident) {
|
| 73 |
$spec = @{ $self->_specs }[$i];
|
|
| 73 |
$spec = $self->_specs->[$i];
|
|
| 74 | 74 |
last; |
| 75 | 75 |
} |
| 76 | 76 |
$i++; |
| 77 | 77 |
} |
| 78 | 78 |
} else {
|
| 79 |
$spec = @{ $self->_specs }[0];
|
|
| 79 |
$spec = $self->_specs->[0];
|
|
| 80 | 80 |
} |
| 81 | 81 |
|
| 82 | 82 |
return $spec; |
| ... | ... | |
| 128 | 128 |
foreach my $h (@{ $self->_csv->header }) {
|
| 129 | 129 |
$header = $h; |
| 130 | 130 |
if ($self->_csv->profile) {
|
| 131 |
$profile = @{ $self->_csv->profile }[$i]->{profile};
|
|
| 132 |
$class = @{ $self->_csv->profile }[$i]->{class};
|
|
| 131 |
$profile = $self->_csv->profile->[$i]->{profile};
|
|
| 132 |
$class = $self->_csv->profile->[$i]->{class};
|
|
| 133 | 133 |
} |
| 134 | 134 |
|
| 135 | 135 |
my $spec = $self->_parse_profile(profile => $profile, |
Auch abrufbar als: Unified diff
Auf leere Header bei Multiplex-Daten testen und ...
Kosmetik und Code-Vereinfachung