CSV-Import: single-dbh
authorMartin Helmling martin.helmling@octosoft.eu <martin.helmling@octosoft.eu>
Fri, 2 Sep 2016 15:25:11 +0000 (17:25 +0200)
committerMartin Helmling martin.helmling@octosoft.eu <martin.helmling@octosoft.eu>
Fri, 2 Sep 2016 15:25:11 +0000 (17:25 +0200)
SL/Controller/CsvImport/Base.pm
SL/Controller/CsvImport/Inventory.pm

index 2fa7887..17a3bfd 100644 (file)
@@ -461,7 +461,7 @@ sub save_objects {
 
   $self->controller->track_progress(phase => 'saving data', progress => 0); # scale from 45..95%;
 
-  my $dbh = $data->[0]{object}->db;
+  my $dbh = $data->[0]{object}->db->dbh;
 
   my $last_index = $#$data;
   my $chunk_size = 100;      # one transaction and progress update every 100 objects
index a6e9001..238abf3 100644 (file)
@@ -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;
 }