Revision 048a6eb7
Von Bernd Bleßmann vor mehr als 11 Jahren hinzugefügt
| SL/Helper/Csv/Dispatcher.pm | ||
|---|---|---|
|
|
||
|
my $profile;
|
||
|
my $class;
|
||
|
my $header;
|
||
|
my @specs;
|
||
|
|
||
|
my $i = 0;
|
||
|
foreach my $h (@{ $self->_csv->header }) {
|
||
|
$header = $h;
|
||
|
foreach my $header (@{ $self->_csv->header }) {
|
||
|
if ($self->_csv->profile) {
|
||
|
$profile = $self->_csv->profile->[$i]->{profile};
|
||
|
$class = $self->_csv->profile->[$i]->{class};
|
||
Auch abrufbar als: Unified diff
Code-Vereinfachung: Unnötige Variable weglassen.