Revision 2a795624
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 802 | 802 |
$sth = prepare_execute_query($form, $dbh, $query, @values); |
| 803 | 803 |
|
| 804 | 804 |
$ref = $sth->fetchrow_hashref("NAME_lc");
|
| 805 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
|
| 806 | 805 |
|
| 807 |
$form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?
|
|
| 808 |
"quonumber" : "ordnumber"};
|
|
| 806 |
if ($ref) {
|
|
| 807 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
|
| 809 | 808 |
|
| 810 |
# set all entries for multiple ids blank that yield different information |
|
| 811 |
while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
|
|
| 812 |
map { $form->{$_} = '' if ($ref->{$_} ne $form->{$_}) } keys %$ref;
|
|
| 809 |
$form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ? "quonumber" : "ordnumber"};
|
|
| 810 |
|
|
| 811 |
# set all entries for multiple ids blank that yield different information |
|
| 812 |
while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
|
|
| 813 |
map { $form->{$_} = '' if ($ref->{$_} ne $form->{$_}) } keys %$ref;
|
|
| 814 |
} |
|
| 813 | 815 |
} |
| 814 | 816 |
|
| 815 | 817 |
# if not given, fill transdate with current_date |
Auch abrufbar als: Unified diff
Warnung "no statement is executing" vermeiden