From e2f23d0d3110ccff9dadf523d150a0d747130b43 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Mon, 27 Apr 2015 00:04:37 -0700
Subject: [PATCH 1/1] disable quotation after ordering, #33852
---
FS/FS/ClientAPI/MyAccount/quotation.pm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/FS/FS/ClientAPI/MyAccount/quotation.pm b/FS/FS/ClientAPI/MyAccount/quotation.pm
index f3067f14e..f19071aa8 100644
--- a/FS/FS/ClientAPI/MyAccount/quotation.pm
+++ b/FS/FS/ClientAPI/MyAccount/quotation.pm
@@ -58,7 +58,6 @@ Returns a hashref describing the current quotation, containing:
=cut
-use Data::Dumper;
sub quotation_info {
my $p = shift;
@@ -84,7 +83,6 @@ sub quotation_info {
'detail_items' => \@items
}
];
- warn Dumper $sections;
return { 'error' => '', 'sections' => $sections }
}
@@ -225,6 +223,9 @@ sub quotation_order {
my $error = $quotation->order;
+ $quotation->set('disabled' => 'Y');
+ $error ||= $quotation->replace;
+
return { 'error' => $error };
}
--
2.20.1