X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/38b907c9866951e95c8741959b4ead1544e45011..fdebfd5d0c558cb156849b01c9c9268b29dc443b:/SL/Controller/CsvImport/Inventory.pm diff --git a/SL/Controller/CsvImport/Inventory.pm b/SL/Controller/CsvImport/Inventory.pm index 42bfac3d0..238abf33a 100644 --- a/SL/Controller/CsvImport/Inventory.pm +++ b/SL/Controller/CsvImport/Inventory.pm @@ -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; } @@ -434,7 +434,7 @@ sub _wh_id_and_description_ident { } sub _wh_id_and_description_maker { - return join '+', $_[0], $_[1] + return join '+', $_[0], $_[1] } sub _wh_id_and_id_ident { @@ -442,7 +442,7 @@ sub _wh_id_and_id_ident { } sub _wh_id_and_id_maker { - return join '+', $_[0], $_[1] + return join '+', $_[0], $_[1] } 1;