- my $dbh = $form->dbconnect($myconfig);
- do_query($form, $dbh, qq|UPDATE oe SET closed = TRUE where id = ?|,
- $form->{"id"});
- $dbh->disconnect;
+ if ($quotation) {
+ $main::lxdebug->leave_sub();
+ return;
+ }
+
+ my @close_ids;
+
+ foreach my $from_id (@{ $params{from_id} }) {
+ $from_id = conv_i($from_id);
+ do_statement($form, $sth, $query, $from_id);
+ ($quotation) = $sth->fetchrow_array();
+ push @close_ids, $from_id if ($quotation);
+ }
+
+ $sth->finish();
+
+ if (scalar @close_ids) {
+ $query = qq|UPDATE oe SET closed = TRUE WHERE id IN (| . join(', ', ('?') x scalar @close_ids) . qq|)|;
+ do_query($form, $dbh, $query, @close_ids);
+
+ $dbh->commit() unless ($params{dbh});
+ }