FCLT#85233 Code refactoring, geen inhoudelijke change
svn path=/Database/trunk/; revision=66344
This commit is contained in:
Jos Groot Lipman
189
FAC/FAC_PACX.SRC
189
FAC/FAC_PACX.SRC
@@ -401,6 +401,28 @@ AS
|
||||
NULL);
|
||||
END;
|
||||
|
||||
FUNCTION attrval(p_attrname1 IN VARCHAR2, p_attrvalue1 IN VARCHAR2)
|
||||
RETURN VARCHAR2
|
||||
AS
|
||||
v_return VARCHAR2 (5000);
|
||||
BEGIN
|
||||
IF p_attrname1 IS NULL OR p_attrvalue1 IS NULL
|
||||
THEN
|
||||
RETURN '';
|
||||
END IF;
|
||||
|
||||
v_return := ' ' || p_attrname1 || '=';
|
||||
|
||||
IF p_attrvalue1 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue1) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
|
||||
RETURN v_return;
|
||||
END;
|
||||
|
||||
-- * createXMLtagValue
|
||||
-- * function to return a complex XML node including up to 4 attributes
|
||||
-- * use the null value in the attrNameX argument for empty attributes
|
||||
@@ -418,53 +440,10 @@ AS
|
||||
BEGIN
|
||||
v_return := '<' || p_tag;
|
||||
|
||||
IF p_attrname1 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname1 || '=';
|
||||
|
||||
IF p_attrvalue1 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue1) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname2 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname2 || '=';
|
||||
|
||||
IF p_attrvalue2 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue2) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname3 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname3 || '=';
|
||||
|
||||
IF p_attrvalue3 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue3) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname4 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname4 || '=';
|
||||
|
||||
IF p_attrvalue4 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue4) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
v_return := v_return || attrval(p_attrname1, p_attrvalue1);
|
||||
v_return := v_return || attrval(p_attrname2, p_attrvalue2);
|
||||
v_return := v_return || attrval(p_attrname3, p_attrvalue3);
|
||||
v_return := v_return || attrval(p_attrname4, p_attrvalue4);
|
||||
|
||||
v_return := v_return || '>' || CHR (10);
|
||||
addvarchartoclob (v_return);
|
||||
@@ -650,113 +629,15 @@ AS
|
||||
|
||||
v_return := '<' || p_tag;
|
||||
|
||||
IF p_attrname1 IS NOT NULL AND p_attrvalue1 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname1 || '=';
|
||||
|
||||
IF p_attrvalue1 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue1) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname2 IS NOT NULL AND p_attrvalue2 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname2 || '=';
|
||||
|
||||
IF p_attrvalue2 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue2) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname3 IS NOT NULL AND p_attrvalue3 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname3 || '=';
|
||||
|
||||
IF p_attrvalue3 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue3) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname4 IS NOT NULL AND p_attrvalue4 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname4 || '=';
|
||||
|
||||
IF p_attrvalue4 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue4) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname5 IS NOT NULL AND p_attrvalue5 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname5 || '=';
|
||||
|
||||
IF p_attrvalue5 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue5) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname6 IS NOT NULL AND p_attrvalue6 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname6 || '=';
|
||||
|
||||
IF p_attrvalue6 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue6) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname7 IS NOT NULL AND p_attrvalue7 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname7 || '=';
|
||||
|
||||
IF p_attrvalue7 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue7) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname8 IS NOT NULL AND p_attrvalue8 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname8 || '=';
|
||||
|
||||
IF p_attrvalue8 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue8) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
IF p_attrname9 IS NOT NULL AND p_attrvalue9 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || ' ' || p_attrname9 || '=';
|
||||
|
||||
IF p_attrvalue9 IS NOT NULL
|
||||
THEN
|
||||
v_return := v_return || '"' || char_to_html (p_attrvalue9) || '"';
|
||||
ELSE
|
||||
v_return := v_return || '""';
|
||||
END IF;
|
||||
END IF;
|
||||
v_return := v_return || attrval(p_attrname1, p_attrvalue1);
|
||||
v_return := v_return || attrval(p_attrname2, p_attrvalue2);
|
||||
v_return := v_return || attrval(p_attrname3, p_attrvalue3);
|
||||
v_return := v_return || attrval(p_attrname4, p_attrvalue4);
|
||||
v_return := v_return || attrval(p_attrname5, p_attrvalue5);
|
||||
v_return := v_return || attrval(p_attrname6, p_attrvalue6);
|
||||
v_return := v_return || attrval(p_attrname7, p_attrvalue7);
|
||||
v_return := v_return || attrval(p_attrname8, p_attrvalue8);
|
||||
v_return := v_return || attrval(p_attrname9, p_attrvalue9);
|
||||
|
||||
IF p_kmdkey IS NOT NULL
|
||||
THEN
|
||||
|
||||
Reference in New Issue
Block a user