X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ca00375c6edfb91a48718a3d25a2b53e509f6c95..187c4ee192da9281f42800e6ac8ae08f23d9a9d6:/SL/Controller/CsvImport/Inventory.pm diff --git a/SL/Controller/CsvImport/Inventory.pm b/SL/Controller/CsvImport/Inventory.pm index a6e900189..c724fb8fc 100644 --- a/SL/Controller/CsvImport/Inventory.pm +++ b/SL/Controller/CsvImport/Inventory.pm @@ -79,7 +79,7 @@ sub check_objects { $self->controller->track_progress(phase => 'building data', progress => 0); - my $i; + my $i = 0; my $num_data = scalar @{ $self->controller->data }; foreach my $entry (@{ $self->controller->data }) { $self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0; @@ -395,7 +395,7 @@ sub save_objects { my $data = $params{data} || $self->controller->data; foreach my $entry (@{ $data }) { - my ($trans_id) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT nextval('id')|); + my ($trans_id) = selectrow_query($::form,$entry->{object}->db->dbh, qq|SELECT nextval('id')|); $entry->{object}->trans_id($trans_id); } @@ -424,7 +424,7 @@ SQL $object->chargenumber); push @values, $object->bestbefore if $bestbefore_val_cnt; - my ($stocked_qty) = selectrow_query($::form, $::form->get_standard_dbh, $query, @values); + my ($stocked_qty) = selectrow_query($::form, $object->db->dbh, $query, @values); return $stocked_qty; }