Revision 79a9b990
Von Sven Schöling vor fast 19 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 348 | 348 |
$contact = "and cp.cp_id = $form->{cp_id}";
|
| 349 | 349 |
} |
| 350 | 350 |
|
| 351 |
$taxincluded = $form->{taxincluded};
|
|
| 352 |
|
|
| 353 | 351 |
# get rest for the customer |
| 354 | 352 |
my $query = qq|SELECT ct.*, cp.*, ct.notes as customernotes |
| 355 | 353 |
FROM customer ct |
| ... | ... | |
| 359 | 357 |
$sth->execute || $form->dberror($query); |
| 360 | 358 |
|
| 361 | 359 |
$ref = $sth->fetchrow_hashref(NAME_lc); |
| 362 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
|
| 363 | 360 |
|
| 364 |
$form->{taxincluded} = $taxincluded;
|
|
| 361 |
# remove id and taxincluded before copy back |
|
| 362 |
delete @$ref{qw(id taxincluded)};
|
|
| 363 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
|
| 365 | 364 |
|
| 366 | 365 |
$sth->finish; |
| 367 | 366 |
$dbh->disconnect; |
Auch abrufbar als: Unified diff
Bugfix 245: IS::customer_details und IR::vendor_details ueberschreiben $form->{id}, was den Workflowstatus verfaelscht.
Backup von taxincluded ersetzt durch ein Cleanup der SQL Rueckgabe.