Revision 8ad3a60e
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
SL/Helper/Csv/Dispatcher.pm | ||
---|---|---|
106 | 106 |
sub parse_profile { |
107 | 107 |
my ($self, %params) = @_; |
108 | 108 |
|
109 |
my $profile; |
|
110 |
my $class; |
|
111 | 109 |
my @specs; |
112 | 110 |
|
111 |
my $csv_profile = $self->_csv->profile; |
|
113 | 112 |
my $i = 0; |
114 | 113 |
foreach my $header (@{ $self->_csv->header }) { |
115 |
if ($self->_csv->profile) { |
|
116 |
$profile = $self->_csv->profile->[$i]->{profile}; |
|
117 |
$class = $self->_csv->profile->[$i]->{class}; |
|
118 |
} |
|
119 |
|
|
120 |
my $spec = $self->_parse_profile(profile => $profile, |
|
121 |
class => $class, |
|
114 |
my $spec = $self->_parse_profile(profile => $csv_profile->[$i]->{profile}, |
|
115 |
class => $csv_profile->[$i]->{class}, |
|
122 | 116 |
header => $header); |
123 | 117 |
push @specs, $spec; |
124 | 118 |
$i++; |
Auch abrufbar als: Unified diff
Code-Vereinfachung