Revision bb630f09
Von Bernd Bleßmann vor etwa 7 Jahren hinzugefügt
| SL/Controller/CsvImport.pm | ||
|---|---|---|
| 584 | 584 |
$self->track_progress(progress => $row / @{ $self->data } * 100) if $row % 1000 == 0;
|
| 585 | 585 |
my $data_row = $self->{data}[$row];
|
| 586 | 586 |
|
| 587 |
my $object = $data_row->{object_to_save} || $data_row->{object};
|
|
| 587 | 588 |
do_statement($::form, $sth, $query, $report->id, $_, $row + 1, $data_row->{info_data}{ $info_methods[$_] }) for 0 .. $#info_methods;
|
| 588 |
do_statement($::form, $sth, $query, $report->id, $o1 + $_, $row + 1, $data_row->{object}->${ \ $methods[$_] }) for 0 .. $#methods;
|
|
| 589 |
do_statement($::form, $sth, $query, $report->id, $o1 + $_, $row + 1, $object->${ \ $methods[$_] }) for 0 .. $#methods;
|
|
| 589 | 590 |
do_statement($::form, $sth, $query, $report->id, $o2 + $_, $row + 1, $data_row->{raw_data}{ $raw_methods[$_] }) for 0 .. $#raw_methods;
|
| 590 | 591 |
|
| 591 | 592 |
do_statement($::form, $sth2, $query2, $report->id, $row + 1, 'information', $_) for @{ $data_row->{information} || [] };
|
| ... | ... | |
| 674 | 675 |
my $o1 = $off1->{$row_ident};
|
| 675 | 676 |
my $o2 = $off2->{$row_ident};
|
| 676 | 677 |
|
| 678 |
my $object = $data_row->{object_to_save} || $data_row->{object};
|
|
| 677 | 679 |
do_statement($::form, $sth, $query, $report->id, $_, $row + $n_header_rows, $data_row->{info_data}{ $info_methods->{$row_ident}->[$_] }) for 0 .. $#{ $info_methods->{$row_ident} };
|
| 678 |
do_statement($::form, $sth, $query, $report->id, $o1 + $_, $row + $n_header_rows, $data_row->{object}->${ \ $methods->{$row_ident}->[$_] }) for 0 .. $#{ $methods->{$row_ident} };
|
|
| 680 |
do_statement($::form, $sth, $query, $report->id, $o1 + $_, $row + $n_header_rows, $object->${ \ $methods->{$row_ident}->[$_] }) for 0 .. $#{ $methods->{$row_ident} };
|
|
| 679 | 681 |
do_statement($::form, $sth, $query, $report->id, $o2 + $_, $row + $n_header_rows, $data_row->{raw_data}{ $raw_methods->{$row_ident}->[$_] }) for 0 .. $#{ $raw_methods->{$row_ident} };
|
| 680 | 682 |
|
| 681 | 683 |
do_statement($::form, $sth2, $query2, $report->id, $row + $n_header_rows, 'information', $_) for @{ $data_row->{information} || [] };
|
Auch abrufbar als: Unified diff
CsvImport: Im Report die Werte des gespeicherten Objekts speichern.
Bei den Workern, die Objekte aktualisieren können, kann statt dem object
das object_to_save gespeichert werden. Die Werte dieses Objekts sollten im
Report angezeigt werden, auch wenn die eigentlich gleich sein müssten.
Aber so können einem evtl. Fehler auffallen.