andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Ensure that we have a required_qmax for 'exchanges' not affected by 'one-U-step' rules (mip_quotation.pck).

Browse Source 
Tidy-up debug messages from MIP_FILES.pck.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3940 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-03-11 12:10:01 +00:00
parent d6f53e6c32
commit b684db635b
2 changed files with 49 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Modules/MIP_FILES.pck
View File

@@ -53,12 +53,12 @@ CREATE OR REPLACE PACKAGE BODY mip_files AS
BEGIN
pl('is_file_over_size_limit:' || p_uri);
pl('is_file_over_size_limit:entry:' || p_uri);
SELECT doc_size
INTO l_file_size
FROM wwv_flow_files
WHERE NAME = p_uri;
pl('l_file_size:' || l_file_size);
pl('is_file_over_size_limit:exit:' || l_file_size);
RETURN(l_file_size > 3 * 1024 * 1024);
END is_file_over_size_limit;
@@ -270,8 +270,7 @@ CREATE OR REPLACE PACKAGE BODY mip_files AS
l_doc_id NUMBER;
l_success BOOLEAN;
BEGIN
pl('set_file_association, p_uri=' || p_uri || ', p_drwg_code=' ||
p_drwg_code);
pl('set_file_association:entry:'|| p_uri || ':'||p_docu_type||':'||p_doro_type);
--reference it in the documents table
INSERT INTO documents
(uri
@@ -319,7 +318,6 @@ CREATE OR REPLACE PACKAGE BODY mip_files AS
,p_description
,doev_seq.NEXTVAL);
pl('check_file_sizes');
IF p_rt_code = 'ENQUIRY SUPPORTING DOC'
AND NOT p_enqu_id IS NULL THEN
IF (are_files_over_size_limit(p_enqu_id) OR
@@ -327,13 +325,13 @@ CREATE OR REPLACE PACKAGE BODY mip_files AS
l_success := delete_file(l_doc_id
,'REMOVED SIZE'
,'webMIP determined the file or files to be too big');
pl('returning false');
pl('set_file_association:exit:false');
RETURN FALSE;
END IF;
END IF;
--if it works then return true
pl('returning true');
pl('set_file_association:exit:true');
RETURN TRUE;
END set_file_association;
/*