X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLICENSES.pm;h=ca9c679f984fb1b420e51f63cae2608c1168f4ed;hb=27ffa16a85221662dee49da0f210312383341240;hp=7d5f4ba36f5d7dc70409238aa4a3959e5c6c0ae2;hpb=ef17e41a8364c6c97566a054768f573659dbec79;p=kivitendo-erp.git

diff --git a/SL/LICENSES.pm b/SL/LICENSES.pm
index 7d5f4ba36..ca9c679f9 100644
--- a/SL/LICENSES.pm
+++ b/SL/LICENSES.pm
@@ -35,16 +35,18 @@ package LICENSES;
 
 use SL::Form;
 
+use strict;
+
 sub save_license {
   $main::lxdebug->enter_sub();
 
   my ($self, $myconfig, $form) = @_;
 
-  $dbh = $form->dbconnect($myconfig);
+  my $dbh = $form->dbconnect($myconfig);
 
-  $query =
+  my $query =
     qq| INSERT INTO license (licensenumber) VALUES ('$form->{licensenumber}')|;
-  $sth = $dbh->prepare($query);
+  my $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
   $sth->finish();
 
@@ -52,7 +54,7 @@ sub save_license {
     qq|SELECT l.id FROM license l WHERE l.licensenumber = '$form->{licensenumber}'|;
   $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
-  ($license_id) = $sth->fetchrow_array;
+  my ($license_id) = $sth->fetchrow_array;
   $sth->finish();
 
   # save license
@@ -68,11 +70,6 @@ sub save_license {
   $sth->execute || $form->dberror($query);
   $sth->finish();
 
-  if ($form->{own_product}) {
-    $form->update_balance($dbh, "parts", "onhand", qq|id = ?|,
-                          1, $form->{parts_id});
-  }
-
   $dbh->disconnect();
 
   $main::lxdebug->leave_sub();
@@ -93,7 +90,7 @@ sub get_customers {
   my $sth   = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
   $form->{"all_customers"} = [];
-  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
+  while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
     push(@{ $form->{"all_customers"} }, $ref);
   }
   $sth->finish();
@@ -179,7 +176,7 @@ sub search {
   $sth = $dbh->prepare($query);
   $sth->execute() || $form->dberror($query);
   $form->{"licenses"} = [];
-  while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
+  while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
     push(@{ $form->{"licenses"} }, $ref);
   }
 
@@ -212,7 +209,7 @@ sub get_license {
     . $form->{"id"};
   $sth = $dbh->prepare($query);
   $sth->execute() || $form->dberror($query);
-  $form->{"license"} = $sth->fetchrow_hashref(NAME_lc);
+  $form->{"license"} = $sth->fetchrow_hashref("NAME_lc");
   $sth->finish();
   $dbh->disconnect();
   $main::lxdebug->leave_sub();