$sth->execute(@values) ||
$form->dberror($query . " (" . join(", ", @values) . ")");
- dump_query(0, "laqje", $query, @values);
-
my %id = ();
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
$ref->{exchangerate} = 1 unless $ref->{exchangerate};
my $rc = $dbh->commit;
$dbh->disconnect;
+ $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?
+ "quonumber" : "ordnumber"};
+
Common::webdav_folder($form) if ($main::webdav);
$main::lxdebug->leave_sub();
$ref = $sth->fetchrow_hashref(NAME_lc);
map { $form->{$_} = $ref->{$_} } keys %$ref;
-
+ $form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?
+ "quonumber" : "ordnumber"};
# set all entries for multiple ids blank that yield different information
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {