Revision 79a9b990
Von Sven Schöling vor etwa 19 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
|
$contact = "and cp.cp_id = $form->{cp_id}";
|
||
|
}
|
||
|
|
||
|
$taxincluded = $form->{taxincluded};
|
||
|
|
||
|
# get rest for the vendor
|
||
|
# fax and phone and email as vendor*
|
||
|
my $query =
|
||
| ... | ... | |
|
$sth->execute || $form->dberror($query);
|
||
|
|
||
|
$ref = $sth->fetchrow_hashref(NAME_lc);
|
||
|
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
||
|
|
||
|
$form->{taxincluded} = $taxincluded;
|
||
|
# remove id and taxincluded before copy back
|
||
|
delete @$ref{qw(id taxincluded)};
|
||
|
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
||
|
|
||
|
$sth->finish;
|
||
|
$dbh->disconnect;
|
||
| SL/IS.pm | ||
|---|---|---|
|
$contact = "and cp.cp_id = $form->{cp_id}";
|
||
|
}
|
||
|
|
||
|
$taxincluded = $form->{taxincluded};
|
||
|
|
||
|
# get rest for the customer
|
||
|
my $query = qq|SELECT ct.*, cp.*, ct.notes as customernotes
|
||
|
FROM customer ct
|
||
| ... | ... | |
|
$sth->execute || $form->dberror($query);
|
||
|
|
||
|
$ref = $sth->fetchrow_hashref(NAME_lc);
|
||
|
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
||
|
|
||
|
$form->{taxincluded} = $taxincluded;
|
||
|
# remove id and taxincluded before copy back
|
||
|
delete @$ref{qw(id taxincluded)};
|
||
|
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
||
|
|
||
|
$sth->finish;
|
||
|
$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.