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
This commit is contained in:
hardya
2008-03-17 12:13:05 +00:00
parent 001a339644
commit 6bd7a6c926

View File

@@ -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);