X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3a35d09fe5d6dbba593d2560888e7c44421c59e4..828c7d4e23cdaf973f83d5dc545e9be8ef73bedc:/SL/Controller/Order.pm

diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm
index 56326b51c..0144529d5 100644
--- a/SL/Controller/Order.pm
+++ b/SL/Controller/Order.pm
@@ -1405,7 +1405,11 @@ sub save {
 
     # link records
     if ($::form->{converted_from_oe_id}) {
-      SL::DB::Order->new(id => $::form->{converted_from_oe_id})->load->link_to_record($self->order);
+      my $src = SL::DB::Order->new(id => $::form->{converted_from_oe_id})->load;
+      # implement OE::_close_quotations_rfqs - this a 1 : 1 connection
+      # close only if workflow: quotation -> order. TODO test case
+      $src->update_attributes(closed => 1) if $src->type =~ /_quotation$/;
+      $src->link_to_record($self->order);
 
       if (scalar @{ $::form->{converted_from_orderitems_ids} || [] }) {
         my $idx = 0;