Revision df71b475
Von Martin Helmling martin.helmling@octosoft.eu vor mehr als 8 Jahren hinzugefügt
| SL/Controller/CsvImport/Base.pm | ||
|---|---|---|
| 461 | 461 |
|
| 462 | 462 |
$self->controller->track_progress(phase => 'saving data', progress => 0); # scale from 45..95%; |
| 463 | 463 |
|
| 464 |
my $dbh = $data->[0]{object}->db;
|
|
| 464 |
my $dbh = $data->[0]{object}->db->dbh;
|
|
| 465 | 465 |
|
| 466 | 466 |
my $last_index = $#$data; |
| 467 | 467 |
my $chunk_size = 100; # one transaction and progress update every 100 objects |
| SL/Controller/CsvImport/Inventory.pm | ||
|---|---|---|
| 395 | 395 |
my $data = $params{data} || $self->controller->data;
|
| 396 | 396 |
|
| 397 | 397 |
foreach my $entry (@{ $data }) {
|
| 398 |
my ($trans_id) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT nextval('id')|);
|
|
| 398 |
my ($trans_id) = selectrow_query($::form,$entry->{object}->db->dbh, qq|SELECT nextval('id')|);
|
|
| 399 | 399 |
$entry->{object}->trans_id($trans_id);
|
| 400 | 400 |
} |
| 401 | 401 |
|
| ... | ... | |
| 424 | 424 |
$object->chargenumber); |
| 425 | 425 |
push @values, $object->bestbefore if $bestbefore_val_cnt; |
| 426 | 426 |
|
| 427 |
my ($stocked_qty) = selectrow_query($::form, $::form->get_standard_dbh, $query, @values);
|
|
| 427 |
my ($stocked_qty) = selectrow_query($::form, $object->db->dbh, $query, @values);
|
|
| 428 | 428 |
|
| 429 | 429 |
return $stocked_qty; |
| 430 | 430 |
} |
Auch abrufbar als: Unified diff
CSV-Import: single-dbh