Revision 12c628c5
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2320 | 2320 |
my ($var) = $sth->fetchrow_array; |
| 2321 | 2321 |
$sth->finish; |
| 2322 | 2322 |
|
| 2323 |
$var++; |
|
| 2323 |
if ($var =~ /^(.*?)(\d+)$/) {
|
|
| 2324 |
$var = "$1" . ($2 + 1); |
|
| 2325 |
} else {
|
|
| 2326 |
$var++; |
|
| 2327 |
} |
|
| 2324 | 2328 |
|
| 2325 | 2329 |
$query = qq|UPDATE defaults SET $fld = ?|; |
| 2326 | 2330 |
do_query($self, $dbh, $query, $var); |
| ... | ... | |
| 2352 | 2356 |
my ($var) = selectrow_query($self, $dbh, $query, $business_id); |
| 2353 | 2357 |
|
| 2354 | 2358 |
if ($var ne "") {
|
| 2355 |
$var++; |
|
| 2359 |
if ($var =~ /^(.*?)(\d+)$/) {
|
|
| 2360 |
$var = "$1" . ($2 + 1); |
|
| 2361 |
} else {
|
|
| 2362 |
$var++; |
|
| 2363 |
} |
|
| 2356 | 2364 |
} |
| 2357 | 2365 |
$query = qq|UPDATE business |
| 2358 | 2366 |
SET customernumberinit = ? |
Auch abrufbar als: Unified diff
Bei Nummernkreisen auch Sonderzeichen erlauben (Perls eigener Algorithmus hinter "$var++;" funktioniert z.B. nicht, wenn die Variable ein Gleichheitszeichen enthält).