Revision a8641442
Von Philip Reetz vor mehr als 19 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 391 | 391 |
} else {
|
| 392 | 392 |
my $uid = time; |
| 393 | 393 |
$uid .= $form->{login};
|
| 394 |
|
|
| 394 |
my $uid = rand() . time; |
|
| 395 |
$uid .= $form->{login};
|
|
| 396 |
$uid = substr($uid, 2, 75); |
|
| 395 | 397 |
$query = qq|INSERT INTO vendor (name) |
| 396 | 398 |
VALUES ('$uid')|;
|
| 397 | 399 |
$dbh->do($query) || $form->dberror($query); |
Auch abrufbar als: Unified diff
Speicherroutinen gepatcht: uid um einen Zufallswert ergaenzt, damit Batchoperationen nicht fehlschlagen