Revision 670ca35b
Von Sven Schöling vor fast 12 Jahren hinzugefügt
| SL/Controller/CsvImport.pm | ||
|---|---|---|
| 342 | 342 |
my $sth2 = $dbh->prepare($query2); |
| 343 | 343 |
|
| 344 | 344 |
# save headers |
| 345 |
my @headers = ( |
|
| 346 |
grep({ $self->info_headers->{used}->{$_} } @{ $self->info_headers->{headers} }),
|
|
| 347 |
grep({ $self->headers->{used}->{$_} } @{ $self->headers->{headers} }),
|
|
| 348 |
grep({ $self->raw_data_headers->{used}->{$_} } @{ $self->raw_data_headers->{headers} }),
|
|
| 345 |
my (@headers, @info_methods, @raw_methods, @methods); |
|
| 346 |
|
|
| 347 |
for my $i (0 .. $#{ $self->info_headers->{headers} }) {
|
|
| 348 |
next unless $self->info_headers->{used}->{ $self->info_headers->{headers}->[$i] };
|
|
| 349 |
push @headers, $self->info_headers->{headers}->[$i];
|
|
| 350 |
push @info_methods, $self->info_headers->{methods}->[$i];
|
|
| 351 |
} |
|
| 352 |
for my $i (0 .. $#{ $self->headers->{headers} }) {
|
|
| 353 |
next unless $self->headers->{used}->{ $self->headers->{headers}->[$i] };
|
|
| 354 |
push @headers, $self->headers->{headers}->[$i];
|
|
| 355 |
push @methods, $self->headers->{methods}->[$i];
|
|
| 356 |
} |
|
| 357 |
for my $i (0 .. $#{ $self->raw_data_headers->{headers} }) {
|
|
| 358 |
next unless $self->raw_data_headers->{used}->{ $self->raw_data_headers->{headers}->[$i] };
|
|
| 359 |
push @headers, $self->raw_data_headers->{headers}->[$i];
|
|
| 360 |
push @raw_methods, $self->raw_data_headers->{headers}->[$i];
|
|
| 361 |
} |
|
| 362 |
|
|
| 363 |
$::lxdebug->dump(0, "methods", |
|
| 364 |
[ \@info_methods, |
|
| 365 |
\@methods, |
|
| 366 |
\@raw_methods ] |
|
| 349 | 367 |
); |
| 350 |
my @info_methods = grep { $self->info_headers->{used}->{$_} } @{ $self->info_headers->{headers} };
|
|
| 351 |
my @methods = grep { $self->headers->{used}->{$_} } @{ $self->headers->{methods} };
|
|
| 352 |
my @raw_methods = grep { $self->raw_data_headers->{used}->{$_} } @{ $self->raw_data_headers->{headers} };
|
|
| 353 | 368 |
|
| 354 | 369 |
$sth->execute($report->id, $_, 0, $headers[$_]) for 0 .. $#headers; |
| 355 | 370 |
|
Auch abrufbar als: Unified diff
Bugs bei formatierten Methoden behoben