Revision 13787dab
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2344 | 2344 |
$sth->finish; |
| 2345 | 2345 |
|
| 2346 | 2346 |
if ($var =~ /^(.*?)(\d+)$/) {
|
| 2347 |
$var = "$1" . ($2 + 1); |
|
| 2347 |
my $new_num = sprintf '%0' . length($2) . 'd', $2 + 1; |
|
| 2348 |
$var = "${1}${new_num}";
|
|
| 2348 | 2349 |
} else {
|
| 2349 | 2350 |
$var++; |
| 2350 | 2351 |
} |
| ... | ... | |
| 2380 | 2381 |
|
| 2381 | 2382 |
if ($var ne "") {
|
| 2382 | 2383 |
if ($var =~ /^(.*?)(\d+)$/) {
|
| 2383 |
$var = "$1" . ($2 + 1); |
|
| 2384 |
my $new_num = sprintf '%0' . length($2) . 'd', $2 + 1; |
|
| 2385 |
$var = "${1}${new_num}";
|
|
| 2384 | 2386 |
} else {
|
| 2385 | 2387 |
$var++; |
| 2386 | 2388 |
} |
Auch abrufbar als: Unified diff
Beim Vergeben von neuen Angebotsnummern etc die "Breite" der Nummernkreisvorlagen berücksichtigen (also wird aus z.B. "A00000" auch wirklich "A00001" und nicht "A1").