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