Revision a8641442
Von Philip Reetz vor mehr als 19 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
|
} 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);
|
||
| SL/IC.pm | ||
|---|---|---|
|
$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
|
||
Auch abrufbar als: Unified diff
Speicherroutinen gepatcht: uid um einen Zufallswert ergaenzt, damit Batchoperationen nicht fehlschlagen