Revision b4b71434
Von Sven Schöling vor fast 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
my ($var) = $sth->fetchrow_array;
|
||
|
$sth->finish;
|
||
|
|
||
|
if ($var =~ /^(.*?)(\d+)$/) {
|
||
|
my $new_num = sprintf '%0*d', length($2), $2 + 1;
|
||
|
$var = "${1}${new_num}";
|
||
|
} else {
|
||
|
$var++;
|
||
|
}
|
||
|
$var =~ s/\d+$/ sprintf '%0*d', length($&), $&+1 /e;
|
||
|
$var ||= 1;
|
||
|
|
||
|
$query = qq|UPDATE defaults SET $fld = ?|;
|
||
|
do_query($self, $dbh, $query, $var);
|
||
| ... | ... | |
|
WHERE id = ? FOR UPDATE|;
|
||
|
my ($var) = selectrow_query($self, $dbh, $query, $business_id);
|
||
|
|
||
|
if ($var ne "") {
|
||
|
if ($var =~ /^(.*?)(\d+)$/) {
|
||
|
my $new_num = sprintf '%0*d', length($2), $2 + 1;
|
||
|
$var = "${1}${new_num}";
|
||
|
} else {
|
||
|
$var++;
|
||
|
}
|
||
|
}
|
||
|
$var =~ s/\d+$/ sprintf '%0*d', length($&), $&+1 /e;
|
||
|
|
||
|
$query = qq|UPDATE business
|
||
|
SET customernumberinit = ?
|
||
|
WHERE id = ?|;
|
||
Auch abrufbar als: Unified diff
Substitute mit execute reimt sich.