Revision 11fafb0b
Von Bernd Bleßmann vor mehr als 3 Jahren hinzugefügt
| SL/Controller/CsvImport.pm | ||
|---|---|---|
| 604 | 604 |
$self->track_progress(progress => $row / @{ $self->data } * 100) if $row % 1000 == 0;
|
| 605 | 605 |
my $data_row = $self->{data}[$row];
|
| 606 | 606 |
|
| 607 |
my $object = $data_row->{object_to_save} || $data_row->{object};
|
|
| 607 | 608 |
do_statement($::form, $sth, $query, $report->id, $_, $row + 1, $data_row->{info_data}{ $info_methods[$_] }) for 0 .. $#info_methods;
|
| 608 |
do_statement($::form, $sth, $query, $report->id, $o1 + $_, $row + 1, $data_row->{object}->${ \ $methods[$_] }) for 0 .. $#methods;
|
|
| 609 |
do_statement($::form, $sth, $query, $report->id, $o1 + $_, $row + 1, $object->${ \ $methods[$_] }) for 0 .. $#methods;
|
|
| 609 | 610 |
do_statement($::form, $sth, $query, $report->id, $o2 + $_, $row + 1, $data_row->{raw_data}{ $raw_methods[$_] }) for 0 .. $#raw_methods;
|
| 610 | 611 |
|
| 611 | 612 |
do_statement($::form, $sth2, $query2, $report->id, $row + 1, 'information', $_) for @{ $data_row->{information} || [] };
|
| ... | ... | |
| 694 | 695 |
my $o1 = $off1->{$row_ident};
|
| 695 | 696 |
my $o2 = $off2->{$row_ident};
|
| 696 | 697 |
|
| 698 |
my $object = $data_row->{object_to_save} || $data_row->{object};
|
|
| 697 | 699 |
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} };
|
| 698 |
do_statement($::form, $sth, $query, $report->id, $o1 + $_, $row + $n_header_rows, $data_row->{object}->${ \ $methods->{$row_ident}->[$_] }) for 0 .. $#{ $methods->{$row_ident} };
|
|
| 700 |
do_statement($::form, $sth, $query, $report->id, $o1 + $_, $row + $n_header_rows, $object->${ \ $methods->{$row_ident}->[$_] }) for 0 .. $#{ $methods->{$row_ident} };
|
|
| 699 | 701 |
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} };
|
| 700 | 702 |
|
| 701 | 703 |
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.