]> wagnertech.de Git - mfinanz.git/blobdiff - SL/Controller/CsvImport/Inventory.pm
epic-ts
[mfinanz.git] / SL / Controller / CsvImport / Inventory.pm
index 42bfac3d0ee3f32cab4f3487e57bc6f9d707c582..c724fb8fc96cca4604001b0909d6b4f9e385b23b 100644 (file)
@@ -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;
 }
@@ -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;