Revision 0acabd54
Von Udo Spallek vor mehr als 18 Jahren hinzugefügt
| SL/PE.pm | ||
|---|---|---|
| 136 | 136 |
# connect to database |
| 137 | 137 |
my $dbh = $form->dbconnect($myconfig); |
| 138 | 138 |
|
| 139 |
map { $form->{$_} =~ s/\'/\'\'/g } (projectnumber, description);
|
|
| 139 |
map { $form->{$_} =~ s/\'/\'\'/g } qw(projectnumber description);
|
|
| 140 | 140 |
|
| 141 | 141 |
if ($form->{id}) {
|
| 142 | 142 |
$query = qq|UPDATE project SET |
| ... | ... | |
| 218 | 218 |
# connect to database |
| 219 | 219 |
my $dbh = $form->dbconnect($myconfig); |
| 220 | 220 |
|
| 221 |
map { $form->{$_} =~ s/\'/\'\'/g } (partsgroup);
|
|
| 222 |
|
|
| 221 |
map { $form->{$_} =~ s/\'/\'\'/g } qw(partsgroup);
|
|
| 223 | 222 |
$form->{discount} /= 100;
|
| 224 | 223 |
|
| 225 | 224 |
if ($form->{id}) {
|
| ... | ... | |
| 360 | 359 |
# connect to database |
| 361 | 360 |
my $dbh = $form->dbconnect($myconfig); |
| 362 | 361 |
|
| 363 |
map { $form->{$_} =~ s/\'/\'\'/g } (pricegroup);
|
|
| 362 |
map { $form->{$_} =~ s/\'/\'\'/g } qw(pricegroup);
|
|
| 364 | 363 |
|
| 365 | 364 |
$form->{discount} /= 100;
|
| 366 | 365 |
|
Auch abrufbar als: Unified diff
Quoting Barewords.