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); |
| SL/IC.pm | ||
|---|---|---|
| 258 | 258 |
$dbh->do($query) || $form->dberror($query); |
| 259 | 259 |
|
| 260 | 260 |
} else {
|
| 261 |
my $uid = time; |
|
| 261 |
my $uid = rand() . time;
|
|
| 262 | 262 |
$uid .= $form->{login};
|
| 263 | 263 |
|
| 264 | 264 |
$query = qq|SELECT p.id FROM parts p |
Auch abrufbar als: Unified diff
Speicherroutinen gepatcht: uid um einen Zufallswert ergaenzt, damit Batchoperationen nicht fehlschlagen