Merge von 577 aus unstable: Speicherroutinen gepatcht: uid um einen Zufallswert ergae...

[kivitendo-erp.git] / SL / IC.pm

diff --git a/SL/IC.pm b/SL/IC.pm
index 036a669..48c7996 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -258,7 +258,7 @@ sub save {
     $dbh->do($query) || $form->dberror($query);
 
   } else {
-    my $uid = time;
+    my $uid = rand() . time;
     $uid .= $form->{login};
 
     $query = qq|SELECT p.id FROM parts p
@@ -272,8 +272,8 @@ sub save {
       $main::lxdebug->leave_sub();
       return 3;
     }
-    $query = qq|INSERT INTO parts (partnumber)
-                VALUES ('$uid')|;
+    $query = qq|INSERT INTO parts (partnumber, description)
+                VALUES ('$uid', 'dummy')|;
     $dbh->do($query) || $form->dberror($query);
 
     $query = qq|SELECT p.id FROM parts p
@@ -300,7 +300,7 @@ sub save {
     ($partsgroup, $partsgroup_id) = split /--/, $form->{partsgroup};
   }
 
-  $query = qq|UPDATE parts SET 
+  $query = qq|UPDATE parts SET
              partnumber = '$form->{partnumber}',
              description = '$form->{description}',
              makemodel = '$form->{makemodel}',
@@ -350,7 +350,7 @@ sub save {
   foreach $item (split / /, $form->{taxaccounts}) {
     if ($form->{"IC_tax_$item"}) {
       $query = qq|INSERT INTO partstax (parts_id, chart_id)
-                  VALUES ($form->{id}, 
+                  VALUES ($form->{id},
                          (SELECT c.id
                           FROM chart c
                           WHERE c.accno = '$item'))|;
@@ -1287,4 +1287,3 @@ sub retrieve_item {
 }
 
 1;
-