Revision 79a9b990
Von Sven Schöling vor fast 19 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 1135 | 1135 |
$contact = "and cp.cp_id = $form->{cp_id}";
|
| 1136 | 1136 |
} |
| 1137 | 1137 |
|
| 1138 |
$taxincluded = $form->{taxincluded};
|
|
| 1139 |
|
|
| 1140 | 1138 |
# get rest for the vendor |
| 1141 | 1139 |
# fax and phone and email as vendor* |
| 1142 | 1140 |
my $query = |
| ... | ... | |
| 1148 | 1146 |
$sth->execute || $form->dberror($query); |
| 1149 | 1147 |
|
| 1150 | 1148 |
$ref = $sth->fetchrow_hashref(NAME_lc); |
| 1151 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
|
| 1152 | 1149 |
|
| 1153 |
$form->{taxincluded} = $taxincluded;
|
|
| 1150 |
# remove id and taxincluded before copy back |
|
| 1151 |
delete @$ref{qw(id taxincluded)};
|
|
| 1152 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
|
| 1154 | 1153 |
|
| 1155 | 1154 |
$sth->finish; |
| 1156 | 1155 |
$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.