From 6bd7a6c926df342b04ad7625e70a43e6e6c71292 Mon Sep 17 00:00:00 2001
From: hardya <hardya@248e525c-4dfb-0310-94bc-949c084e9493>
Date: Mon, 17 Mar 2008 12:13:05 +0000
Subject: [PATCH] Additional logging for the mandatory check (see ticket #402)

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4019 248e525c-4dfb-0310-94bc-949c084e9493
---
 Modules/mip_quotation.pck | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/Modules/mip_quotation.pck b/Modules/mip_quotation.pck
index 4e41e5d..754685b 100644
--- a/Modules/mip_quotation.pck
+++ b/Modules/mip_quotation.pck
@@ -1215,6 +1215,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
   FUNCTION ready_for_quote(p_enqu_id IN enquiries.id%TYPE) RETURN BOOLEAN IS
     l_mandatory_checks mip_mandatory.t_mandatory_checks;
     l_enquiry_is_ready BOOLEAN;
+    l_idx              BINARY_INTEGER;
   BEGIN
     pl('ready_for_quote(2) - enqu_id=' || p_enqu_id
       ,$$PLSQL_LINE);
@@ -1222,6 +1223,15 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
     ready_for_quote(p_enqu_id          => p_enqu_id
                    ,p_mandatory_checks => l_mandatory_checks
                    ,p_enquiry_is_ready => l_enquiry_is_ready);
+  
+    l_idx := l_mandatory_checks.FIRST;
+    LOOP
+      EXIT WHEN l_idx IS NULL;
+      pl(l_mandatory_checks(l_idx)
+         .field_name || ':' || l_mandatory_checks(l_idx).error_message);
+      l_idx := l_mandatory_checks.NEXT(l_idx);
+    END LOOP;
+  
     RETURN l_enquiry_is_ready;
   END ready_for_quote;
 
@@ -1460,7 +1470,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
   BEGIN
     pl('get_existing_metr_details:entry'
       ,$$PLSQL_LINE);
-      
+  
     IF nvl(p_enqu.existing_metr_code
           ,'OTHER') <> 'OTHER' THEN
       l_rec_metr_details := get_metr_details(p_enqu.existing_metr_code);