Speicherroutinen gepatcht: uid um einen Zufallswert ergaenzt, damit Batchoperationen...

diff --git a/SL/CT.pm b/SL/CT.pm
index e97905ae8c5fdb08a321f0b2b32ad213cdb7df22..c6f55da3b00701a633e0f548ea8fa47076869939 100644 (file)
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -391,7 +391,9 @@ sub save_vendor {
   } else {
     my $uid = time;
     $uid .= $form->{login};
   } else {
     my $uid = time;
     $uid .= $form->{login};

-
+    my $uid = rand() . time;
+    $uid .= $form->{login};
+    $uid = substr($uid, 2, 75);

     $query = qq|INSERT INTO vendor (name)
                 VALUES ('$uid')|;
     $dbh->do($query) || $form->dberror($query);
     $query = qq|INSERT INTO vendor (name)
                 VALUES ('$uid')|;
     $dbh->do($query) || $form->dberror($query);

diff --git a/SL/IC.pm b/SL/IC.pm
index 42959fe6bb63e9362d61c9b2ecf1d467fbfdda3d..48c799675850c49ba7a830b537e0ceec94f77d3d 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -258,7 +258,7 @@ sub save {
     $dbh->do($query) || $form->dberror($query);
 
   } else {
     $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
     $uid .= $form->{login};
 
     $query = qq|SELECT p.id FROM parts p