disable quotation after ordering, #33852

diff --git a/FS/FS/ClientAPI/MyAccount/quotation.pm b/FS/FS/ClientAPI/MyAccount/quotation.pm
index ce2debd..787a099 100644 (file)
--- a/FS/FS/ClientAPI/MyAccount/quotation.pm
+++ b/FS/FS/ClientAPI/MyAccount/quotation.pm
@@ -211,6 +211,8 @@ sub quotation_order {
   my $quotation = _quotation($session);
 
   my $error = $quotation->order;
+  $quotation->set('disabled' => 'Y');
+  $error ||= $quotation->replace;
 
   return { 'error' => $error };
 }