From e3104498167e8cd51ab441e23815e36ecf1eea65 Mon Sep 17 00:00:00 2001
From: hardya <hardya@248e525c-4dfb-0310-94bc-949c084e9493>
Date: Wed, 26 Mar 2008 09:15:49 +0000
Subject: [PATCH] Committed prior to FAT testing

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4072 248e525c-4dfb-0310-94bc-949c084e9493
---
 InstallMIP.cmd            |  2 +-
 Modules/mip_quotation.pck | 36 ++++++++++++++++++++++++++----------
 2 files changed, 27 insertions(+), 11 deletions(-)

diff --git a/InstallMIP.cmd b/InstallMIP.cmd
index 28e253d..909daa9 100644
--- a/InstallMIP.cmd
+++ b/InstallMIP.cmd
@@ -111,7 +111,7 @@ cd Data\live
 call InstallData %3/%4@%5
 @echo Installed live data
 @echo Installing live application in APEX...
-ruby apex_auto_install.rb %3
+ruby apex_auto_install.rb %3 MIP
 cd ..\..
 
 @echo live install Complete
diff --git a/Modules/mip_quotation.pck b/Modules/mip_quotation.pck
index 754685b..c34f168 100644
--- a/Modules/mip_quotation.pck
+++ b/Modules/mip_quotation.pck
@@ -659,6 +659,7 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation IS
 
   PROCEDURE open_body IS
   BEGIN
+    pl('open_body:entry');
     dbms_lob.createtemporary(lob_loc => g_email_plain_body
                             ,cache   => TRUE);
     dbms_lob.OPEN(lob_loc   => g_email_plain_body
@@ -677,6 +678,7 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation IS
 RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
     al(' ');
     al(' ');
+    pl('open_body:exit');
   END open_body;
 
   FUNCTION get_quote_row(p_qute_id IN quotes.id%TYPE) RETURN t_quote_row IS
@@ -856,6 +858,10 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
     BEGIN
       l_agent_prty_id := mip_enquiry.get_enquiry_role(p_enquiryid => p_enqu_id
                                                      ,p_rolecode  => 'ENQ OWN');
+    
+      pl('l_agent_prty_id=' || l_agent_prty_id
+        ,$$PLSQL_LINE);
+    
     EXCEPTION
       WHEN OTHERS THEN
         pl('mip_enquiry.get_enquiry_role returned ' || SQLERRM
@@ -863,16 +869,23 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
         RAISE;
     END;
   
-    SELECT agent_comt_code
-          ,comt.description
-          ,agent_contact_value
-      INTO l_agent_comt_code
-          ,l_agent_comt_description
-          ,l_agent_contact_value
-      FROM enquiries
-          ,contact_mechanism_types comt
-     WHERE enquiries.id = p_enqu_id
-       AND comt.code = enquiries.agent_comt_code;
+    BEGIN
+      SELECT agent_comt_code
+            ,comt.description
+            ,agent_contact_value
+        INTO l_agent_comt_code
+            ,l_agent_comt_description
+            ,l_agent_contact_value
+        FROM enquiries
+            ,contact_mechanism_types comt
+       WHERE enquiries.id = p_enqu_id
+         AND comt.code = enquiries.agent_comt_code;
+    EXCEPTION
+      WHEN OTHERS THEN
+        pl('email_to_agent:' || SQLERRM
+          ,$$PLSQL_LINE);
+        RAISE;
+    END;
   
     open_body;
   
@@ -894,6 +907,9 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
       al(' ');
     END IF;
   
+    pl('l_email_recipient=' || l_email_recipient
+      ,$$PLSQL_LINE);
+  
     IF p_email_reason = gc_agent_q_sel_notification THEN
       --Scenario one: Automatic quote generation notification
       l_email_subject := get_system_name || ': Automatic Quote Selected';