Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8ad3a60e

Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt

  • ID 8ad3a60e282dc36dd0738751ff714e1d04abdd8f
  • Vorgänger 048a6eb7
  • Nachfolger 8c84f902

Code-Vereinfachung

Unterschiede anzeigen:

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