Revision 09294068
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Helper/Csv/Dispatcher.pm | ||
|---|---|---|
| 71 | 71 |
|
| 72 | 72 |
for my $col (@$header) {
|
| 73 | 73 |
next unless $col; |
| 74 |
push @specs, $self->make_spec($col, $profile->{$col} || $col);
|
|
| 74 |
if ($self->_csv->strict_profile) {
|
|
| 75 |
if (exists $profile->{$col}) {
|
|
| 76 |
push @specs, $self->make_spec($col, $profile->{$col});
|
|
| 77 |
} else {
|
|
| 78 |
$self->unknown_column($col, undef); |
|
| 79 |
} |
|
| 80 |
} else {
|
|
| 81 |
push @specs, $self->make_spec($col, $profile->{$col} || $col);
|
|
| 82 |
} |
|
| 75 | 83 |
} |
| 76 | 84 |
|
| 77 | 85 |
$self->_specs(\@specs); |
Auch abrufbar als: Unified diff
SL::Helper::Csv: neues flag "strict_profile". Wenn gesetzt werden nur Daten aus dem Profil benutzt, keine DWIM can checks.