X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d319704a66e9be64da837ccea10af6774c2b0838..dba29fbf2f6cabe466a1ca7c946dd12beca115f0:/SL/CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index e97905ae8..c6f55da3b 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -391,7 +391,9 @@ sub save_vendor {
   } 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);