[Home] [Help]
279: TYPE ui_def_nodes_tbl_type IS TABLE OF CZ_UI_DEFS%ROWTYPE INDEX BY BINARY_INTEGER;
280: TYPE ui_page_sets_tbl_type IS TABLE OF CZ_UI_PAGE_SETS%ROWTYPE INDEX BY BINARY_INTEGER;
281: TYPE ui_pages_tbl_type IS TABLE OF CZ_UI_PAGES%ROWTYPE INDEX BY BINARY_INTEGER;
282: TYPE ui_page_refs_tbl_type IS TABLE OF CZ_UI_PAGE_REFS%ROWTYPE INDEX BY BINARY_INTEGER;
283: TYPE xml_dom_elements_tbl_type IS TABLE OF xmldom.DOMNode INDEX BY BINARY_INTEGER;
284:
285: TYPE varchar2_tbl_type IS TABLE OF VARCHAR2(255) INDEX BY VARCHAR2(255);
286:
287: TYPE xml_dom_nodes_tbl_type IS TABLE OF xmldom.DOMNode INDEX BY VARCHAR2(255);
283: TYPE xml_dom_elements_tbl_type IS TABLE OF xmldom.DOMNode INDEX BY BINARY_INTEGER;
284:
285: TYPE varchar2_tbl_type IS TABLE OF VARCHAR2(255) INDEX BY VARCHAR2(255);
286:
287: TYPE xml_dom_nodes_tbl_type IS TABLE OF xmldom.DOMNode INDEX BY VARCHAR2(255);
288: g_page_elements_tbl xml_dom_nodes_tbl_type;
289:
290:
291: TYPE nested_number_tbl_type IS TABLE OF number_tbl_type INDEX BY BINARY_INTEGER;
375: g_ELEMENT_COUNTER NUMBER;
376:
377: -------------- JDR DOC BUILDER/XML Parsing part -----------------
378:
379: g_DOC xmldom.DOMDocument;
380: g_JRADDOC jdr_docbuilder.Document;
381: g_PARSER xmlparser.parser;
382: g_Null_Xml_Node xmldom.DOMNode;
383:
378:
379: g_DOC xmldom.DOMDocument;
380: g_JRADDOC jdr_docbuilder.Document;
381: g_PARSER xmlparser.parser;
382: g_Null_Xml_Node xmldom.DOMNode;
383:
384: g_MSG_COUNT NUMBER := 0;
385: g_MSG_DATA VARCHAR2(32000);
386: g_RETURN_STATUS VARCHAR2(10);
975: RAISE;
976: END IF;
977: END Close_Parser;
978:
979: FUNCTION cloneNode(p_source_xml_node xmldom.DOMNode, p_target_subtree_xml_node xmldom.DOMNode) RETURN xmldom.DOMNode IS
980:
981: l_xmldoc xmldom.DOMDocument;
982:
983: BEGIN
977: END Close_Parser;
978:
979: FUNCTION cloneNode(p_source_xml_node xmldom.DOMNode, p_target_subtree_xml_node xmldom.DOMNode) RETURN xmldom.DOMNode IS
980:
981: l_xmldoc xmldom.DOMDocument;
982:
983: BEGIN
984:
985: l_xmldoc := xmldom.getOwnerDocument(p_target_subtree_xml_node);
981: l_xmldoc xmldom.DOMDocument;
982:
983: BEGIN
984:
985: l_xmldoc := xmldom.getOwnerDocument(p_target_subtree_xml_node);
986:
987: BEGIN
988:
989: CZ_UIOA_PVT.g_temp_xmldoc := l_xmldoc;
990: CZ_UIOA_PVT.g_temp_source_xml_node := p_source_xml_node;
991:
992: EXECUTE IMMEDIATE
993: 'BEGIN ' ||
994: ' CZ_UIOA_PVT.g_temp_xml_node := XMLDOM.importNode(CZ_UIOA_PVT.g_temp_xmldoc, CZ_UIOA_PVT.g_temp_source_xml_node, TRUE); ' ||
995: 'END;';
996:
997: RETURN CZ_UIOA_PVT.g_temp_xml_node;
998:
997: RETURN CZ_UIOA_PVT.g_temp_xml_node;
998:
999: EXCEPTION
1000: WHEN OTHERS THEN
1001: IF SQLCODE=-6550 THEN -- there is no function importNode() in XMLDOM
1002: RETURN xmldom.cloneNode(p_source_xml_node, TRUE);
1003: ELSE
1004: RAISE;
1005: END IF;
998:
999: EXCEPTION
1000: WHEN OTHERS THEN
1001: IF SQLCODE=-6550 THEN -- there is no function importNode() in XMLDOM
1002: RETURN xmldom.cloneNode(p_source_xml_node, TRUE);
1003: ELSE
1004: RAISE;
1005: END IF;
1006: END;
2091: PROCEDURE save_Template_As_Local
2092: (p_template_id IN NUMBER,
2093: p_ui_def_id IN NUMBER) IS
2094:
2095: l_xmldoc xmldom.DOMDocument;
2096: l_jrad_doc VARCHAR2(4000);
2097: l_template_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
2098:
2099: BEGIN
2109: -- create UI Template in JRAD repository
2110: --
2111: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_template_jrad_doc);
2112:
2113: IF xmldom.isNull(l_xmldoc) THEN
2114: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
2115: p_token_name => 'UI_TEMPLATE',
2116: p_token_value => l_template_jrad_doc,
2117: p_fatal_error => TRUE);
3469: -- remove common attributes in case when we attach template
3470: -- starting with DOM node p_node
3471: -- Parameters : p_node - identifies DOM node of subtree's root
3472: --
3473: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
3474: l_root_elem xmldom.DOMElement;
3475: BEGIN
3476: l_root_elem := xmldom.makeElement(p_node);
3477: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
3470: -- starting with DOM node p_node
3471: -- Parameters : p_node - identifies DOM node of subtree's root
3472: --
3473: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
3474: l_root_elem xmldom.DOMElement;
3475: BEGIN
3476: l_root_elem := xmldom.makeElement(p_node);
3477: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
3478: LOOP
3472: --
3473: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
3474: l_root_elem xmldom.DOMElement;
3475: BEGIN
3476: l_root_elem := xmldom.makeElement(p_node);
3477: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
3478: LOOP
3479: BEGIN
3480: xmldom.removeAttribute(l_root_elem, g_toplevel_attr_tbl(i));
3476: l_root_elem := xmldom.makeElement(p_node);
3477: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
3478: LOOP
3479: BEGIN
3480: xmldom.removeAttribute(l_root_elem, g_toplevel_attr_tbl(i));
3481: EXCEPTION
3482: WHEN OTHERS THEN
3483: NULL;
3484: END;
3487:
3488: --
3489: -- remove non user attributes from a given XML node
3490: --
3491: PROCEDURE remove_Non_User_Attributes(p_node xmldom.DOMNode) IS
3492:
3493: l_root_elem xmldom.DOMElement;
3494: l_node_map_tbl xmldom.DOMNamedNodeMap;
3495: l_node_attr xmldom.DOMNode;
3489: -- remove non user attributes from a given XML node
3490: --
3491: PROCEDURE remove_Non_User_Attributes(p_node xmldom.DOMNode) IS
3492:
3493: l_root_elem xmldom.DOMElement;
3494: l_node_map_tbl xmldom.DOMNamedNodeMap;
3495: l_node_attr xmldom.DOMNode;
3496: l_attr_name VARCHAR2(32000);
3497: l_length NUMBER;
3490: --
3491: PROCEDURE remove_Non_User_Attributes(p_node xmldom.DOMNode) IS
3492:
3493: l_root_elem xmldom.DOMElement;
3494: l_node_map_tbl xmldom.DOMNamedNodeMap;
3495: l_node_attr xmldom.DOMNode;
3496: l_attr_name VARCHAR2(32000);
3497: l_length NUMBER;
3498:
3491: PROCEDURE remove_Non_User_Attributes(p_node xmldom.DOMNode) IS
3492:
3493: l_root_elem xmldom.DOMElement;
3494: l_node_map_tbl xmldom.DOMNamedNodeMap;
3495: l_node_attr xmldom.DOMNode;
3496: l_attr_name VARCHAR2(32000);
3497: l_length NUMBER;
3498:
3499: BEGIN
3497: l_length NUMBER;
3498:
3499: BEGIN
3500:
3501: l_root_elem := xmldom.makeElement(p_node);
3502:
3503: l_node_map_tbl := xmldom.getAttributes(p_node);
3504: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3505: l_length := xmldom.getLength(l_node_map_tbl);
3499: BEGIN
3500:
3501: l_root_elem := xmldom.makeElement(p_node);
3502:
3503: l_node_map_tbl := xmldom.getAttributes(p_node);
3504: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3505: l_length := xmldom.getLength(l_node_map_tbl);
3506: --
3507: -- loop through attributes
3500:
3501: l_root_elem := xmldom.makeElement(p_node);
3502:
3503: l_node_map_tbl := xmldom.getAttributes(p_node);
3504: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3505: l_length := xmldom.getLength(l_node_map_tbl);
3506: --
3507: -- loop through attributes
3508: --
3501: l_root_elem := xmldom.makeElement(p_node);
3502:
3503: l_node_map_tbl := xmldom.getAttributes(p_node);
3504: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3505: l_length := xmldom.getLength(l_node_map_tbl);
3506: --
3507: -- loop through attributes
3508: --
3509: FOR i IN 0 .. l_length - 1
3507: -- loop through attributes
3508: --
3509: FOR i IN 0 .. l_length - 1
3510: LOOP
3511: l_node_attr := xmldom.item(l_node_map_tbl, i);
3512:
3513: IF NOT(xmldom.isNull(l_node_attr)) THEN
3514: l_attr_name := xmldom.getNodeName(l_node_attr);
3515: IF (lower(l_attr_name) not like ('user:attribute%') AND
3509: FOR i IN 0 .. l_length - 1
3510: LOOP
3511: l_node_attr := xmldom.item(l_node_map_tbl, i);
3512:
3513: IF NOT(xmldom.isNull(l_node_attr)) THEN
3514: l_attr_name := xmldom.getNodeName(l_node_attr);
3515: IF (lower(l_attr_name) not like ('user:attribute%') AND
3516: lower(l_attr_name) <> G_ID_ATTRIBUTE) OR
3517: lower(l_attr_name)=G_USER_ATTRIBUTE10_NAME THEN
3510: LOOP
3511: l_node_attr := xmldom.item(l_node_map_tbl, i);
3512:
3513: IF NOT(xmldom.isNull(l_node_attr)) THEN
3514: l_attr_name := xmldom.getNodeName(l_node_attr);
3515: IF (lower(l_attr_name) not like ('user:attribute%') AND
3516: lower(l_attr_name) <> G_ID_ATTRIBUTE) OR
3517: lower(l_attr_name)=G_USER_ATTRIBUTE10_NAME THEN
3518: xmldom.removeAttribute(l_root_elem, l_attr_name);
3514: l_attr_name := xmldom.getNodeName(l_node_attr);
3515: IF (lower(l_attr_name) not like ('user:attribute%') AND
3516: lower(l_attr_name) <> G_ID_ATTRIBUTE) OR
3517: lower(l_attr_name)=G_USER_ATTRIBUTE10_NAME THEN
3518: xmldom.removeAttribute(l_root_elem, l_attr_name);
3519: END IF;
3520: END IF;
3521: END LOOP;
3522: END IF;
3651: -- p_node - DOM node
3652: -- p_attr_name - attribute name
3653: -- Return : attribute value as VARCHAR2 string
3654: --
3655: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
3656: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3657:
3658: l_node_map_tbl xmldom.DOMNamedNodeMap;
3659: l_node_attr xmldom.DOMNode;
3654: --
3655: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
3656: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3657:
3658: l_node_map_tbl xmldom.DOMNamedNodeMap;
3659: l_node_attr xmldom.DOMNode;
3660: l_attr_value VARCHAR2(32000);
3661: l_length NUMBER;
3662:
3655: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
3656: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3657:
3658: l_node_map_tbl xmldom.DOMNamedNodeMap;
3659: l_node_attr xmldom.DOMNode;
3660: l_attr_value VARCHAR2(32000);
3661: l_length NUMBER;
3662:
3663: BEGIN
3660: l_attr_value VARCHAR2(32000);
3661: l_length NUMBER;
3662:
3663: BEGIN
3664: IF xmldom.IsNull(p_node) THEN
3665: RETURN NULL;
3666: END IF;
3667: l_node_map_tbl := xmldom.getAttributes(p_node);
3668:
3663: BEGIN
3664: IF xmldom.IsNull(p_node) THEN
3665: RETURN NULL;
3666: END IF;
3667: l_node_map_tbl := xmldom.getAttributes(p_node);
3668:
3669: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3670: l_length := xmldom.getLength(l_node_map_tbl);
3671: --
3665: RETURN NULL;
3666: END IF;
3667: l_node_map_tbl := xmldom.getAttributes(p_node);
3668:
3669: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3670: l_length := xmldom.getLength(l_node_map_tbl);
3671: --
3672: -- loop through attributes
3673: --
3666: END IF;
3667: l_node_map_tbl := xmldom.getAttributes(p_node);
3668:
3669: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3670: l_length := xmldom.getLength(l_node_map_tbl);
3671: --
3672: -- loop through attributes
3673: --
3674: FOR i IN 0 .. l_length - 1
3672: -- loop through attributes
3673: --
3674: FOR i IN 0 .. l_length - 1
3675: LOOP
3676: l_node_attr := xmldom.item(l_node_map_tbl, i);
3677: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3678: l_attr_value := xmldom.getNodeValue(l_node_attr);
3679: EXIT;
3680: END IF;
3673: --
3674: FOR i IN 0 .. l_length - 1
3675: LOOP
3676: l_node_attr := xmldom.item(l_node_map_tbl, i);
3677: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3678: l_attr_value := xmldom.getNodeValue(l_node_attr);
3679: EXIT;
3680: END IF;
3681: END LOOP;
3674: FOR i IN 0 .. l_length - 1
3675: LOOP
3676: l_node_attr := xmldom.item(l_node_map_tbl, i);
3677: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3678: l_attr_value := xmldom.getNodeValue(l_node_attr);
3679: EXIT;
3680: END IF;
3681: END LOOP;
3682: END IF;
3682: END IF;
3683: RETURN l_attr_value;
3684: END get_Attribute_Value;
3685:
3686: FUNCTION attribute_Value(p_node IN xmldom.DOMNode,
3687: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3688:
3689: l_node_map_tbl xmldom.DOMNamedNodeMap;
3690: l_node_attr xmldom.DOMNode;
3685:
3686: FUNCTION attribute_Value(p_node IN xmldom.DOMNode,
3687: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3688:
3689: l_node_map_tbl xmldom.DOMNamedNodeMap;
3690: l_node_attr xmldom.DOMNode;
3691: l_attr_value VARCHAR2(32000);
3692: l_length NUMBER;
3693:
3686: FUNCTION attribute_Value(p_node IN xmldom.DOMNode,
3687: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3688:
3689: l_node_map_tbl xmldom.DOMNamedNodeMap;
3690: l_node_attr xmldom.DOMNode;
3691: l_attr_value VARCHAR2(32000);
3692: l_length NUMBER;
3693:
3694: BEGIN
3691: l_attr_value VARCHAR2(32000);
3692: l_length NUMBER;
3693:
3694: BEGIN
3695: l_node_map_tbl := xmldom.getAttributes(p_node);
3696: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3697: l_length := xmldom.getLength(l_node_map_tbl);
3698: --
3699: -- loop through attributes
3692: l_length NUMBER;
3693:
3694: BEGIN
3695: l_node_map_tbl := xmldom.getAttributes(p_node);
3696: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3697: l_length := xmldom.getLength(l_node_map_tbl);
3698: --
3699: -- loop through attributes
3700: --
3693:
3694: BEGIN
3695: l_node_map_tbl := xmldom.getAttributes(p_node);
3696: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3697: l_length := xmldom.getLength(l_node_map_tbl);
3698: --
3699: -- loop through attributes
3700: --
3701: FOR i IN 0 .. l_length - 1
3699: -- loop through attributes
3700: --
3701: FOR i IN 0 .. l_length - 1
3702: LOOP
3703: l_node_attr := xmldom.item(l_node_map_tbl, i);
3704: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3705: l_attr_value := xmldom.getNodeValue(l_node_attr);
3706: IF l_attr_value IS NULL THEN
3707: RETURN NULL;
3700: --
3701: FOR i IN 0 .. l_length - 1
3702: LOOP
3703: l_node_attr := xmldom.item(l_node_map_tbl, i);
3704: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3705: l_attr_value := xmldom.getNodeValue(l_node_attr);
3706: IF l_attr_value IS NULL THEN
3707: RETURN NULL;
3708: ELSE
3701: FOR i IN 0 .. l_length - 1
3702: LOOP
3703: l_node_attr := xmldom.item(l_node_map_tbl, i);
3704: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3705: l_attr_value := xmldom.getNodeValue(l_node_attr);
3706: IF l_attr_value IS NULL THEN
3707: RETURN NULL;
3708: ELSE
3709: RETURN l_attr_value;
3744:
3745: --
3746: -- find DOM node by persistent_node_id
3747: --
3748: FUNCTION find_XML_Node_By_Attribute(p_subtree_doc xmldom.DOMDocument,
3749: p_attribute_name IN VARCHAR2,
3750: p_attribute_value IN VARCHAR2,
3751: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
3752: RETURN xmldom.DOMNode IS
3748: FUNCTION find_XML_Node_By_Attribute(p_subtree_doc xmldom.DOMDocument,
3749: p_attribute_name IN VARCHAR2,
3750: p_attribute_value IN VARCHAR2,
3751: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
3752: RETURN xmldom.DOMNode IS
3753:
3754: l_node xmldom.DOMNode;
3755: l_nodeslist xmldom.DOMNodeList;
3756: l_empty_xml_node xmldom.DOMNode;
3750: p_attribute_value IN VARCHAR2,
3751: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
3752: RETURN xmldom.DOMNode IS
3753:
3754: l_node xmldom.DOMNode;
3755: l_nodeslist xmldom.DOMNodeList;
3756: l_empty_xml_node xmldom.DOMNode;
3757: l_length NUMBER;
3758: l_attribute_value VARCHAR2(32000);
3751: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
3752: RETURN xmldom.DOMNode IS
3753:
3754: l_node xmldom.DOMNode;
3755: l_nodeslist xmldom.DOMNodeList;
3756: l_empty_xml_node xmldom.DOMNode;
3757: l_length NUMBER;
3758: l_attribute_value VARCHAR2(32000);
3759:
3752: RETURN xmldom.DOMNode IS
3753:
3754: l_node xmldom.DOMNode;
3755: l_nodeslist xmldom.DOMNodeList;
3756: l_empty_xml_node xmldom.DOMNode;
3757: l_length NUMBER;
3758: l_attribute_value VARCHAR2(32000);
3759:
3760: BEGIN
3766: --
3767: -- here we don't need to know about hierachy of nodes
3768: -- so we just need to get list of all nodes of XML subtree
3769: --
3770: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
3771: l_length := xmldom.getLength(l_nodeslist);
3772:
3773: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
3774:
3767: -- here we don't need to know about hierachy of nodes
3768: -- so we just need to get list of all nodes of XML subtree
3769: --
3770: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
3771: l_length := xmldom.getLength(l_nodeslist);
3772:
3773: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
3774:
3775: l_attribute_value := get_Attribute_Value(l_node, p_attribute_name);
3769: --
3770: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
3771: l_length := xmldom.getLength(l_nodeslist);
3772:
3773: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
3774:
3775: l_attribute_value := get_Attribute_Value(l_node, p_attribute_name);
3776:
3777: IF p_in_user_attributes=G_YES_FLAG THEN
3789: -- scan subtree and substitute macros "%" to real values
3790: --
3791: FOR i IN 0 .. l_length - 1
3792: LOOP
3793: l_node := xmldom.item(l_nodeslist, i);
3794:
3795: IF p_in_user_attributes=G_YES_FLAG THEN
3796: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE4_NAME);
3797: l_attribute_value := get_User_Attribute(l_attribute_value, p_attribute_name);
3813: -- Parameters :
3814: -- p_node - DOM node
3815: -- Return : top level DOM node with XML tag = p_tag
3816: --
3817: FUNCTION getUIContents(p_node xmldom.DOMNode,
3818: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_empty_xml_node xmldom.DOMNode;
3814: -- p_node - DOM node
3815: -- Return : top level DOM node with XML tag = p_tag
3816: --
3817: FUNCTION getUIContents(p_node xmldom.DOMNode,
3818: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_empty_xml_node xmldom.DOMNode;
3822: l_length NUMBER;
3815: -- Return : top level DOM node with XML tag = p_tag
3816: --
3817: FUNCTION getUIContents(p_node xmldom.DOMNode,
3818: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_empty_xml_node xmldom.DOMNode;
3822: l_length NUMBER;
3823: BEGIN
3816: --
3817: FUNCTION getUIContents(p_node xmldom.DOMNode,
3818: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_empty_xml_node xmldom.DOMNode;
3822: l_length NUMBER;
3823: BEGIN
3824: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3817: FUNCTION getUIContents(p_node xmldom.DOMNode,
3818: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_empty_xml_node xmldom.DOMNode;
3822: l_length NUMBER;
3823: BEGIN
3824: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3825: l_length := xmldom.getLength(l_child_nodes_tbl);
3820: l_child_xml_node xmldom.DOMNode;
3821: l_empty_xml_node xmldom.DOMNode;
3822: l_length NUMBER;
3823: BEGIN
3824: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3825: l_length := xmldom.getLength(l_child_nodes_tbl);
3826: FOR k IN 0 .. l_length - 1
3827: LOOP
3828: --
3821: l_empty_xml_node xmldom.DOMNode;
3822: l_length NUMBER;
3823: BEGIN
3824: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3825: l_length := xmldom.getLength(l_child_nodes_tbl);
3826: FOR k IN 0 .. l_length - 1
3827: LOOP
3828: --
3829: -- get next child DOM node
3827: LOOP
3828: --
3829: -- get next child DOM node
3830: --
3831: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3832:
3833: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3834: UPPER(G_UI_CONTENTS_TAG) THEN
3835: RETURN l_child_xml_node;
3829: -- get next child DOM node
3830: --
3831: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3832:
3833: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3834: UPPER(G_UI_CONTENTS_TAG) THEN
3835: RETURN l_child_xml_node;
3836: END IF;
3837: END LOOP;
3842: RETURN l_empty_xml_node;
3843: END IF;
3844: END getUIContents;
3845:
3846: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3847: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3848: l_child_nodes_tbl xmldom.DOMNodeList;
3849: l_child_xml_node xmldom.DOMNode;
3850: l_empty_xml_node xmldom.DOMNode;
3843: END IF;
3844: END getUIContents;
3845:
3846: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3847: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3848: l_child_nodes_tbl xmldom.DOMNodeList;
3849: l_child_xml_node xmldom.DOMNode;
3850: l_empty_xml_node xmldom.DOMNode;
3851: l_length NUMBER;
3844: END getUIContents;
3845:
3846: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3847: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3848: l_child_nodes_tbl xmldom.DOMNodeList;
3849: l_child_xml_node xmldom.DOMNode;
3850: l_empty_xml_node xmldom.DOMNode;
3851: l_length NUMBER;
3852: BEGIN
3845:
3846: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3847: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3848: l_child_nodes_tbl xmldom.DOMNodeList;
3849: l_child_xml_node xmldom.DOMNode;
3850: l_empty_xml_node xmldom.DOMNode;
3851: l_length NUMBER;
3852: BEGIN
3853: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3846: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3847: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3848: l_child_nodes_tbl xmldom.DOMNodeList;
3849: l_child_xml_node xmldom.DOMNode;
3850: l_empty_xml_node xmldom.DOMNode;
3851: l_length NUMBER;
3852: BEGIN
3853: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3854: l_length := xmldom.getLength(l_child_nodes_tbl);
3849: l_child_xml_node xmldom.DOMNode;
3850: l_empty_xml_node xmldom.DOMNode;
3851: l_length NUMBER;
3852: BEGIN
3853: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3854: l_length := xmldom.getLength(l_child_nodes_tbl);
3855: FOR k IN 0 .. l_length - 1
3856: LOOP
3857: --
3850: l_empty_xml_node xmldom.DOMNode;
3851: l_length NUMBER;
3852: BEGIN
3853: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3854: l_length := xmldom.getLength(l_child_nodes_tbl);
3855: FOR k IN 0 .. l_length - 1
3856: LOOP
3857: --
3858: -- get next child DOM node
3856: LOOP
3857: --
3858: -- get next child DOM node
3859: --
3860: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3861:
3862: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3863: UPPER(p_xml_tag) THEN
3864: RETURN l_child_xml_node;
3858: -- get next child DOM node
3859: --
3860: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3861:
3862: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3863: UPPER(p_xml_tag) THEN
3864: RETURN l_child_xml_node;
3865: END IF;
3866: END LOOP;
3875: -- Parameters :
3876: -- p_node - DOM node
3877: -- Return : top level DOM node with XML tag = p_tag
3878: --
3879: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3880: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3881: l_child_nodes_tbl xmldom.DOMNodeList;
3882: l_child_xml_node xmldom.DOMNode;
3883: l_first_ui_contents xmldom.DOMNode;
3876: -- p_node - DOM node
3877: -- Return : top level DOM node with XML tag = p_tag
3878: --
3879: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3880: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3881: l_child_nodes_tbl xmldom.DOMNodeList;
3882: l_child_xml_node xmldom.DOMNode;
3883: l_first_ui_contents xmldom.DOMNode;
3884: l_second_ui_contents xmldom.DOMNode;
3877: -- Return : top level DOM node with XML tag = p_tag
3878: --
3879: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3880: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3881: l_child_nodes_tbl xmldom.DOMNodeList;
3882: l_child_xml_node xmldom.DOMNode;
3883: l_first_ui_contents xmldom.DOMNode;
3884: l_second_ui_contents xmldom.DOMNode;
3885: l_rowlayout xmldom.DOMNode;
3878: --
3879: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3880: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3881: l_child_nodes_tbl xmldom.DOMNodeList;
3882: l_child_xml_node xmldom.DOMNode;
3883: l_first_ui_contents xmldom.DOMNode;
3884: l_second_ui_contents xmldom.DOMNode;
3885: l_rowlayout xmldom.DOMNode;
3886: l_length NUMBER;
3879: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3880: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3881: l_child_nodes_tbl xmldom.DOMNodeList;
3882: l_child_xml_node xmldom.DOMNode;
3883: l_first_ui_contents xmldom.DOMNode;
3884: l_second_ui_contents xmldom.DOMNode;
3885: l_rowlayout xmldom.DOMNode;
3886: l_length NUMBER;
3887: l_counter NUMBER;
3880: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3881: l_child_nodes_tbl xmldom.DOMNodeList;
3882: l_child_xml_node xmldom.DOMNode;
3883: l_first_ui_contents xmldom.DOMNode;
3884: l_second_ui_contents xmldom.DOMNode;
3885: l_rowlayout xmldom.DOMNode;
3886: l_length NUMBER;
3887: l_counter NUMBER;
3888: l_id_attribute VARCHAR2(255);
3881: l_child_nodes_tbl xmldom.DOMNodeList;
3882: l_child_xml_node xmldom.DOMNode;
3883: l_first_ui_contents xmldom.DOMNode;
3884: l_second_ui_contents xmldom.DOMNode;
3885: l_rowlayout xmldom.DOMNode;
3886: l_length NUMBER;
3887: l_counter NUMBER;
3888: l_id_attribute VARCHAR2(255);
3889: BEGIN
3889: BEGIN
3890:
3891: l_first_ui_contents := getUIContents(p_node);
3892:
3893: l_child_nodes_tbl := xmldom.getChildNodes(l_first_ui_contents);
3894: l_length := xmldom.getLength(l_child_nodes_tbl);
3895: FOR k IN 0 .. l_length - 1
3896: LOOP
3897: --
3890:
3891: l_first_ui_contents := getUIContents(p_node);
3892:
3893: l_child_nodes_tbl := xmldom.getChildNodes(l_first_ui_contents);
3894: l_length := xmldom.getLength(l_child_nodes_tbl);
3895: FOR k IN 0 .. l_length - 1
3896: LOOP
3897: --
3898: -- get next child DOM node
3896: LOOP
3897: --
3898: -- get next child DOM node
3899: --
3900: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3901:
3902: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3903: UPPER('oa:rowLayout') THEN
3904:
3898: -- get next child DOM node
3899: --
3900: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3901:
3902: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3903: UPPER('oa:rowLayout') THEN
3904:
3905: l_id_attribute := get_Attribute_Value(l_child_xml_node,
3906: G_ID_ATTRIBUTE);
3912: l_second_ui_contents := getUIContents(l_child_xml_node);
3913:
3914: l_counter:= 0;
3915:
3916: l_child_nodes_tbl := xmldom.getChildNodes(l_second_ui_contents);
3917: l_length := xmldom.getLength(l_child_nodes_tbl);
3918: FOR k IN 0 .. l_length - 1
3919: LOOP
3920: --
3913:
3914: l_counter:= 0;
3915:
3916: l_child_nodes_tbl := xmldom.getChildNodes(l_second_ui_contents);
3917: l_length := xmldom.getLength(l_child_nodes_tbl);
3918: FOR k IN 0 .. l_length - 1
3919: LOOP
3920: --
3921: -- get next child DOM node
3919: LOOP
3920: --
3921: -- get next child DOM node
3922: --
3923: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3924:
3925: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3926: UPPER('oa:cellFormat') THEN
3927: l_counter := l_counter + 1;
3921: -- get next child DOM node
3922: --
3923: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3924:
3925: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3926: UPPER('oa:cellFormat') THEN
3927: l_counter := l_counter + 1;
3928: IF l_counter=p_col_number THEN
3929:
3942:
3943: --
3944: -- find DOM node by persistent_node_id
3945: --
3946: FUNCTION find_Table_Of_XML_Node(p_parent_xml_node xmldom.DOMNode,
3947: p_element_id IN VARCHAR2)
3948: RETURN xmldom.DOMNode IS
3949:
3950: l_child_xml_node xmldom.DOMNode;
3944: -- find DOM node by persistent_node_id
3945: --
3946: FUNCTION find_Table_Of_XML_Node(p_parent_xml_node xmldom.DOMNode,
3947: p_element_id IN VARCHAR2)
3948: RETURN xmldom.DOMNode IS
3949:
3950: l_child_xml_node xmldom.DOMNode;
3951: l_table_child_xml_node xmldom.DOMNode;
3952: l_empty_xml_node xmldom.DOMNode;
3946: FUNCTION find_Table_Of_XML_Node(p_parent_xml_node xmldom.DOMNode,
3947: p_element_id IN VARCHAR2)
3948: RETURN xmldom.DOMNode IS
3949:
3950: l_child_xml_node xmldom.DOMNode;
3951: l_table_child_xml_node xmldom.DOMNode;
3952: l_empty_xml_node xmldom.DOMNode;
3953: l_uicont_xml_node xmldom.DOMNode;
3954: l_ui_contents_xml_node xmldom.DOMNode;
3947: p_element_id IN VARCHAR2)
3948: RETURN xmldom.DOMNode IS
3949:
3950: l_child_xml_node xmldom.DOMNode;
3951: l_table_child_xml_node xmldom.DOMNode;
3952: l_empty_xml_node xmldom.DOMNode;
3953: l_uicont_xml_node xmldom.DOMNode;
3954: l_ui_contents_xml_node xmldom.DOMNode;
3955: l_child_nodes_tbl xmldom.DOMNodeList;
3948: RETURN xmldom.DOMNode IS
3949:
3950: l_child_xml_node xmldom.DOMNode;
3951: l_table_child_xml_node xmldom.DOMNode;
3952: l_empty_xml_node xmldom.DOMNode;
3953: l_uicont_xml_node xmldom.DOMNode;
3954: l_ui_contents_xml_node xmldom.DOMNode;
3955: l_child_nodes_tbl xmldom.DOMNodeList;
3956: l_table_child_nodes_tbl xmldom.DOMNodeList;
3949:
3950: l_child_xml_node xmldom.DOMNode;
3951: l_table_child_xml_node xmldom.DOMNode;
3952: l_empty_xml_node xmldom.DOMNode;
3953: l_uicont_xml_node xmldom.DOMNode;
3954: l_ui_contents_xml_node xmldom.DOMNode;
3955: l_child_nodes_tbl xmldom.DOMNodeList;
3956: l_table_child_nodes_tbl xmldom.DOMNodeList;
3957: l_length NUMBER;
3950: l_child_xml_node xmldom.DOMNode;
3951: l_table_child_xml_node xmldom.DOMNode;
3952: l_empty_xml_node xmldom.DOMNode;
3953: l_uicont_xml_node xmldom.DOMNode;
3954: l_ui_contents_xml_node xmldom.DOMNode;
3955: l_child_nodes_tbl xmldom.DOMNodeList;
3956: l_table_child_nodes_tbl xmldom.DOMNodeList;
3957: l_length NUMBER;
3958: l_table_child_length NUMBER;
3951: l_table_child_xml_node xmldom.DOMNode;
3952: l_empty_xml_node xmldom.DOMNode;
3953: l_uicont_xml_node xmldom.DOMNode;
3954: l_ui_contents_xml_node xmldom.DOMNode;
3955: l_child_nodes_tbl xmldom.DOMNodeList;
3956: l_table_child_nodes_tbl xmldom.DOMNodeList;
3957: l_length NUMBER;
3958: l_table_child_length NUMBER;
3959:
3952: l_empty_xml_node xmldom.DOMNode;
3953: l_uicont_xml_node xmldom.DOMNode;
3954: l_ui_contents_xml_node xmldom.DOMNode;
3955: l_child_nodes_tbl xmldom.DOMNodeList;
3956: l_table_child_nodes_tbl xmldom.DOMNodeList;
3957: l_length NUMBER;
3958: l_table_child_length NUMBER;
3959:
3960: BEGIN
3958: l_table_child_length NUMBER;
3959:
3960: BEGIN
3961:
3962: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
3963: 'oa:flowLayout','oa:tableLayout') THEN
3964:
3965: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
3966: ELSE
3969:
3970: --
3971: -- get child nodes of DOM node : p_node
3972: --
3973: l_child_nodes_tbl := xmldom.getChildNodes(l_ui_contents_xml_node);
3974:
3975: --
3976: -- we need to get length of array of child nodes
3977: -- to go through the array in loop
3975: --
3976: -- we need to get length of array of child nodes
3977: -- to go through the array in loop
3978: --
3979: l_length := xmldom.getLength(l_child_nodes_tbl);
3980:
3981: FOR k IN 0 .. l_length - 1
3982: LOOP
3983: --
3982: LOOP
3983: --
3984: -- get next child DOM node
3985: --
3986: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3987:
3988: IF (get_Attribute_Value(l_child_xml_node, G_USER_ATTRIBUTE5_NAME) = 'TABLELAYOUT_FOR_UI_GEN') THEN
3989:
3990: BEGIN
3989:
3990: BEGIN
3991: l_uicont_xml_node := getUIContents(l_child_xml_node);
3992:
3993: l_table_child_nodes_tbl := xmldom.getChildNodes(l_uicont_xml_node);
3994: l_table_child_length := xmldom.getLength(l_table_child_nodes_tbl);
3995:
3996: FOR m IN 0 .. l_table_child_length - 1
3997: LOOP
3990: BEGIN
3991: l_uicont_xml_node := getUIContents(l_child_xml_node);
3992:
3993: l_table_child_nodes_tbl := xmldom.getChildNodes(l_uicont_xml_node);
3994: l_table_child_length := xmldom.getLength(l_table_child_nodes_tbl);
3995:
3996: FOR m IN 0 .. l_table_child_length - 1
3997: LOOP
3998: l_table_child_xml_node := xmldom.item(l_table_child_nodes_tbl, m);
3994: l_table_child_length := xmldom.getLength(l_table_child_nodes_tbl);
3995:
3996: FOR m IN 0 .. l_table_child_length - 1
3997: LOOP
3998: l_table_child_xml_node := xmldom.item(l_table_child_nodes_tbl, m);
3999:
4000: IF get_Attribute_Value(l_table_child_xml_node, G_ID_ATTRIBUTE) = p_element_id THEN
4001: RETURN l_uicont_xml_node;
4002: END IF;
4013:
4014: --
4015: -- find a given xml tag up on the tree
4016: --
4017: FUNCTION find_Element_Id_Of_XMLTag(p_xml_node xmldom.DOMNode,
4018: p_tag_name VARCHAR2 ) RETURN VARCHAR2 IS
4019: l_node xmldom.DOMNode;
4020: l_hgrid_node xmldom.DOMNode;
4021: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
4015: -- find a given xml tag up on the tree
4016: --
4017: FUNCTION find_Element_Id_Of_XMLTag(p_xml_node xmldom.DOMNode,
4018: p_tag_name VARCHAR2 ) RETURN VARCHAR2 IS
4019: l_node xmldom.DOMNode;
4020: l_hgrid_node xmldom.DOMNode;
4021: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
4022: BEGIN
4023: IF xmldom.isNull(p_node) THEN
4016: --
4017: FUNCTION find_Element_Id_Of_XMLTag(p_xml_node xmldom.DOMNode,
4018: p_tag_name VARCHAR2 ) RETURN VARCHAR2 IS
4019: l_node xmldom.DOMNode;
4020: l_hgrid_node xmldom.DOMNode;
4021: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
4022: BEGIN
4023: IF xmldom.isNull(p_node) THEN
4024: RETURN;
4017: FUNCTION find_Element_Id_Of_XMLTag(p_xml_node xmldom.DOMNode,
4018: p_tag_name VARCHAR2 ) RETURN VARCHAR2 IS
4019: l_node xmldom.DOMNode;
4020: l_hgrid_node xmldom.DOMNode;
4021: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
4022: BEGIN
4023: IF xmldom.isNull(p_node) THEN
4024: RETURN;
4025: END IF;
4019: l_node xmldom.DOMNode;
4020: l_hgrid_node xmldom.DOMNode;
4021: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
4022: BEGIN
4023: IF xmldom.isNull(p_node) THEN
4024: RETURN;
4025: END IF;
4026: l_node := xmldom.getParentNode(p_node);
4027: IF lower(xmldom.getNodeName(l_node))=lower(p_tag_name) THEN
4022: BEGIN
4023: IF xmldom.isNull(p_node) THEN
4024: RETURN;
4025: END IF;
4026: l_node := xmldom.getParentNode(p_node);
4027: IF lower(xmldom.getNodeName(l_node))=lower(p_tag_name) THEN
4028: l_hgrid_node := l_node;
4029: ELSE
4030: find_hgrid(l_node);
4023: IF xmldom.isNull(p_node) THEN
4024: RETURN;
4025: END IF;
4026: l_node := xmldom.getParentNode(p_node);
4027: IF lower(xmldom.getNodeName(l_node))=lower(p_tag_name) THEN
4028: l_hgrid_node := l_node;
4029: ELSE
4030: find_hgrid(l_node);
4031: END IF;
4040: RETURN NULL;
4041: END find_Element_Id_Of_XMLTag;
4042:
4043:
4044: FUNCTION find_AMN_Element_Above(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
4045:
4046: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
4047:
4048: PROCEDURE AMN_Element_Above(p_node xmldom.DOMNode) IS
4044: FUNCTION find_AMN_Element_Above(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
4045:
4046: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
4047:
4048: PROCEDURE AMN_Element_Above(p_node xmldom.DOMNode) IS
4049:
4050: l_node xmldom.DOMNode;
4051: l_next_node xmldom.DOMNode;
4052: l_user_attribute1 VARCHAR2(32000);
4046: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
4047:
4048: PROCEDURE AMN_Element_Above(p_node xmldom.DOMNode) IS
4049:
4050: l_node xmldom.DOMNode;
4051: l_next_node xmldom.DOMNode;
4052: l_user_attribute1 VARCHAR2(32000);
4053:
4054: BEGIN
4047:
4048: PROCEDURE AMN_Element_Above(p_node xmldom.DOMNode) IS
4049:
4050: l_node xmldom.DOMNode;
4051: l_next_node xmldom.DOMNode;
4052: l_user_attribute1 VARCHAR2(32000);
4053:
4054: BEGIN
4055:
4052: l_user_attribute1 VARCHAR2(32000);
4053:
4054: BEGIN
4055:
4056: l_node := xmldom.getParentNode(p_node);
4057:
4058: IF xmldom.isNull(l_node) THEN
4059: l_element_id := get_Attribute_Value(p_node, G_ID_ATTRIBUTE);
4060: RETURN;
4054: BEGIN
4055:
4056: l_node := xmldom.getParentNode(p_node);
4057:
4058: IF xmldom.isNull(l_node) THEN
4059: l_element_id := get_Attribute_Value(p_node, G_ID_ATTRIBUTE);
4060: RETURN;
4061: END IF;
4062:
4068: RETURN;
4069:
4070: ELSE
4071:
4072: l_next_node := xmldom.getParentNode(l_node);
4073:
4074: IF xmldom.isNull(l_next_node) THEN
4075: l_element_id := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
4076: RETURN;
4070: ELSE
4071:
4072: l_next_node := xmldom.getParentNode(l_node);
4073:
4074: IF xmldom.isNull(l_next_node) THEN
4075: l_element_id := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
4076: RETURN;
4077: ELSE
4078: AMN_Element_Above(l_node);
4096: -- Parameters :
4097: -- p_doc_full_name - full JRAD name of the document
4098: --
4099: FUNCTION parse_JRAD_Document(p_doc_full_name IN VARCHAR2)
4100: RETURN xmldom.DOMDocument IS
4101:
4102: l_buffer VARCHAR2(32000);
4103: l_lob_loc CLOB;
4104: l_amount BINARY_INTEGER;
4102: l_buffer VARCHAR2(32000);
4103: l_lob_loc CLOB;
4104: l_amount BINARY_INTEGER;
4105: l_position INTEGER := 1;
4106: l_xmldoc xmldom.DOMDocument;
4107: l_exportfinished BOOLEAN;
4108:
4109: BEGIN
4110:
4167: -- Parameters : p_dom_element - DOM Element which identifies DOM node
4168: -- p_attribute_name - attribute name
4169: -- p_attribute_value - attribute value
4170: --
4171: PROCEDURE set_Attribute(p_dom_element xmldom.DOMElement,
4172: p_attribute_name IN VARCHAR2,
4173: p_attribute_value IN VARCHAR2) IS
4174:
4175: BEGIN
4172: p_attribute_name IN VARCHAR2,
4173: p_attribute_value IN VARCHAR2) IS
4174:
4175: BEGIN
4176: xmldom.setAttribute(p_dom_element, p_attribute_name, p_attribute_value);
4177: END set_Attribute;
4178:
4179: --
4180: -- set CZ Attributes for a given DOM node
4181: -- Parameters : p_dom_element - DOM Element which identifies DOM node
4182: -- p_attribute_name - attribute name
4183: -- p_attribute_value - attribute value
4184: --
4185: PROCEDURE set_Attribute(p_dom_node xmldom.DOMNode,
4186: p_attribute_name IN VARCHAR2,
4187: p_attribute_value IN VARCHAR2) IS
4188:
4189: BEGIN
4186: p_attribute_name IN VARCHAR2,
4187: p_attribute_value IN VARCHAR2) IS
4188:
4189: BEGIN
4190: xmldom.setAttribute(xmldom.makeElement(p_dom_node), p_attribute_name, p_attribute_value);
4191: END set_Attribute;
4192:
4193: --
4194: -- set internal CZ attributes within "user:attribute1"
4234: END IF;
4235:
4236: END set_User_Attribute;
4237: --vsingava IM-ER
4238: PROCEDURE set_user_attribute(p_xml_node xmldom.DOMNode,
4239: p_jrad_attribute_name VARCHAR2,
4240: p_cz_attribute_name VARCHAR2,
4241: p_attribute_value VARCHAR2) IS
4242: l_user_attribute VARCHAR2(2000);
4239: p_jrad_attribute_name VARCHAR2,
4240: p_cz_attribute_name VARCHAR2,
4241: p_attribute_value VARCHAR2) IS
4242: l_user_attribute VARCHAR2(2000);
4243: l_xml_node xmldom.DOMNode;
4244: BEGIN
4245:
4246: l_user_attribute := get_Attribute_Value(p_xml_node,
4247: p_jrad_attribute_name);
4256: END set_user_attribute;
4257:
4258: -- Removes the indicated CZ attribute from the indicated Jrad User attribute and set the
4259: -- remainder back on to the node
4260: FUNCTION remove_user_attribute(p_xml_node xmldom.DOMNode,
4261: p_jrad_attribute_name VARCHAR2,
4262: p_cz_attribute_name VARCHAR2) RETURN VARCHAR2 IS
4263: l_user_attribute VARCHAR2(2000);
4264: l_cz_attr_val VARCHAR2(2000);
4300: --
4301: -- this procedure adds CZ_UI_PAGE_ELEMENTS records
4302: -- which correspond to first level UI template references
4303: --
4304: PROCEDURE add_Extends_Refs(p_xml_node xmldom.DOMNode,
4305: p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE) IS
4306:
4307: l_seq_nbr NUMBER;
4308: l_template_id NUMBER;
4390:
4391: END add_Extends_Refs;
4392:
4393: FUNCTION find_Parent_UI_Element
4394: (p_xml_node xmldom.DOMNode,
4395: p_ui_def_id IN NUMBER,
4396: p_ui_page_id IN NUMBER) RETURN CZ_UI_PAGE_ELEMENTS%ROWTYPE IS
4397:
4398: l_ui_element CZ_UI_PAGE_ELEMENTS%ROWTYPE;
4396: p_ui_page_id IN NUMBER) RETURN CZ_UI_PAGE_ELEMENTS%ROWTYPE IS
4397:
4398: l_ui_element CZ_UI_PAGE_ELEMENTS%ROWTYPE;
4399:
4400: PROCEDURE get_Parent_XML(p_check_xml_node xmldom.DOMNode) IS
4401:
4402: l_parent_xml_node xmldom.DOMNode;
4403: l_id_attr_value VARCHAR2(32000);
4404:
4398: l_ui_element CZ_UI_PAGE_ELEMENTS%ROWTYPE;
4399:
4400: PROCEDURE get_Parent_XML(p_check_xml_node xmldom.DOMNode) IS
4401:
4402: l_parent_xml_node xmldom.DOMNode;
4403: l_id_attr_value VARCHAR2(32000);
4404:
4405: BEGIN
4406:
4419: END;
4420:
4421: END IF;
4422:
4423: l_parent_xml_node := xmldom.getParentNode(p_check_xml_node);
4424:
4425:
4426: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
4427:
4422:
4423: l_parent_xml_node := xmldom.getParentNode(p_check_xml_node);
4424:
4425:
4426: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
4427:
4428: l_id_attr_value := get_Attribute_Value(l_parent_xml_node , G_ID_ATTRIBUTE);
4429:
4430:
4476: --
4477: -- handle special cases ( like "switcher case", "ancestor node" )
4478: --
4479: PROCEDURE handle_Special_XMLCases
4480: (p_xml_node xmldom.DOMNode,
4481: p_old_xml_node_id VARCHAR2,
4482: p_new_xml_node_id VARCHAR2,
4483: p_jrad_doc VARCHAR2,
4484: px_xml_switcher_id IN OUT NOCOPY VARCHAR2,
4483: p_jrad_doc VARCHAR2,
4484: px_xml_switcher_id IN OUT NOCOPY VARCHAR2,
4485: p_inline_copy_mode IN VARCHAR2) IS
4486:
4487: l_curr_parent_xml_node xmldom.DOMNode;
4488: l_ancestor_node_id VARCHAR2(255);
4489: l_xml_node_name VARCHAR2(255);
4490: l_parent_xml_node_name VARCHAR2(255);
4491: l_hgrid_element_id VARCHAR2(255);
4496: l_user_attribute4_value VARCHAR2(4000);
4497:
4498: BEGIN
4499:
4500: l_curr_parent_xml_node := xmldom.getParentNode(p_xml_node);
4501:
4502: l_xml_node_name := xmldom.getNodeName(p_xml_node);
4503: l_parent_xml_node_name := xmldom.getNodeName(l_curr_parent_xml_node);
4504:
4498: BEGIN
4499:
4500: l_curr_parent_xml_node := xmldom.getParentNode(p_xml_node);
4501:
4502: l_xml_node_name := xmldom.getNodeName(p_xml_node);
4503: l_parent_xml_node_name := xmldom.getNodeName(l_curr_parent_xml_node);
4504:
4505: l_ancestor_node_id := get_Attribute_Value(p_xml_node,
4506: 'ancestorNode');
4499:
4500: l_curr_parent_xml_node := xmldom.getParentNode(p_xml_node);
4501:
4502: l_xml_node_name := xmldom.getNodeName(p_xml_node);
4503: l_parent_xml_node_name := xmldom.getNodeName(l_curr_parent_xml_node);
4504:
4505: l_ancestor_node_id := get_Attribute_Value(p_xml_node,
4506: 'ancestorNode');
4507:
4512: IF l_ancestor_node_id IS NOT NULL THEN
4513:
4514: l_hgrid_element_id := find_Element_Id_Of_XMLTag(p_xml_node, 'oa:tree');
4515:
4516: IF NOT(xmldom.IsNull(p_xml_node)) THEN
4517:
4518: l_ancestor_node_id := p_jrad_doc||'.'||l_hgrid_element_id;
4519: set_Attribute(p_xml_node,
4520: 'ancestorNode',
4519: set_Attribute(p_xml_node,
4520: 'ancestorNode',
4521: l_ancestor_node_id);
4522:
4523: END IF; -- end of IF NOT(xmldom.IsNull(p_xml_node))
4524:
4525: END IF; -- end of IF l_ancestor_node IS NOT NULL
4526:
4527: --
4597: --
4598: -- refresh Template Ref Counts
4599: --
4600: PROCEDURE refresh_Templ_Ref_Counts
4601: (p_template_xml_doc xmldom.DOMDocument,
4602: p_template_ui_def_id NUMBER,
4603: p_template_id NUMBER) IS
4604:
4605: l_xml_node xmldom.DOMNode;
4601: (p_template_xml_doc xmldom.DOMDocument,
4602: p_template_ui_def_id NUMBER,
4603: p_template_id NUMBER) IS
4604:
4605: l_xml_node xmldom.DOMNode;
4606: l_child_nodes_tbl xmldom.DOMNodeList;
4607: l_extends_attribute VARCHAR2(2000);
4608: l_ref_tmpls_tbl number_tbl_type;
4609: l_ref_tmpl_seeded_flag varchar_tbl_type;
4602: p_template_ui_def_id NUMBER,
4603: p_template_id NUMBER) IS
4604:
4605: l_xml_node xmldom.DOMNode;
4606: l_child_nodes_tbl xmldom.DOMNodeList;
4607: l_extends_attribute VARCHAR2(2000);
4608: l_ref_tmpls_tbl number_tbl_type;
4609: l_ref_tmpl_seeded_flag varchar_tbl_type;
4610: l_ref_template_id NUMBER;
4613: l_length NUMBER;
4614:
4615: BEGIN
4616:
4617: l_child_nodes_tbl := xmldom.getElementsByTagName(p_template_xml_doc, '*');
4618: l_length := xmldom.getLength(l_child_nodes_tbl);
4619:
4620: IF (l_length > 0) THEN
4621: FOR k IN 0..l_length-1
4614:
4615: BEGIN
4616:
4617: l_child_nodes_tbl := xmldom.getElementsByTagName(p_template_xml_doc, '*');
4618: l_length := xmldom.getLength(l_child_nodes_tbl);
4619:
4620: IF (l_length > 0) THEN
4621: FOR k IN 0..l_length-1
4622: LOOP
4619:
4620: IF (l_length > 0) THEN
4621: FOR k IN 0..l_length-1
4622: LOOP
4623: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
4624: l_extends_attribute := get_Attribute_Value(l_xml_node, 'extends');
4625:
4626: IF l_extends_attribute IS NOT NULL THEN
4627:
4736:
4737: END init_Page_View_Counters;
4738:
4739:
4740: PROCEDURE init_Page_View_Counters(p_subtree_doc xmldom.DOMDocument) IS
4741:
4742: l_node xmldom.DOMNode;
4743: l_nodeslist xmldom.DOMNodeList;
4744: l_empty_xml_node xmldom.DOMNode;
4738:
4739:
4740: PROCEDURE init_Page_View_Counters(p_subtree_doc xmldom.DOMDocument) IS
4741:
4742: l_node xmldom.DOMNode;
4743: l_nodeslist xmldom.DOMNodeList;
4744: l_empty_xml_node xmldom.DOMNode;
4745: l_length NUMBER;
4746: l_attribute_value VARCHAR2(32000);
4739:
4740: PROCEDURE init_Page_View_Counters(p_subtree_doc xmldom.DOMDocument) IS
4741:
4742: l_node xmldom.DOMNode;
4743: l_nodeslist xmldom.DOMNodeList;
4744: l_empty_xml_node xmldom.DOMNode;
4745: l_length NUMBER;
4746: l_attribute_value VARCHAR2(32000);
4747: l_node_view VARCHAR2(255);
4740: PROCEDURE init_Page_View_Counters(p_subtree_doc xmldom.DOMDocument) IS
4741:
4742: l_node xmldom.DOMNode;
4743: l_nodeslist xmldom.DOMNodeList;
4744: l_empty_xml_node xmldom.DOMNode;
4745: l_length NUMBER;
4746: l_attribute_value VARCHAR2(32000);
4747: l_node_view VARCHAR2(255);
4748: l_id_attr_value VARCHAR2(255);
4877: g_itot_feature_counter := 0;
4878: g_irsc_feature_counter := 0;
4879: g_opt_counter := 0;
4880:
4881: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
4882: l_length := xmldom.getLength(l_nodeslist);
4883:
4884: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
4885:
4878: g_irsc_feature_counter := 0;
4879: g_opt_counter := 0;
4880:
4881: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
4882: l_length := xmldom.getLength(l_nodeslist);
4883:
4884: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
4885:
4886: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE3_NAME);
4880:
4881: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
4882: l_length := xmldom.getLength(l_nodeslist);
4883:
4884: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
4885:
4886: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE3_NAME);
4887: l_node_view := get_User_Attribute(l_attribute_value, 'nodeView');
4888:
4889: set_View_Counter(l_node_view);
4890:
4891: FOR i IN 0 .. l_length - 1
4892: LOOP
4893: l_node := xmldom.item(l_nodeslist, i);
4894: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE3_NAME);
4895: l_node_view := get_User_Attribute(l_attribute_value, 'nodeView');
4896: set_View_Counter(l_node_view);
4897:
4910: END LOOP;
4911:
4912: END init_Page_View_Counters;
4913:
4914: PROCEDURE resolve_view_names(p_xml_node IN xmldom.DOMNode,
4915: p_ui_page_id IN NUMBER,
4916: p_counter IN OUT NOCOPY NUMBER,
4917: p_element_ids_table IN OUT NOCOPY varchar2_tbl_type) IS
4918:
4921:
4922: l_user_attribute VARCHAR2(32000);
4923: l_user_attribute_value VARCHAR2(32000);
4924: l_ind NUMBER;
4925: l_child_nodes_tbl xmldom.DOMNodeList;
4926: l_length NUMBER;
4927: l_child_xml_node xmldom.DOMNode;
4928: l_element_id VARCHAR2(255);
4929:
4923: l_user_attribute_value VARCHAR2(32000);
4924: l_ind NUMBER;
4925: l_child_nodes_tbl xmldom.DOMNodeList;
4926: l_length NUMBER;
4927: l_child_xml_node xmldom.DOMNode;
4928: l_element_id VARCHAR2(255);
4929:
4930: BEGIN
4931:
4974: l_user_attribute_value);
4975: END IF;
4976: END IF;
4977:
4978: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
4979: l_length := xmldom.getLength(l_child_nodes_tbl);
4980:
4981: FOR k IN 0 .. l_length - 1
4982: LOOP
4975: END IF;
4976: END IF;
4977:
4978: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
4979: l_length := xmldom.getLength(l_child_nodes_tbl);
4980:
4981: FOR k IN 0 .. l_length - 1
4982: LOOP
4983: --
4982: LOOP
4983: --
4984: -- get next child DOM node
4985: --
4986: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
4987:
4988: resolve_view_names(p_xml_node => l_child_xml_node,
4989: p_ui_page_id => p_ui_page_id,
4990: p_counter => p_counter,
4998:
4999: --
5000: -- set Attributes for Template
5001: --
5002: PROCEDURE set_Template_Attributes(p_xml_root_node xmldom.DOMNode,
5003: p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
5004: p_element_signature_id NUMBER DEFAULT NULL) IS
5005:
5006: l_xml_root_element_node xmldom.DOMElement := xmldom.makeElement(p_xml_root_node);
5002: PROCEDURE set_Template_Attributes(p_xml_root_node xmldom.DOMNode,
5003: p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
5004: p_element_signature_id NUMBER DEFAULT NULL) IS
5005:
5006: l_xml_root_element_node xmldom.DOMElement := xmldom.makeElement(p_xml_root_node);
5007: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
5008: l_ui_action_id NUMBER;
5009: l_drilldown_text_id NUMBER;
5010:
5195: 'GENERATED_BY_UI_GEN');
5196:
5197: END set_Template_Attributes;
5198:
5199: FUNCTION get_Element_XML_Path(p_xml_doc xmldom.DOMDocument,p_element_id VARCHAR2) RETURN VARCHAR2 IS
5200:
5201: l_xml_node xmldom.DOMNode;
5202: l_element_path VARCHAR2(32000);
5203:
5197: END set_Template_Attributes;
5198:
5199: FUNCTION get_Element_XML_Path(p_xml_doc xmldom.DOMDocument,p_element_id VARCHAR2) RETURN VARCHAR2 IS
5200:
5201: l_xml_node xmldom.DOMNode;
5202: l_element_path VARCHAR2(32000);
5203:
5204: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5205:
5200:
5201: l_xml_node xmldom.DOMNode;
5202: l_element_path VARCHAR2(32000);
5203:
5204: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5205:
5206: l_parent_node xmldom.DOMNode;
5207: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
5208: l_user_attribute4_value VARCHAR2(32000);
5202: l_element_path VARCHAR2(32000);
5203:
5204: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5205:
5206: l_parent_node xmldom.DOMNode;
5207: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
5208: l_user_attribute4_value VARCHAR2(32000);
5209: l_node_name VARCHAR2(32000);
5210:
5209: l_node_name VARCHAR2(32000);
5210:
5211: BEGIN
5212:
5213: IF xmldom.isNull(p_xml_node) THEN
5214: RETURN;
5215: END IF;
5216: l_parent_node := xmldom.getParentNode(p_xml_node);
5217: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5212:
5213: IF xmldom.isNull(p_xml_node) THEN
5214: RETURN;
5215: END IF;
5216: l_parent_node := xmldom.getParentNode(p_xml_node);
5217: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5218:
5219: IF l_element_id IS NOT NULL AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
5220:
5215: END IF;
5216: l_parent_node := xmldom.getParentNode(p_xml_node);
5217: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5218:
5219: IF l_element_id IS NOT NULL AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
5220:
5221: l_user_attribute4_value := get_Attribute_Value(p_xml_node, G_USER_ATTRIBUTE4_NAME);
5222: IF l_user_attribute4_value IS NOT NULL THEN
5223: l_node_name := get_User_Attribute(l_user_attribute4_value ,'name');
5230:
5231: END IF;
5232: END IF;
5233:
5234: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5235: IF NOT(xmldom.IsNull(l_parent_node)) THEN
5236: construct_XML_Path(l_parent_node);
5237: END IF;
5238: END IF;
5231: END IF;
5232: END IF;
5233:
5234: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5235: IF NOT(xmldom.IsNull(l_parent_node)) THEN
5236: construct_XML_Path(l_parent_node);
5237: END IF;
5238: END IF;
5239:
5242: BEGIN
5243:
5244: l_xml_node := find_XML_Node_By_Attribute(p_xml_doc, G_ID_ATTRIBUTE, p_element_id);
5245:
5246: IF NOT(xmldom.IsNull(l_xml_node)) THEN
5247: construct_XML_Path(l_xml_node);
5248: ELSE
5249: RETURN NULL;
5250: END IF;
5252: RETURN l_element_path;
5253:
5254: END get_Element_XML_Path;
5255:
5256: FUNCTION get_Element_XML_Path(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
5257:
5258: l_element_path VARCHAR2(32000);
5259:
5260: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5256: FUNCTION get_Element_XML_Path(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
5257:
5258: l_element_path VARCHAR2(32000);
5259:
5260: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5261:
5262: l_parent_node xmldom.DOMNode;
5263: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
5264: l_user_attribute4_value VARCHAR2(32000);
5258: l_element_path VARCHAR2(32000);
5259:
5260: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5261:
5262: l_parent_node xmldom.DOMNode;
5263: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
5264: l_user_attribute4_value VARCHAR2(32000);
5265: l_node_name VARCHAR2(32000);
5266:
5265: l_node_name VARCHAR2(32000);
5266:
5267: BEGIN
5268:
5269: IF xmldom.isNull(p_xml_node) THEN
5270: RETURN;
5271: END IF;
5272: l_parent_node := xmldom.getParentNode(p_xml_node);
5273: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5268:
5269: IF xmldom.isNull(p_xml_node) THEN
5270: RETURN;
5271: END IF;
5272: l_parent_node := xmldom.getParentNode(p_xml_node);
5273: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5274:
5275: IF l_element_id IS NOT NULL AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
5276:
5271: END IF;
5272: l_parent_node := xmldom.getParentNode(p_xml_node);
5273: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5274:
5275: IF l_element_id IS NOT NULL AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
5276:
5277: l_user_attribute4_value := get_Attribute_Value(p_xml_node, G_USER_ATTRIBUTE4_NAME);
5278: IF l_user_attribute4_value IS NOT NULL THEN
5279: l_node_name := get_User_Attribute(l_user_attribute4_value ,'name');
5286:
5287: END IF;
5288: END IF;
5289:
5290: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5291: IF NOT(xmldom.IsNull(l_parent_node)) THEN
5292: construct_XML_Path(l_parent_node);
5293: END IF;
5294: END IF;
5287: END IF;
5288: END IF;
5289:
5290: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5291: IF NOT(xmldom.IsNull(l_parent_node)) THEN
5292: construct_XML_Path(l_parent_node);
5293: END IF;
5294: END IF;
5295:
5296: END construct_XML_Path;
5297:
5298: BEGIN
5299:
5300: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5301: construct_XML_Path(p_xml_node);
5302: ELSE
5303: RETURN NULL;
5304: END IF;
5317: p_page_id IN NUMBER,
5318: p_element_id IN VARCHAR2,
5319: p_is_parser_open IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2 IS
5320:
5321: l_xmldoc xmldom.DOMDocument;
5322: l_page_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
5323: l_ui_name CZ_UI_DEFS.name%TYPE;
5324: l_page_name CZ_UI_PAGES.name%TYPE;
5325: l_element_path VARCHAR2(32000);
5337: -- create UI Template in JRAD repository
5338: --
5339: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_page_jrad_doc);
5340:
5341: IF xmldom.isNull(l_xmldoc) THEN
5342: -- UI page is already deleted
5343: RETURN NULL;
5344: END IF;
5345:
5372: p_ui_element_id IN VARCHAR2,
5373: p_source_ui_def_id IN NUMBER,
5374: p_new_component_id IN NUMBER DEFAULT NULL, -- passed when copied rule needs to be associated to a different PS Node
5375: p_new_expl_node_id IN NUMBER DEFAULT NULL, -- passed when copied rule needs to be associated to a different PS Node
5376: p_xml_node IN xmldom.DOMNode DEFAULT g_Null_Xml_Node
5377: ) IS
5378:
5379: l_return_status VARCHAR2(255);
5380: l_msg_count NUMBER;
5439: x_run_id => l_run_id);
5440: END IF;
5441:
5442: IF l_run_id > 0 THEN
5443: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5444: l_element_path := get_Element_XML_Path(p_xml_node => p_xml_node);
5445: ELSE -- UI rule on UI page level
5446: SELECT name INTO l_element_path FROM CZ_UI_PAGES
5447: WHERE page_id=p_ui_page_id AND ui_def_id=p_ui_def_id;
5638: p_amn_persistent_node_id IN NUMBER DEFAULT NULL, -- AMN of the node (specified or inherited)
5639: p_amn_expl_node_id IN NUMBER DEFAULT NULL, -- AMN of the node (specified or inherited)
5640: p_source_template_id IN NUMBER DEFAULT NULL,
5641: p_target_template_id IN NUMBER DEFAULT NULL,
5642: p_xml_node IN xmldom.DOMNode DEFAULT g_Null_Xml_Node) IS
5643:
5644: l_cached_elems_tbl number_tbl_type;
5645: l_cached_source_elems_tbl number_tbl_type;
5646: l_counter NUMBER := 0;
5992: p_source_ui_def_id IN NUMBER,
5993: p_source_template_id IN NUMBER,
5994: p_target_ui_def_id IN NUMBER,
5995: p_target_template_id IN NUMBER,
5996: p_xml_node IN xmldom.DOMNode DEFAULT g_Null_Xml_Node) IS
5997:
5998: l_cached_elems_tbl number_tbl_type;
5999: l_cached_source_elems_tbl number_tbl_type;
6000: l_counter NUMBER := 0;
6254: END handle_Template_Attributes;
6255:
6256: PROCEDURE copy_Node_Related_Entities(p_ui_def_id NUMBER,
6257: p_ui_page_id NUMBER,
6258: p_xml_node xmldom.DOMNode,
6259: p_target_ui_def_id NUMBER DEFAULT NULL,
6260: p_source_ui_page_id NUMBER DEFAULT NULL,
6261: p_source_ui_def_id NUMBER DEFAULT NULL) IS
6262:
6307:
6308: END copy_Node_Related_Entities;
6309:
6310:
6311: PROCEDURE handle_UI_CASE_Id(p_xml_node xmldom.DOMNode) IS
6312: l_user_attribute4 VARCHAR2(4000);
6313: BEGIN
6314: IF xmldom.getNodeName(p_xml_node)='ui:case' THEN
6315:
6310:
6311: PROCEDURE handle_UI_CASE_Id(p_xml_node xmldom.DOMNode) IS
6312: l_user_attribute4 VARCHAR2(4000);
6313: BEGIN
6314: IF xmldom.getNodeName(p_xml_node)='ui:case' THEN
6315:
6316: l_user_attribute4 := get_Attribute_Value(p_xml_node,
6317: G_USER_ATTRIBUTE4_NAME);
6318: IF l_user_attribute4 IS NOT NULL THEN
6326: END IF;
6327: END handle_UI_CASE_Id;
6328:
6329: PROCEDURE handle_USER_ATTRIBUTE10
6330: (p_xml_root_node xmldom.DOMNode,
6331: p_ui_def_id NUMBER,
6332: p_ui_page_id NUMBER,
6333: p_ui_element_id VARCHAR2) IS
6334:
6372:
6373: l_user_attribute3_value := l_user_attribute3_value||'|enabledCondnId='||TO_CHAR(l_persistent_rule_id)||
6374: '|enabledCondnComp=' || l_refenabledCondnComp || '|enabledCondnValue='||l_refenabledCondnValue;
6375:
6376: xmldom.removeAttribute(xmldom.makeElement(p_xml_root_node), G_USER_ATTRIBUTE10_NAME);
6377: set_Attribute(p_xml_root_node,G_USER_ATTRIBUTE3_NAME,l_user_attribute3_value);
6378:
6379: END IF; -- end of IF INSTR(l_user_attribute10_value,'refenabledCondnId')>0
6380:
6400: WHERE rule_id = l_new_refdisplayCondnId;
6401:
6402: l_user_attribute3_value := l_user_attribute3_value||'|displayCondnId='||TO_CHAR(l_persistent_rule_id)||
6403: '|displayCondnComp=' || l_refdisplayCondnComp || '|displayCondnValue='||l_refdisplayCondnValue;
6404: xmldom.removeAttribute(xmldom.makeElement(p_xml_root_node), G_USER_ATTRIBUTE10_NAME);
6405: set_Attribute(p_xml_root_node,G_USER_ATTRIBUTE3_NAME,l_user_attribute3_value);
6406:
6407: END IF; -- end of IF INSTR(l_user_attribute10_value,'refdisplayCondnId')>0
6408:
6409: END IF; -- end of IF INSTR(l_user_attribute10_value,'refdisplayCondnId')>0
6410:
6411: END handle_USER_ATTRIBUTE10;
6412:
6413: PROCEDURE create_wrapper_table_layout(x_xml_table_node OUT NOCOPY xmldom.DOMNode,
6414: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6415: p_target_subtree_xml_node xmldom.DOMNode) IS
6416:
6417: l_doc xmldom.DOMDocument;
6410:
6411: END handle_USER_ATTRIBUTE10;
6412:
6413: PROCEDURE create_wrapper_table_layout(x_xml_table_node OUT NOCOPY xmldom.DOMNode,
6414: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6415: p_target_subtree_xml_node xmldom.DOMNode) IS
6416:
6417: l_doc xmldom.DOMDocument;
6418: l_xml_table_node xmldom.DOMNode;
6411: END handle_USER_ATTRIBUTE10;
6412:
6413: PROCEDURE create_wrapper_table_layout(x_xml_table_node OUT NOCOPY xmldom.DOMNode,
6414: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6415: p_target_subtree_xml_node xmldom.DOMNode) IS
6416:
6417: l_doc xmldom.DOMDocument;
6418: l_xml_table_node xmldom.DOMNode;
6419:
6413: PROCEDURE create_wrapper_table_layout(x_xml_table_node OUT NOCOPY xmldom.DOMNode,
6414: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6415: p_target_subtree_xml_node xmldom.DOMNode) IS
6416:
6417: l_doc xmldom.DOMDocument;
6418: l_xml_table_node xmldom.DOMNode;
6419:
6420: BEGIN
6421: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
6414: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6415: p_target_subtree_xml_node xmldom.DOMNode) IS
6416:
6417: l_doc xmldom.DOMDocument;
6418: l_xml_table_node xmldom.DOMNode;
6419:
6420: BEGIN
6421: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
6422:
6419:
6420: BEGIN
6421: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
6422:
6423: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
6424:
6425: remove_TopLevel_Attributes(l_xml_table_node);
6426:
6427: --x_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
6423: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
6424:
6425: remove_TopLevel_Attributes(l_xml_table_node);
6426:
6427: --x_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
6428: x_xml_table_node := cloneNode(l_xml_table_node, p_target_subtree_xml_node);
6429:
6430: set_Attribute(xmldom.makeElement(x_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
6431: set_Attribute(xmldom.makeElement(x_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
6426:
6427: --x_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
6428: x_xml_table_node := cloneNode(l_xml_table_node, p_target_subtree_xml_node);
6429:
6430: set_Attribute(xmldom.makeElement(x_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
6431: set_Attribute(xmldom.makeElement(x_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
6432:
6433: x_xml_tabuicontent_node := getUIContents(x_xml_table_node);
6434:
6427: --x_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
6428: x_xml_table_node := cloneNode(l_xml_table_node, p_target_subtree_xml_node);
6429:
6430: set_Attribute(xmldom.makeElement(x_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
6431: set_Attribute(xmldom.makeElement(x_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
6432:
6433: x_xml_tabuicontent_node := getUIContents(x_xml_table_node);
6434:
6435: END create_wrapper_table_layout;
6433: x_xml_tabuicontent_node := getUIContents(x_xml_table_node);
6434:
6435: END create_wrapper_table_layout;
6436:
6437: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6438: p_new_xml_node IN xmldom.DOMNode,
6439: p_ref_xml_node IN xmldom.DOMNode)
6440: RETURN xmldom.DOMNode IS
6441: l_new_xml_node xmldom.DOMNode;
6434:
6435: END create_wrapper_table_layout;
6436:
6437: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6438: p_new_xml_node IN xmldom.DOMNode,
6439: p_ref_xml_node IN xmldom.DOMNode)
6440: RETURN xmldom.DOMNode IS
6441: l_new_xml_node xmldom.DOMNode;
6442: BEGIN
6435: END create_wrapper_table_layout;
6436:
6437: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6438: p_new_xml_node IN xmldom.DOMNode,
6439: p_ref_xml_node IN xmldom.DOMNode)
6440: RETURN xmldom.DOMNode IS
6441: l_new_xml_node xmldom.DOMNode;
6442: BEGIN
6443:
6436:
6437: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6438: p_new_xml_node IN xmldom.DOMNode,
6439: p_ref_xml_node IN xmldom.DOMNode)
6440: RETURN xmldom.DOMNode IS
6441: l_new_xml_node xmldom.DOMNode;
6442: BEGIN
6443:
6444: IF xmldom.isNull(p_ref_xml_node) THEN
6437: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6438: p_new_xml_node IN xmldom.DOMNode,
6439: p_ref_xml_node IN xmldom.DOMNode)
6440: RETURN xmldom.DOMNode IS
6441: l_new_xml_node xmldom.DOMNode;
6442: BEGIN
6443:
6444: IF xmldom.isNull(p_ref_xml_node) THEN
6445: l_new_xml_node := xmldom.appendChild(p_parent_xml_node, p_new_xml_node);
6440: RETURN xmldom.DOMNode IS
6441: l_new_xml_node xmldom.DOMNode;
6442: BEGIN
6443:
6444: IF xmldom.isNull(p_ref_xml_node) THEN
6445: l_new_xml_node := xmldom.appendChild(p_parent_xml_node, p_new_xml_node);
6446: ELSE
6447: l_new_xml_node := xmldom.insertBefore(p_parent_xml_node, p_new_xml_node, p_ref_xml_node);
6448: END IF;
6441: l_new_xml_node xmldom.DOMNode;
6442: BEGIN
6443:
6444: IF xmldom.isNull(p_ref_xml_node) THEN
6445: l_new_xml_node := xmldom.appendChild(p_parent_xml_node, p_new_xml_node);
6446: ELSE
6447: l_new_xml_node := xmldom.insertBefore(p_parent_xml_node, p_new_xml_node, p_ref_xml_node);
6448: END IF;
6449:
6443:
6444: IF xmldom.isNull(p_ref_xml_node) THEN
6445: l_new_xml_node := xmldom.appendChild(p_parent_xml_node, p_new_xml_node);
6446: ELSE
6447: l_new_xml_node := xmldom.insertBefore(p_parent_xml_node, p_new_xml_node, p_ref_xml_node);
6448: END IF;
6449:
6450: return l_new_xml_node;
6451: END insert_before;
6450: return l_new_xml_node;
6451: END insert_before;
6452:
6453: FUNCTION insert_node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6454: p_new_xml_node IN xmldom.DOMNode,
6455: p_parent_xml_node IN xmldom.DOMNode)
6456: RETURN xmldom.DOMNode IS
6457:
6458: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6451: END insert_before;
6452:
6453: FUNCTION insert_node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6454: p_new_xml_node IN xmldom.DOMNode,
6455: p_parent_xml_node IN xmldom.DOMNode)
6456: RETURN xmldom.DOMNode IS
6457:
6458: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6459: l_doc xmldom.DOMDocument;
6452:
6453: FUNCTION insert_node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6454: p_new_xml_node IN xmldom.DOMNode,
6455: p_parent_xml_node IN xmldom.DOMNode)
6456: RETURN xmldom.DOMNode IS
6457:
6458: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6459: l_doc xmldom.DOMDocument;
6460: l_anchor_doc xmldom.DOMDocument;
6455: p_parent_xml_node IN xmldom.DOMNode)
6456: RETURN xmldom.DOMNode IS
6457:
6458: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6459: l_doc xmldom.DOMDocument;
6460: l_anchor_doc xmldom.DOMDocument;
6461: l_subtree_doc xmldom.DOMDocument;
6462: l_xml_root_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6456: RETURN xmldom.DOMNode IS
6457:
6458: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6459: l_doc xmldom.DOMDocument;
6460: l_anchor_doc xmldom.DOMDocument;
6461: l_subtree_doc xmldom.DOMDocument;
6462: l_xml_root_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6457:
6458: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6459: l_doc xmldom.DOMDocument;
6460: l_anchor_doc xmldom.DOMDocument;
6461: l_subtree_doc xmldom.DOMDocument;
6462: l_xml_root_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6458: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6459: l_doc xmldom.DOMDocument;
6460: l_anchor_doc xmldom.DOMDocument;
6461: l_subtree_doc xmldom.DOMDocument;
6462: l_xml_root_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6459: l_doc xmldom.DOMDocument;
6460: l_anchor_doc xmldom.DOMDocument;
6461: l_subtree_doc xmldom.DOMDocument;
6462: l_xml_root_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6460: l_anchor_doc xmldom.DOMDocument;
6461: l_subtree_doc xmldom.DOMDocument;
6462: l_xml_root_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6461: l_subtree_doc xmldom.DOMDocument;
6462: l_xml_root_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6462: l_xml_root_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6463: l_new_xml_root_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6464: l_out_xml_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6465: l_xml_table_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6473: l_next_node xmldom.DOMNode;
6466: l_new_xml_table_node xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6473: l_next_node xmldom.DOMNode;
6474: l_prev_node_parent xmldom.DOMNode;
6467: l_xml_anchor_node xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6473: l_next_node xmldom.DOMNode;
6474: l_prev_node_parent xmldom.DOMNode;
6475: l_next_node_parent xmldom.DOMNode;
6468: l_new_xml_anchor_node xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6473: l_next_node xmldom.DOMNode;
6474: l_prev_node_parent xmldom.DOMNode;
6475: l_next_node_parent xmldom.DOMNode;
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6469: l_xml_node xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6473: l_next_node xmldom.DOMNode;
6474: l_prev_node_parent xmldom.DOMNode;
6475: l_next_node_parent xmldom.DOMNode;
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6477: l_next_node_parent_ui_cnt xmldom.DOMNode;
6470: l_xml_tabuicontent_node xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6473: l_next_node xmldom.DOMNode;
6474: l_prev_node_parent xmldom.DOMNode;
6475: l_next_node_parent xmldom.DOMNode;
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6477: l_next_node_parent_ui_cnt xmldom.DOMNode;
6478: l_grand_parent xmldom.DOMNode;
6471: l_ui_contents_xml_node xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6473: l_next_node xmldom.DOMNode;
6474: l_prev_node_parent xmldom.DOMNode;
6475: l_next_node_parent xmldom.DOMNode;
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6477: l_next_node_parent_ui_cnt xmldom.DOMNode;
6478: l_grand_parent xmldom.DOMNode;
6479: l_next_sibling_of_parent xmldom.DOMNode;
6472: l_prev_node xmldom.DOMNode;
6473: l_next_node xmldom.DOMNode;
6474: l_prev_node_parent xmldom.DOMNode;
6475: l_next_node_parent xmldom.DOMNode;
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6477: l_next_node_parent_ui_cnt xmldom.DOMNode;
6478: l_grand_parent xmldom.DOMNode;
6479: l_next_sibling_of_parent xmldom.DOMNode;
6480: l_child_nodes_tbl xmldom.DOMNodeList;
6473: l_next_node xmldom.DOMNode;
6474: l_prev_node_parent xmldom.DOMNode;
6475: l_next_node_parent xmldom.DOMNode;
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6477: l_next_node_parent_ui_cnt xmldom.DOMNode;
6478: l_grand_parent xmldom.DOMNode;
6479: l_next_sibling_of_parent xmldom.DOMNode;
6480: l_child_nodes_tbl xmldom.DOMNodeList;
6481: l_attribute_value VARCHAR2(4000);
6474: l_prev_node_parent xmldom.DOMNode;
6475: l_next_node_parent xmldom.DOMNode;
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6477: l_next_node_parent_ui_cnt xmldom.DOMNode;
6478: l_grand_parent xmldom.DOMNode;
6479: l_next_sibling_of_parent xmldom.DOMNode;
6480: l_child_nodes_tbl xmldom.DOMNodeList;
6481: l_attribute_value VARCHAR2(4000);
6482: l_attribute_source VARCHAR2(4000);
6475: l_next_node_parent xmldom.DOMNode;
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6477: l_next_node_parent_ui_cnt xmldom.DOMNode;
6478: l_grand_parent xmldom.DOMNode;
6479: l_next_sibling_of_parent xmldom.DOMNode;
6480: l_child_nodes_tbl xmldom.DOMNodeList;
6481: l_attribute_value VARCHAR2(4000);
6482: l_attribute_source VARCHAR2(4000);
6483: l_user_attribute VARCHAR2(4000);
6476: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6477: l_next_node_parent_ui_cnt xmldom.DOMNode;
6478: l_grand_parent xmldom.DOMNode;
6479: l_next_sibling_of_parent xmldom.DOMNode;
6480: l_child_nodes_tbl xmldom.DOMNodeList;
6481: l_attribute_value VARCHAR2(4000);
6482: l_attribute_source VARCHAR2(4000);
6483: l_user_attribute VARCHAR2(4000);
6484: l_user_attribute4 VARCHAR2(4000);
6565:
6566: IF l_prev_element_id IS NOT NULL THEN
6567: l_prev_node := g_dom_elements_tbl(TO_NUMBER(l_prev_element_id));
6568:
6569: l_prev_node_parent_ui_cnt := xmldom.getParentNode(l_prev_node);
6570: l_prev_node_parent := xmldom.getParentNode(l_prev_node_parent_ui_cnt);
6571: BEGIN
6572: SELECT layout_ui_style INTO l_prev_elt_lyt_ui_style
6573: FROM CZ_UI_TEMPLATES
6566: IF l_prev_element_id IS NOT NULL THEN
6567: l_prev_node := g_dom_elements_tbl(TO_NUMBER(l_prev_element_id));
6568:
6569: l_prev_node_parent_ui_cnt := xmldom.getParentNode(l_prev_node);
6570: l_prev_node_parent := xmldom.getParentNode(l_prev_node_parent_ui_cnt);
6571: BEGIN
6572: SELECT layout_ui_style INTO l_prev_elt_lyt_ui_style
6573: FROM CZ_UI_TEMPLATES
6574: WHERE template_id = l_prev_element_template_id
6584: --DEBUG('Here 3');
6585:
6586: IF l_next_element_id IS NOT NULL THEN
6587: l_next_node := g_dom_elements_tbl(TO_NUMBER(l_next_element_id));
6588: l_next_node_parent_ui_cnt := xmldom.getParentNode(l_next_node);
6589: l_next_node_parent := xmldom.getParentNode(l_next_node_parent_ui_cnt);
6590: BEGIN
6591: SELECT layout_ui_style INTO l_next_elt_lyt_ui_style
6592: FROM CZ_UI_TEMPLATES
6585:
6586: IF l_next_element_id IS NOT NULL THEN
6587: l_next_node := g_dom_elements_tbl(TO_NUMBER(l_next_element_id));
6588: l_next_node_parent_ui_cnt := xmldom.getParentNode(l_next_node);
6589: l_next_node_parent := xmldom.getParentNode(l_next_node_parent_ui_cnt);
6590: BEGIN
6591: SELECT layout_ui_style INTO l_next_elt_lyt_ui_style
6592: FROM CZ_UI_TEMPLATES
6593: WHERE template_id = l_next_element_template_id
6623: OR l_next_element_id IS NOT NULL THEN
6624: IF l_wrap_it THEN
6625: IF l_prev_element_id IS NOT NULL AND
6626: NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
6627: l_next_node := xmldom.getNextSibling(l_prev_node);
6628: l_new_xml_root_node := insert_before(l_prev_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6629: ELSIF l_next_element_id IS NOT NULL AND
6630: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
6631: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6630: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
6631: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6632: ELSE
6633: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6634: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6635: IF l_prev_element_id IS NOT NULL THEN
6636: l_next_node := xmldom.getNextSibling(l_prev_node);
6637: l_xml_table_node := insert_before(l_prev_node_parent_ui_cnt, l_xml_table_node, l_next_node);
6638: ELSIF l_next_element_id IS NOT NULL THEN
6632: ELSE
6633: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6634: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6635: IF l_prev_element_id IS NOT NULL THEN
6636: l_next_node := xmldom.getNextSibling(l_prev_node);
6637: l_xml_table_node := insert_before(l_prev_node_parent_ui_cnt, l_xml_table_node, l_next_node);
6638: ELSIF l_next_element_id IS NOT NULL THEN
6639: l_xml_table_node := insert_before(l_next_node_parent_ui_cnt, l_xml_table_node, l_next_node);
6640: ELSE
6638: ELSIF l_next_element_id IS NOT NULL THEN
6639: l_xml_table_node := insert_before(l_next_node_parent_ui_cnt, l_xml_table_node, l_next_node);
6640: ELSE
6641: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6642: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
6643: END IF;
6644: END IF;
6645: ELSE -- new element is not LABEL_DATA_PAIR
6646:
6649: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
6650:
6651:
6652: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
6653: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
6654: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6655: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6656: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6657: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6650:
6651:
6652: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
6653: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
6654: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6655: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6656: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6657: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6658: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6652: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
6653: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
6654: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6655: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6656: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6657: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6658: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6659: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
6660: l_next_node := l_xml_table_node;
6654: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6655: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6656: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6657: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6658: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6659: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
6660: l_next_node := l_xml_table_node;
6661: END IF;
6662: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6655: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6656: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6657: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6658: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6659: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
6660: l_next_node := l_xml_table_node;
6661: END IF;
6662: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6663: ELSE
6658: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6659: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
6660: l_next_node := l_xml_table_node;
6661: END IF;
6662: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6663: ELSE
6664: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6665: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6666: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6660: l_next_node := l_xml_table_node;
6661: END IF;
6662: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6663: ELSE
6664: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6665: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6666: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6667: END IF;
6668: ELSIF l_prev_element_id IS NOT NULL AND NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6661: END IF;
6662: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6663: ELSE
6664: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6665: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6666: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6667: END IF;
6668: ELSIF l_prev_element_id IS NOT NULL AND NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6669: l_next_node := xmldom.getNextSibling(l_prev_node);
6665: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6666: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6667: END IF;
6668: ELSIF l_prev_element_id IS NOT NULL AND NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6669: l_next_node := xmldom.getNextSibling(l_prev_node);
6670: l_new_xml_root_node := insert_before(l_prev_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6671: ELSIF l_next_element_id IS NOT NULL AND
6672: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6673: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6671: ELSIF l_next_element_id IS NOT NULL AND
6672: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6673: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6674: ELSIF l_prev_element_id IS NOT NULL THEN
6675: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6676: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6677: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6678: ELSE
6679: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
6672: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6673: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6674: ELSIF l_prev_element_id IS NOT NULL THEN
6675: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6676: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6677: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6678: ELSE
6679: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
6680: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_node_parent);
6675: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6676: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6677: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6678: ELSE
6679: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
6680: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_node_parent);
6681: END IF;
6682: END IF;
6683: ELSE
6687:
6688: IF l_wrap_it THEN
6689: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6690: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6691: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
6692: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6693: ELSE
6694: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6695: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
6688: IF l_wrap_it THEN
6689: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6690: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6691: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
6692: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6693: ELSE
6694: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6695: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
6696: END IF;
6691: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
6692: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6693: ELSE
6694: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6695: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
6696: END IF;
6697: END IF;
6698:
6699: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
6703:
6704: FUNCTION pluck_XML_node(p_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE,
6705: p_page_id NUMBER,
6706: p_element_id VARCHAR2)
6707: RETURN xmldom.DOMNode IS
6708:
6709: l_xml_node_to_pluck xmldom.DOMNode;
6710: l_parent_xml_node xmldom.DOMNode;
6711: l_subtree_doc xmldom.DOMDocument;
6705: p_page_id NUMBER,
6706: p_element_id VARCHAR2)
6707: RETURN xmldom.DOMNode IS
6708:
6709: l_xml_node_to_pluck xmldom.DOMNode;
6710: l_parent_xml_node xmldom.DOMNode;
6711: l_subtree_doc xmldom.DOMDocument;
6712: l_element_id NUMBER;
6713:
6706: p_element_id VARCHAR2)
6707: RETURN xmldom.DOMNode IS
6708:
6709: l_xml_node_to_pluck xmldom.DOMNode;
6710: l_parent_xml_node xmldom.DOMNode;
6711: l_subtree_doc xmldom.DOMDocument;
6712: l_element_id NUMBER;
6713:
6714: BEGIN
6707: RETURN xmldom.DOMNode IS
6708:
6709: l_xml_node_to_pluck xmldom.DOMNode;
6710: l_parent_xml_node xmldom.DOMNode;
6711: l_subtree_doc xmldom.DOMDocument;
6712: l_element_id NUMBER;
6713:
6714: BEGIN
6715:
6725: G_ID_ATTRIBUTE,
6726: p_element_id,
6727: G_NO_FLAG);
6728:
6729: l_parent_xml_node := xmldom.getParentNode(l_xml_node_to_pluck);
6730:
6731: l_xml_node_to_pluck := xmldom.removeChild(l_parent_xml_node, l_xml_node_to_pluck);
6732:
6733: Save_Document(l_subtree_doc, p_jrad_doc);
6727: G_NO_FLAG);
6728:
6729: l_parent_xml_node := xmldom.getParentNode(l_xml_node_to_pluck);
6730:
6731: l_xml_node_to_pluck := xmldom.removeChild(l_parent_xml_node, l_xml_node_to_pluck);
6732:
6733: Save_Document(l_subtree_doc, p_jrad_doc);
6734: END IF;
6735:
6738: END pluck_XML_node;
6739:
6740:
6741: FUNCTION move_XML_Node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6742: p_parent_xml_node xmldom.DOMNode)
6743: RETURN xmldom.DOMNode IS
6744:
6745: l_src_page_id NUMBER;
6746: l_xml_node_to_move xmldom.DOMNode;
6739:
6740:
6741: FUNCTION move_XML_Node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6742: p_parent_xml_node xmldom.DOMNode)
6743: RETURN xmldom.DOMNode IS
6744:
6745: l_src_page_id NUMBER;
6746: l_xml_node_to_move xmldom.DOMNode;
6747: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
6742: p_parent_xml_node xmldom.DOMNode)
6743: RETURN xmldom.DOMNode IS
6744:
6745: l_src_page_id NUMBER;
6746: l_xml_node_to_move xmldom.DOMNode;
6747: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
6748: l_counter NUMBER;
6749: l_element_ids_tbl varchar2_tbl_type;
6750: l_id VARCHAR2(255);
6854: END LOOP;
6855: END handle_JRAD_Id;
6856:
6857: FUNCTION create_UIXML_Element_new(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6858: p_parent_xml_node xmldom.DOMNode)
6859: RETURN xmldom.DOMNode IS
6860:
6861: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6862: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6855: END handle_JRAD_Id;
6856:
6857: FUNCTION create_UIXML_Element_new(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6858: p_parent_xml_node xmldom.DOMNode)
6859: RETURN xmldom.DOMNode IS
6860:
6861: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6862: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6863: l_doc xmldom.DOMDocument;
6859: RETURN xmldom.DOMNode IS
6860:
6861: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6862: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6863: l_doc xmldom.DOMDocument;
6864: l_anchor_doc xmldom.DOMDocument;
6865: l_subtree_doc xmldom.DOMDocument;
6866: l_xml_root_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6860:
6861: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6862: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6863: l_doc xmldom.DOMDocument;
6864: l_anchor_doc xmldom.DOMDocument;
6865: l_subtree_doc xmldom.DOMDocument;
6866: l_xml_root_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6861: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6862: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6863: l_doc xmldom.DOMDocument;
6864: l_anchor_doc xmldom.DOMDocument;
6865: l_subtree_doc xmldom.DOMDocument;
6866: l_xml_root_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6862: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6863: l_doc xmldom.DOMDocument;
6864: l_anchor_doc xmldom.DOMDocument;
6865: l_subtree_doc xmldom.DOMDocument;
6866: l_xml_root_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6863: l_doc xmldom.DOMDocument;
6864: l_anchor_doc xmldom.DOMDocument;
6865: l_subtree_doc xmldom.DOMDocument;
6866: l_xml_root_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6864: l_anchor_doc xmldom.DOMDocument;
6865: l_subtree_doc xmldom.DOMDocument;
6866: l_xml_root_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6865: l_subtree_doc xmldom.DOMDocument;
6866: l_xml_root_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6866: l_xml_root_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6867: l_new_xml_root_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6868: l_out_xml_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6869: l_xml_table_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6877: l_next_node xmldom.DOMNode;
6870: l_new_xml_table_node xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6877: l_next_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6871: l_xml_anchor_node xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6877: l_next_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6879: l_next_node_parent xmldom.DOMNode;
6872: l_new_xml_anchor_node xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6877: l_next_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6879: l_next_node_parent xmldom.DOMNode;
6880: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6873: l_xml_node xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6877: l_next_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6879: l_next_node_parent xmldom.DOMNode;
6880: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6881: l_next_node_parent_ui_cnt xmldom.DOMNode;
6874: l_xml_tabuicontent_node xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6877: l_next_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6879: l_next_node_parent xmldom.DOMNode;
6880: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6881: l_next_node_parent_ui_cnt xmldom.DOMNode;
6882: l_grand_parent xmldom.DOMNode;
6875: l_ui_contents_xml_node xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6877: l_next_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6879: l_next_node_parent xmldom.DOMNode;
6880: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6881: l_next_node_parent_ui_cnt xmldom.DOMNode;
6882: l_grand_parent xmldom.DOMNode;
6883: l_next_sibling_of_parent xmldom.DOMNode;
6876: l_prev_node xmldom.DOMNode;
6877: l_next_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6879: l_next_node_parent xmldom.DOMNode;
6880: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6881: l_next_node_parent_ui_cnt xmldom.DOMNode;
6882: l_grand_parent xmldom.DOMNode;
6883: l_next_sibling_of_parent xmldom.DOMNode;
6884:
6877: l_next_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6879: l_next_node_parent xmldom.DOMNode;
6880: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6881: l_next_node_parent_ui_cnt xmldom.DOMNode;
6882: l_grand_parent xmldom.DOMNode;
6883: l_next_sibling_of_parent xmldom.DOMNode;
6884:
6885: l_curr_parent_xml_node xmldom.DOMNode;
6878: l_prev_node_parent xmldom.DOMNode;
6879: l_next_node_parent xmldom.DOMNode;
6880: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6881: l_next_node_parent_ui_cnt xmldom.DOMNode;
6882: l_grand_parent xmldom.DOMNode;
6883: l_next_sibling_of_parent xmldom.DOMNode;
6884:
6885: l_curr_parent_xml_node xmldom.DOMNode;
6886: l_xml_node_name VARCHAR2(255);
6879: l_next_node_parent xmldom.DOMNode;
6880: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6881: l_next_node_parent_ui_cnt xmldom.DOMNode;
6882: l_grand_parent xmldom.DOMNode;
6883: l_next_sibling_of_parent xmldom.DOMNode;
6884:
6885: l_curr_parent_xml_node xmldom.DOMNode;
6886: l_xml_node_name VARCHAR2(255);
6887: l_new_attribute_value VARCHAR2(255);
6881: l_next_node_parent_ui_cnt xmldom.DOMNode;
6882: l_grand_parent xmldom.DOMNode;
6883: l_next_sibling_of_parent xmldom.DOMNode;
6884:
6885: l_curr_parent_xml_node xmldom.DOMNode;
6886: l_xml_node_name VARCHAR2(255);
6887: l_new_attribute_value VARCHAR2(255);
6888:
6889: l_child_nodes_tbl xmldom.DOMNodeList;
6885: l_curr_parent_xml_node xmldom.DOMNode;
6886: l_xml_node_name VARCHAR2(255);
6887: l_new_attribute_value VARCHAR2(255);
6888:
6889: l_child_nodes_tbl xmldom.DOMNodeList;
6890: l_attribute_value VARCHAR2(4000);
6891: l_attribute_source VARCHAR2(4000);
6892: l_user_attribute VARCHAR2(4000);
6893: l_user_attribute4 VARCHAR2(4000);
7007: -- parse document(template) which is going to be nested element
7008: --
7009: l_subtree_doc := parse_JRAD_Document(l_ctrl_template_name);
7010:
7011: IF xmldom.isNull(l_subtree_doc) THEN
7012: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
7013: p_token_name => 'UI_TEMPLATE',
7014: p_token_value => l_ctrl_template_name,
7015: p_fatal_error => TRUE);
7019:
7020: --
7021: -- get subdocument's root node
7022: --
7023: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
7024:
7025: --
7026: -- remove common attributes of container and subtree
7027: --
7044: --
7045: -- set a special attribute "blockSize" if it is Table control
7046: --
7047: /* commented out according to request from 8/12/2004
7048: IF xmldom.getNodeName(l_xml_root_node) IN('oa:table') THEN
7049: set_Attribute(l_xml_root_node,
7050: 'blockSize',
7051: TO_CHAR(g_UI_Context.ROWS_PER_TABLE));
7052: END IF;
7057:
7058: --
7059: -- returns cloned DOM subtree
7060: --
7061: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node,TRUE);
7062: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7063:
7064: -- Check if l_new_xml_root_node is NOT null - bug 11712366
7065: IF (xmldom.isNull(l_new_xml_root_node) = FALSE) THEN
7061: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node,TRUE);
7062: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7063:
7064: -- Check if l_new_xml_root_node is NOT null - bug 11712366
7065: IF (xmldom.isNull(l_new_xml_root_node) = FALSE) THEN
7066: --DEBUG('asp:Adding ' || p_ui_node.element_id || ' to table');
7067: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
7068: --
7069: -- remove non user attributes from top tag
7072:
7073: -- Remove user:Attribute10 if it exists -- Fix for USS Bug 12563210
7074: l_user_attribute10_value := get_Attribute_Value(l_new_xml_root_node,G_USER_ATTRIBUTE10_NAME);
7075: IF (l_user_attribute10_value IS NOT NULL) THEN
7076: xmldom.removeAttribute(xmldom.makeElement(l_new_xml_root_node),G_USER_ATTRIBUTE10_NAME);
7077: END IF;
7078:
7079: --
7080: -- set "extends" attribute
7078:
7079: --
7080: -- set "extends" attribute
7081: --
7082: xmldom.setAttribute(xmldom.makeElement(l_new_xml_root_node),'extends',l_ctrl_template_name);
7083:
7084: --
7085: -- remove content of template subtree
7086: --
7083:
7084: --
7085: -- remove content of template subtree
7086: --
7087: l_child_nodes_tbl:=xmldom.getChildNodes(l_new_xml_root_node);
7088:
7089: --
7090: -- we need to get length of array of child nodes
7091: -- to go through the array in loop
7089: --
7090: -- we need to get length of array of child nodes
7091: -- to go through the array in loop
7092: -- Bug 11712366 - check if l_child_nodes_table is not empty
7093: IF (xmldom.isNull(l_child_nodes_tbl) = FALSE) THEN
7094: l_length := xmldom.getLength(l_child_nodes_tbl);
7095: FOR k IN 0..l_length-1
7096: LOOP
7097: --
7090: -- we need to get length of array of child nodes
7091: -- to go through the array in loop
7092: -- Bug 11712366 - check if l_child_nodes_table is not empty
7093: IF (xmldom.isNull(l_child_nodes_tbl) = FALSE) THEN
7094: l_length := xmldom.getLength(l_child_nodes_tbl);
7095: FOR k IN 0..l_length-1
7096: LOOP
7097: --
7098: -- get next child DOM node
7096: LOOP
7097: --
7098: -- get next child DOM node
7099: --
7100: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7101: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7102: END LOOP;
7103: END IF;
7104: --ELSE
7097: --
7098: -- get next child DOM node
7099: --
7100: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7101: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7102: END LOOP;
7103: END IF;
7104: --ELSE
7105: --DEBUG('asp:l_new_xml_root_node is null !!');
7105: --DEBUG('asp:l_new_xml_root_node is null !!');
7106: END IF;
7107: ELSE -- use UI Template by Copy
7108:
7109: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
7110:
7111: l_length := xmldom.getLength(l_child_nodes_tbl);
7112: IF (l_length > 0) THEN
7113: FOR k IN 0..l_length-1
7107: ELSE -- use UI Template by Copy
7108:
7109: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
7110:
7111: l_length := xmldom.getLength(l_child_nodes_tbl);
7112: IF (l_length > 0) THEN
7113: FOR k IN 0..l_length-1
7114: LOOP
7115: --
7114: LOOP
7115: --
7116: -- get next child DOM node
7117: --
7118: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7119:
7120: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
7121:
7122: IF k > 0 THEN
7116: -- get next child DOM node
7117: --
7118: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7119:
7120: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
7121:
7122: IF k > 0 THEN
7123: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
7124:
7121:
7122: IF k > 0 THEN
7123: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
7124:
7125: l_xml_node_name := xmldom.getNodeName(l_xml_node);
7126:
7127: IF l_attribute_value IS NOT NULL THEN
7128: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
7129: l_new_attribute_value := REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'), '_czc','_czn');
7126:
7127: IF l_attribute_value IS NOT NULL THEN
7128: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
7129: l_new_attribute_value := REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'), '_czc','_czn');
7130: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE, l_new_attribute_value);
7131: END IF;
7132:
7133: l_ancestor_node := get_Attribute_Value(l_xml_node,
7134: 'ancestorNode');
7137: SELECT jrad_doc INTO l_jrad_doc FROM CZ_UI_PAGES
7138: WHERE page_id=p_ui_node.page_id AND ui_def_id=p_ui_node.ui_def_id;
7139:
7140: l_hgrid_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:tree');
7141: IF NOT(xmldom.IsNull(l_xml_node)) THEN
7142: l_ancestor_node := l_jrad_doc||'.'||l_hgrid_element_id;
7143:
7144: set_Attribute(l_xml_node,
7145: 'ancestorNode',
7149:
7150: --
7151: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
7152: --
7153: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
7154: l_old_switcher_xml_id := l_attribute_value;
7155: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
7156: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
7157: l_switcher_casename := REPLACE(l_switcher_casename,l_attribute_value, l_new_attribute_value);
7167:
7168: --
7169: -- set value of attribute "name" of
7170: --
7171: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
7172: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
7173: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
7174: set_Attribute(xmldom.makeElement(l_xml_node),
7175: 'name',
7170: --
7171: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
7172: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
7173: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
7174: set_Attribute(xmldom.makeElement(l_xml_node),
7175: 'name',
7176: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'), '_czc', '_czn'));
7177: handle_UI_CASE_Id(l_xml_node);
7178: END IF;
7181: -- if current tag is
7182: -- then replace old id with new one
7183: --
7184: IF (l_xml_node_name='oa:stackLayout' AND
7185: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
7186: set_Attribute(xmldom.makeElement(l_xml_node),
7187: G_ID_ATTRIBUTE,
7188: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
7189: END IF;
7182: -- then replace old id with new one
7183: --
7184: IF (l_xml_node_name='oa:stackLayout' AND
7185: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
7186: set_Attribute(xmldom.makeElement(l_xml_node),
7187: G_ID_ATTRIBUTE,
7188: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
7189: END IF;
7190:
7265: END IF; -- end of IF k > 0 THEN
7266: END LOOP;
7267: END IF;
7268:
7269: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node, TRUE);
7270: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7271:
7272: --DEBUG('asp:Adding ' || p_ui_node.element_id || ' to table 2');
7273: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
7284: -- last element of the given parent region
7285:
7286: IF l_prev_element_id IS NOT NULL THEN
7287: l_prev_node := g_dom_elements_tbl(TO_NUMBER(l_prev_element_id));
7288: l_prev_node_parent_ui_cnt := xmldom.getParentNode(l_prev_node);
7289: l_prev_node_parent := xmldom.getParentNode(l_prev_node_parent_ui_cnt);
7290: BEGIN
7291: SELECT layout_ui_style INTO l_prev_elt_lyt_ui_style
7292: FROM CZ_UI_TEMPLATES
7285:
7286: IF l_prev_element_id IS NOT NULL THEN
7287: l_prev_node := g_dom_elements_tbl(TO_NUMBER(l_prev_element_id));
7288: l_prev_node_parent_ui_cnt := xmldom.getParentNode(l_prev_node);
7289: l_prev_node_parent := xmldom.getParentNode(l_prev_node_parent_ui_cnt);
7290: BEGIN
7291: SELECT layout_ui_style INTO l_prev_elt_lyt_ui_style
7292: FROM CZ_UI_TEMPLATES
7293: WHERE template_id = l_prev_element_template_id
7304: --DEBUG('Here 8.11 ' || l_next_element_id);
7305: IF g_dom_elements_tbl.EXISTS(TO_NUMBER(l_next_element_id)) THEN
7306: l_next_node := g_dom_elements_tbl(TO_NUMBER(l_next_element_id));
7307: --DEBUG('Here 8.12');
7308: l_next_node_parent_ui_cnt := xmldom.getParentNode(l_next_node);
7309: --DEBUG('Here 8.13');
7310: l_next_node_parent := xmldom.getParentNode(l_next_node_parent_ui_cnt);
7311: --DEBUG('Here 8.14');
7312: BEGIN
7306: l_next_node := g_dom_elements_tbl(TO_NUMBER(l_next_element_id));
7307: --DEBUG('Here 8.12');
7308: l_next_node_parent_ui_cnt := xmldom.getParentNode(l_next_node);
7309: --DEBUG('Here 8.13');
7310: l_next_node_parent := xmldom.getParentNode(l_next_node_parent_ui_cnt);
7311: --DEBUG('Here 8.14');
7312: BEGIN
7313: SELECT layout_ui_style INTO l_next_elt_lyt_ui_style
7314: FROM CZ_UI_TEMPLATES
7370: OR l_next_element_id IS NOT NULL THEN
7371: IF l_wrap_it THEN
7372: IF l_prev_element_id IS NOT NULL AND
7373: NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
7374: l_next_node := xmldom.getNextSibling(l_prev_node);
7375: l_new_xml_root_node := insert_before(l_prev_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7376: ELSIF l_next_element_id IS NOT NULL AND
7377: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
7378: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7377: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
7378: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7379: ELSE
7380: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7381: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7382: IF l_prev_element_id IS NOT NULL THEN
7383: l_next_node := xmldom.getNextSibling(l_prev_node);
7384: l_xml_table_node := insert_before(l_prev_node_parent_ui_cnt, l_xml_table_node, l_next_node);
7385: ELSIF l_next_element_id IS NOT NULL THEN
7379: ELSE
7380: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7381: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7382: IF l_prev_element_id IS NOT NULL THEN
7383: l_next_node := xmldom.getNextSibling(l_prev_node);
7384: l_xml_table_node := insert_before(l_prev_node_parent_ui_cnt, l_xml_table_node, l_next_node);
7385: ELSIF l_next_element_id IS NOT NULL THEN
7386: l_xml_table_node := insert_before(l_next_node_parent_ui_cnt, l_xml_table_node, l_next_node);
7387: ELSE
7385: ELSIF l_next_element_id IS NOT NULL THEN
7386: l_xml_table_node := insert_before(l_next_node_parent_ui_cnt, l_xml_table_node, l_next_node);
7387: ELSE
7388: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7389: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7390: END IF;
7391: END IF;
7392: ELSE -- new element is not LABEL_DATA_PAIR
7393:
7396: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
7397:
7398:
7399: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
7400: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
7401: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7402: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7403: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7404: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7397:
7398:
7399: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
7400: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
7401: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7402: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7403: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7404: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7405: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7399: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
7400: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
7401: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7402: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7403: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7404: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7405: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7406: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
7407: l_next_node := l_xml_table_node;
7401: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7402: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7403: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7404: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7405: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7406: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
7407: l_next_node := l_xml_table_node;
7408: END IF;
7409: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7402: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7403: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7404: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7405: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7406: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
7407: l_next_node := l_xml_table_node;
7408: END IF;
7409: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7410: ELSE
7405: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7406: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
7407: l_next_node := l_xml_table_node;
7408: END IF;
7409: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7410: ELSE
7411: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7412: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7413: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7407: l_next_node := l_xml_table_node;
7408: END IF;
7409: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7410: ELSE
7411: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7412: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7413: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7414: END IF;
7415: ELSIF l_prev_element_id IS NOT NULL AND NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7408: END IF;
7409: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7410: ELSE
7411: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7412: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7413: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7414: END IF;
7415: ELSIF l_prev_element_id IS NOT NULL AND NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7416: l_next_node := xmldom.getNextSibling(l_prev_node);
7412: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7413: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7414: END IF;
7415: ELSIF l_prev_element_id IS NOT NULL AND NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7416: l_next_node := xmldom.getNextSibling(l_prev_node);
7417: l_new_xml_root_node := insert_before(l_prev_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7418: ELSIF l_next_element_id IS NOT NULL AND
7419: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7420: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7418: ELSIF l_next_element_id IS NOT NULL AND
7419: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7420: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7421: ELSIF l_prev_element_id IS NOT NULL THEN
7422: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7423: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7424: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7425: ELSE
7426: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
7419: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7420: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7421: ELSIF l_prev_element_id IS NOT NULL THEN
7422: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7423: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7424: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7425: ELSE
7426: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
7427: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_node_parent);
7422: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7423: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7424: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7425: ELSE
7426: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
7427: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_node_parent);
7428: END IF;
7429: END IF;
7430: ELSE
7432: -- Insert at the end
7433: --DEBUG('asp:Append at the end');
7434:
7435: IF l_wrap_it THEN
7436: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(p_parent_xml_node));
7437: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7438: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(l_ui_contents_xml_node));
7439: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7440: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7434:
7435: IF l_wrap_it THEN
7436: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(p_parent_xml_node));
7437: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7438: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(l_ui_contents_xml_node));
7439: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7440: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7441: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7442: ELSE
7436: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(p_parent_xml_node));
7437: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7438: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(l_ui_contents_xml_node));
7439: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7440: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7441: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7442: ELSE
7443: --DEBUG('Append at the end. Not wrapping');
7444: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7437: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7438: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(l_ui_contents_xml_node));
7439: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7440: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7441: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7442: ELSE
7443: --DEBUG('Append at the end. Not wrapping');
7444: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7445: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
7441: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7442: ELSE
7443: --DEBUG('Append at the end. Not wrapping');
7444: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7445: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
7446: END IF;
7447: END IF;
7448:
7449: RETURN l_new_xml_root_node;
7453: --
7454: -- create new XML JRAD element
7455: --
7456: FUNCTION create_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7457: p_parent_xml_node xmldom.DOMNode)
7458: RETURN xmldom.DOMNode IS
7459:
7460: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7461: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7454: -- create new XML JRAD element
7455: --
7456: FUNCTION create_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7457: p_parent_xml_node xmldom.DOMNode)
7458: RETURN xmldom.DOMNode IS
7459:
7460: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7461: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7462: l_doc xmldom.DOMDocument;
7458: RETURN xmldom.DOMNode IS
7459:
7460: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7461: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7462: l_doc xmldom.DOMDocument;
7463: l_anchor_doc xmldom.DOMDocument;
7464: l_subtree_doc xmldom.DOMDocument;
7465: l_xml_root_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7459:
7460: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7461: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7462: l_doc xmldom.DOMDocument;
7463: l_anchor_doc xmldom.DOMDocument;
7464: l_subtree_doc xmldom.DOMDocument;
7465: l_xml_root_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7460: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7461: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7462: l_doc xmldom.DOMDocument;
7463: l_anchor_doc xmldom.DOMDocument;
7464: l_subtree_doc xmldom.DOMDocument;
7465: l_xml_root_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7468: l_xml_table_node xmldom.DOMNode;
7461: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7462: l_doc xmldom.DOMDocument;
7463: l_anchor_doc xmldom.DOMDocument;
7464: l_subtree_doc xmldom.DOMDocument;
7465: l_xml_root_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7468: l_xml_table_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7462: l_doc xmldom.DOMDocument;
7463: l_anchor_doc xmldom.DOMDocument;
7464: l_subtree_doc xmldom.DOMDocument;
7465: l_xml_root_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7468: l_xml_table_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7470: l_xml_anchor_node xmldom.DOMNode;
7463: l_anchor_doc xmldom.DOMDocument;
7464: l_subtree_doc xmldom.DOMDocument;
7465: l_xml_root_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7468: l_xml_table_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7470: l_xml_anchor_node xmldom.DOMNode;
7471: l_new_xml_anchor_node xmldom.DOMNode;
7464: l_subtree_doc xmldom.DOMDocument;
7465: l_xml_root_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7468: l_xml_table_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7470: l_xml_anchor_node xmldom.DOMNode;
7471: l_new_xml_anchor_node xmldom.DOMNode;
7472: l_xml_node xmldom.DOMNode;
7465: l_xml_root_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7468: l_xml_table_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7470: l_xml_anchor_node xmldom.DOMNode;
7471: l_new_xml_anchor_node xmldom.DOMNode;
7472: l_xml_node xmldom.DOMNode;
7473: l_xml_tabuicontent_node xmldom.DOMNode;
7466: l_new_xml_root_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7468: l_xml_table_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7470: l_xml_anchor_node xmldom.DOMNode;
7471: l_new_xml_anchor_node xmldom.DOMNode;
7472: l_xml_node xmldom.DOMNode;
7473: l_xml_tabuicontent_node xmldom.DOMNode;
7474: l_ui_contents_xml_node xmldom.DOMNode;
7467: l_out_xml_node xmldom.DOMNode;
7468: l_xml_table_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7470: l_xml_anchor_node xmldom.DOMNode;
7471: l_new_xml_anchor_node xmldom.DOMNode;
7472: l_xml_node xmldom.DOMNode;
7473: l_xml_tabuicontent_node xmldom.DOMNode;
7474: l_ui_contents_xml_node xmldom.DOMNode;
7475:
7468: l_xml_table_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7470: l_xml_anchor_node xmldom.DOMNode;
7471: l_new_xml_anchor_node xmldom.DOMNode;
7472: l_xml_node xmldom.DOMNode;
7473: l_xml_tabuicontent_node xmldom.DOMNode;
7474: l_ui_contents_xml_node xmldom.DOMNode;
7475:
7476: l_curr_parent_xml_node xmldom.DOMNode;
7469: l_new_xml_table_node xmldom.DOMNode;
7470: l_xml_anchor_node xmldom.DOMNode;
7471: l_new_xml_anchor_node xmldom.DOMNode;
7472: l_xml_node xmldom.DOMNode;
7473: l_xml_tabuicontent_node xmldom.DOMNode;
7474: l_ui_contents_xml_node xmldom.DOMNode;
7475:
7476: l_curr_parent_xml_node xmldom.DOMNode;
7477: l_xml_node_name VARCHAR2(255);
7470: l_xml_anchor_node xmldom.DOMNode;
7471: l_new_xml_anchor_node xmldom.DOMNode;
7472: l_xml_node xmldom.DOMNode;
7473: l_xml_tabuicontent_node xmldom.DOMNode;
7474: l_ui_contents_xml_node xmldom.DOMNode;
7475:
7476: l_curr_parent_xml_node xmldom.DOMNode;
7477: l_xml_node_name VARCHAR2(255);
7478: l_new_attribute_value VARCHAR2(255);
7472: l_xml_node xmldom.DOMNode;
7473: l_xml_tabuicontent_node xmldom.DOMNode;
7474: l_ui_contents_xml_node xmldom.DOMNode;
7475:
7476: l_curr_parent_xml_node xmldom.DOMNode;
7477: l_xml_node_name VARCHAR2(255);
7478: l_new_attribute_value VARCHAR2(255);
7479:
7480: l_child_nodes_tbl xmldom.DOMNodeList;
7476: l_curr_parent_xml_node xmldom.DOMNode;
7477: l_xml_node_name VARCHAR2(255);
7478: l_new_attribute_value VARCHAR2(255);
7479:
7480: l_child_nodes_tbl xmldom.DOMNodeList;
7481: l_attribute_value VARCHAR2(4000);
7482: l_attribute_source VARCHAR2(4000);
7483: l_user_attribute VARCHAR2(4000);
7484: l_user_attribute4 VARCHAR2(4000);
7564:
7565: --
7566: -- add TableLayout
7567: --
7568: IF xmldom.isNull(l_xml_tabuicontent_node) THEN
7569:
7570: BEGIN
7571: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
7572:
7569:
7570: BEGIN
7571: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
7572:
7573: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7574:
7575: remove_TopLevel_Attributes(l_xml_table_node);
7576:
7577: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7573: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7574:
7575: remove_TopLevel_Attributes(l_xml_table_node);
7576:
7577: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7578: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7579:
7580: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7581: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7576:
7577: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7578: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7579:
7580: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7581: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7582:
7583: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7584:
7577: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7578: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7579:
7580: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7581: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7582:
7583: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7584:
7585: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7581: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7582:
7583: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7584:
7585: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7586: 'oa:flowLayout','oa:tableLayout') THEN
7587:
7588: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7589: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7585: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7586: 'oa:flowLayout','oa:tableLayout') THEN
7587:
7588: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7589: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7590: ELSE
7591: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,l_new_xml_table_node);
7592: END IF;
7593:
7587:
7588: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7589: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7590: ELSE
7591: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,l_new_xml_table_node);
7592: END IF;
7593:
7594: EXCEPTION
7595: WHEN OTHERS THEN
7613: l_node.detailed_type_id NOT IN(CZ_TYPES.UOPTIONAL_BOM_REF_TYPEID,CZ_TYPES.UMINMAX_BOM_REF_TYPEID) THEN
7614: --
7615: -- add TableLayout
7616: --
7617: IF xmldom.isNull(l_xml_tabuicontent_node) THEN
7618: BEGIN
7619: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
7620:
7621: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7617: IF xmldom.isNull(l_xml_tabuicontent_node) THEN
7618: BEGIN
7619: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
7620:
7621: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7622:
7623: remove_TopLevel_Attributes(l_xml_table_node);
7624:
7625: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7621: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7622:
7623: remove_TopLevel_Attributes(l_xml_table_node);
7624:
7625: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7626: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7627:
7628: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7629: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7624:
7625: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7626: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7627:
7628: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7629: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7630:
7631: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7632:
7625: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7626: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7627:
7628: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7629: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7630:
7631: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7632:
7633: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7629: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7630:
7631: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7632:
7633: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7634: 'oa:flowLayout','oa:tableLayout') THEN
7635:
7636: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7637:
7634: 'oa:flowLayout','oa:tableLayout') THEN
7635:
7636: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7637:
7638: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7639: ELSE
7640: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,l_new_xml_table_node);
7641: END IF;
7642: EXCEPTION
7636: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7637:
7638: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7639: ELSE
7640: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,l_new_xml_table_node);
7641: END IF;
7642: EXCEPTION
7643: WHEN OTHERS THEN
7644: DEBUG('create_UIXML_Element : '||SQLERRM);
7667: -- parse document(template) which is going to be nested element
7668: --
7669: l_subtree_doc := parse_JRAD_Document(l_ctrl_template_name);
7670:
7671: IF xmldom.isNull(l_subtree_doc) THEN
7672: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
7673: p_token_name => 'UI_TEMPLATE',
7674: p_token_value => l_ctrl_template_name,
7675: p_fatal_error => TRUE);
7679:
7680: --
7681: -- get subdocument's root node
7682: --
7683: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
7684:
7685: IF l_template_is_used_by_ref=FALSE THEN
7686: handle_USER_ATTRIBUTE10(p_xml_root_node => l_xml_root_node,
7687: p_ui_def_id => p_ui_node.ui_def_id,
7710: --
7711: -- set a special attribute "blockSize" if it is Table control
7712: --
7713: /* commented out according to request from 8/12/2004
7714: IF xmldom.getNodeName(l_xml_root_node) IN('oa:table') THEN
7715: set_Attribute(l_xml_root_node,
7716: 'blockSize',
7717: TO_CHAR(g_UI_Context.ROWS_PER_TABLE));
7718: END IF;
7721:
7722: --
7723: -- returns cloned DOM subtree
7724: --
7725: -- l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node,TRUE);
7726: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7727:
7728: --
7729: -- remove non user attributes from top tag
7732:
7733: -- Remove user:Attribute10 if it exists -- Fix for USS Bug 12563210
7734: l_user_attribute10_value := get_Attribute_Value(l_new_xml_root_node,G_USER_ATTRIBUTE10_NAME);
7735: IF (l_user_attribute10_value IS NOT NULL) THEN
7736: xmldom.removeAttribute(xmldom.makeElement(l_new_xml_root_node),G_USER_ATTRIBUTE10_NAME);
7737: END IF;
7738:
7739: --
7740: -- set "extends" attribute
7738:
7739: --
7740: -- set "extends" attribute
7741: --
7742: xmldom.setAttribute(xmldom.makeElement(l_new_xml_root_node),'extends',l_ctrl_template_name);
7743:
7744: --
7745: -- remove content of template subtree
7746: --
7743:
7744: --
7745: -- remove content of template subtree
7746: --
7747: l_child_nodes_tbl:=xmldom.getChildNodes(l_new_xml_root_node);
7748:
7749: --
7750: -- we need to get length of array of child nodes
7751: -- to go through the array in loop
7749: --
7750: -- we need to get length of array of child nodes
7751: -- to go through the array in loop
7752: --
7753: l_length := xmldom.getLength(l_child_nodes_tbl);
7754: FOR k IN 0..l_length-1
7755: LOOP
7756: --
7757: -- get next child DOM node
7755: LOOP
7756: --
7757: -- get next child DOM node
7758: --
7759: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7760: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7761: END LOOP;
7762:
7763: ELSE -- use UI Template by Copy
7756: --
7757: -- get next child DOM node
7758: --
7759: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7760: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7761: END LOOP;
7762:
7763: ELSE -- use UI Template by Copy
7764:
7761: END LOOP;
7762:
7763: ELSE -- use UI Template by Copy
7764:
7765: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
7766:
7767: l_length := xmldom.getLength(l_child_nodes_tbl);
7768: IF (l_length > 0) THEN
7769: FOR k IN 0..l_length-1
7763: ELSE -- use UI Template by Copy
7764:
7765: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
7766:
7767: l_length := xmldom.getLength(l_child_nodes_tbl);
7768: IF (l_length > 0) THEN
7769: FOR k IN 0..l_length-1
7770: LOOP
7771: --
7770: LOOP
7771: --
7772: -- get next child DOM node
7773: --
7774: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7775: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
7776:
7777: IF k > 0 THEN
7778: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
7771: --
7772: -- get next child DOM node
7773: --
7774: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7775: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
7776:
7777: IF k > 0 THEN
7778: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
7779:
7776:
7777: IF k > 0 THEN
7778: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
7779:
7780: l_xml_node_name := xmldom.getNodeName(l_xml_node);
7781:
7782: IF l_attribute_value IS NOT NULL THEN
7783: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
7784: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'),'_czc','_czn'));
7780: l_xml_node_name := xmldom.getNodeName(l_xml_node);
7781:
7782: IF l_attribute_value IS NOT NULL THEN
7783: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
7784: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'),'_czc','_czn'));
7785: END IF;
7786:
7787: l_ancestor_node := get_Attribute_Value(l_xml_node,
7788: 'ancestorNode');
7791: SELECT jrad_doc INTO l_jrad_doc FROM CZ_UI_PAGES
7792: WHERE page_id=p_ui_node.page_id AND ui_def_id=p_ui_node.ui_def_id;
7793:
7794: l_hgrid_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:tree');
7795: IF NOT(xmldom.IsNull(l_xml_node)) THEN
7796: l_ancestor_node := l_jrad_doc||'.'||l_hgrid_element_id;
7797:
7798: set_Attribute(l_xml_node,
7799: 'ancestorNode',
7803:
7804: --
7805: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
7806: --
7807: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
7808: l_old_switcher_xml_id := l_attribute_value;
7809: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
7810: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
7811: l_switcher_casename := REPLACE(REPLACE(REPLACE(l_switcher_casename,l_attribute_value, l_new_attribute_value),'_czt','_czn'),'_czc','_czn');
7820:
7821: --
7822: -- set value of attribute "name" of
7823: --
7824: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
7825: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
7826: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
7827: set_Attribute(xmldom.makeElement(l_xml_node),
7828: 'name',
7823: --
7824: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
7825: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
7826: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
7827: set_Attribute(xmldom.makeElement(l_xml_node),
7828: 'name',
7829: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'),'_czc','_czn'));
7830: handle_UI_CASE_Id(l_xml_node);
7831: END IF;
7834: -- if current tag is
7835: -- then replace old id with new one
7836: --
7837: IF (l_xml_node_name='oa:stackLayout' AND
7838: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
7839: set_Attribute(xmldom.makeElement(l_xml_node),
7840: G_ID_ATTRIBUTE,
7841: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
7842: END IF;
7835: -- then replace old id with new one
7836: --
7837: IF (l_xml_node_name='oa:stackLayout' AND
7838: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
7839: set_Attribute(xmldom.makeElement(l_xml_node),
7840: G_ID_ATTRIBUTE,
7841: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
7842: END IF;
7843:
7918: END IF; -- end of IF k > 0 THEN
7919: END LOOP;
7920: END IF;
7921:
7922: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node, TRUE);
7923: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7924:
7925: END IF;
7926:
7930:
7931: BEGIN
7932: l_anchor_doc := parse_JRAD_Document(G_ANCHOR_TEMPLATE);
7933:
7934: l_xml_anchor_node :=xmldom.makeNode(xmldom.getDocumentElement(l_anchor_doc));
7935:
7936: remove_TopLevel_Attributes(l_xml_anchor_node);
7937:
7938: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7934: l_xml_anchor_node :=xmldom.makeNode(xmldom.getDocumentElement(l_anchor_doc));
7935:
7936: remove_TopLevel_Attributes(l_xml_anchor_node);
7937:
7938: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7939: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7940:
7941: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,get_Element_Id());
7942: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'ANCHOR_GENERATED_BY_UI_GEN');
7937:
7938: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7939: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7940:
7941: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,get_Element_Id());
7942: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'ANCHOR_GENERATED_BY_UI_GEN');
7943:
7944: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7945: l_new_xml_anchor_node);
7938: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7939: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7940:
7941: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,get_Element_Id());
7942: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'ANCHOR_GENERATED_BY_UI_GEN');
7943:
7944: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7945: l_new_xml_anchor_node);
7946:
7940:
7941: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,get_Element_Id());
7942: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'ANCHOR_GENERATED_BY_UI_GEN');
7943:
7944: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7945: l_new_xml_anchor_node);
7946:
7947: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7948: l_new_xml_root_node);
7943:
7944: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7945: l_new_xml_anchor_node);
7946:
7947: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7948: l_new_xml_root_node);
7949:
7950: EXCEPTION
7951: WHEN OTHERS THEN
7953: END;
7954:
7955: ELSE -- don't wrap it with rowLayout+Link
7956:
7957: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7958: l_new_xml_root_node);
7959:
7960: END IF;
7961:
7966: IF l_wrap_with_links THEN
7967: BEGIN
7968: l_anchor_doc := parse_JRAD_Document(G_LINK_TEMPLATE);
7969:
7970: l_xml_anchor_node :=xmldom.makeNode(xmldom.getDocumentElement(l_anchor_doc));
7971:
7972: remove_TopLevel_Attributes(l_xml_anchor_node);
7973:
7974: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7970: l_xml_anchor_node :=xmldom.makeNode(xmldom.getDocumentElement(l_anchor_doc));
7971:
7972: remove_TopLevel_Attributes(l_xml_anchor_node);
7973:
7974: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7975: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7976:
7977: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,
7978: '_czt'||to_char(p_ui_node.persistent_node_id)); -- fix for bug #4047136
7973:
7974: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7975: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7976:
7977: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,
7978: '_czt'||to_char(p_ui_node.persistent_node_id)); -- fix for bug #4047136
7979: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'LINK_GENERATED_BY_UI_GEN');
7980: EXCEPTION
7981: WHEN OTHERS THEN
7975: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7976:
7977: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,
7978: '_czt'||to_char(p_ui_node.persistent_node_id)); -- fix for bug #4047136
7979: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'LINK_GENERATED_BY_UI_GEN');
7980: EXCEPTION
7981: WHEN OTHERS THEN
7982: DEBUG('create_UIXML_Element() : '||SQLERRM);
7983: END;
7982: DEBUG('create_UIXML_Element() : '||SQLERRM);
7983: END;
7984: END IF;
7985:
7986: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7987: 'oa:flowLayout','oa:tableLayout') THEN
7988:
7989:
7990: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7989:
7990: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7991:
7992: IF l_wrap_with_links THEN
7993: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7994: l_new_xml_anchor_node);
7995: END IF;
7996: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7997: l_new_xml_root_node);
7992: IF l_wrap_with_links THEN
7993: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7994: l_new_xml_anchor_node);
7995: END IF;
7996: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7997: l_new_xml_root_node);
7998: ELSE
7999:
8000: IF l_wrap_with_links THEN
7997: l_new_xml_root_node);
7998: ELSE
7999:
8000: IF l_wrap_with_links THEN
8001: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
8002: l_new_xml_anchor_node);
8003: END IF;
8004:
8005: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
8001: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
8002: l_new_xml_anchor_node);
8003: END IF;
8004:
8005: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
8006: l_new_xml_root_node);
8007: END IF;
8008: RETURN l_out_xml_node;
8009: END IF;
8013: --
8014: -- add new XML region
8015: --
8016: FUNCTION create_UIXML_Region(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
8017: p_parent_xml_node xmldom.DOMNode)
8018: RETURN xmldom.DOMNode IS
8019:
8020: l_subtree_doc xmldom.DOMDocument;
8021: l_xml_root_node xmldom.DOMNode;
8014: -- add new XML region
8015: --
8016: FUNCTION create_UIXML_Region(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
8017: p_parent_xml_node xmldom.DOMNode)
8018: RETURN xmldom.DOMNode IS
8019:
8020: l_subtree_doc xmldom.DOMDocument;
8021: l_xml_root_node xmldom.DOMNode;
8022: l_new_xml_root_node xmldom.DOMNode;
8016: FUNCTION create_UIXML_Region(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
8017: p_parent_xml_node xmldom.DOMNode)
8018: RETURN xmldom.DOMNode IS
8019:
8020: l_subtree_doc xmldom.DOMDocument;
8021: l_xml_root_node xmldom.DOMNode;
8022: l_new_xml_root_node xmldom.DOMNode;
8023: l_out_xml_node xmldom.DOMNode;
8024: l_ui_contents_xml_node xmldom.DOMNode;
8017: p_parent_xml_node xmldom.DOMNode)
8018: RETURN xmldom.DOMNode IS
8019:
8020: l_subtree_doc xmldom.DOMDocument;
8021: l_xml_root_node xmldom.DOMNode;
8022: l_new_xml_root_node xmldom.DOMNode;
8023: l_out_xml_node xmldom.DOMNode;
8024: l_ui_contents_xml_node xmldom.DOMNode;
8025: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
8018: RETURN xmldom.DOMNode IS
8019:
8020: l_subtree_doc xmldom.DOMDocument;
8021: l_xml_root_node xmldom.DOMNode;
8022: l_new_xml_root_node xmldom.DOMNode;
8023: l_out_xml_node xmldom.DOMNode;
8024: l_ui_contents_xml_node xmldom.DOMNode;
8025: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
8026:
8019:
8020: l_subtree_doc xmldom.DOMDocument;
8021: l_xml_root_node xmldom.DOMNode;
8022: l_new_xml_root_node xmldom.DOMNode;
8023: l_out_xml_node xmldom.DOMNode;
8024: l_ui_contents_xml_node xmldom.DOMNode;
8025: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
8026:
8027: BEGIN
8020: l_subtree_doc xmldom.DOMDocument;
8021: l_xml_root_node xmldom.DOMNode;
8022: l_new_xml_root_node xmldom.DOMNode;
8023: l_out_xml_node xmldom.DOMNode;
8024: l_ui_contents_xml_node xmldom.DOMNode;
8025: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
8026:
8027: BEGIN
8028:
8032: -- parse document(template) which is going to be nested element
8033: --
8034: l_subtree_doc := parse_JRAD_Document(l_jrad_doc);
8035:
8036: IF xmldom.isNull(l_subtree_doc) THEN
8037: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
8038: p_token_name => 'UI_TEMPLATE',
8039: p_token_value => l_jrad_doc,
8040: p_fatal_error => TRUE);
8043:
8044: --
8045: -- get subdocument's root node
8046: --
8047: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
8048:
8049: --
8050: -- remove common attributes of container and subtree
8051: --
8064:
8065: --
8066: -- returns cloned DOM subtree
8067: --
8068: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node, TRUE);
8069: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
8070:
8071: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
8072:
8069: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
8070:
8071: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
8072:
8073: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
8074: 'oa:flowLayout','oa:tableLayout','oa:rowLayout') THEN
8075:
8076: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
8077: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
8073: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
8074: 'oa:flowLayout','oa:tableLayout','oa:rowLayout') THEN
8075:
8076: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
8077: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
8078: l_new_xml_root_node);
8079: ELSE
8080: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
8081: l_new_xml_root_node);
8076: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
8077: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
8078: l_new_xml_root_node);
8079: ELSE
8080: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
8081: l_new_xml_root_node);
8082: END IF;
8083:
8084: RETURN l_out_xml_node;
8088: --
8089: -- replace XML JRAD element
8090: --
8091: FUNCTION replace_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
8092: p_parent_xml_node xmldom.DOMNode,
8093: p_xml_node_to_replace xmldom.DOMNode)
8094: RETURN xmldom.DOMNode IS
8095:
8096: l_subtree_doc xmldom.DOMDocument;
8089: -- replace XML JRAD element
8090: --
8091: FUNCTION replace_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
8092: p_parent_xml_node xmldom.DOMNode,
8093: p_xml_node_to_replace xmldom.DOMNode)
8094: RETURN xmldom.DOMNode IS
8095:
8096: l_subtree_doc xmldom.DOMDocument;
8097: l_xml_root_node xmldom.DOMNode;
8090: --
8091: FUNCTION replace_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
8092: p_parent_xml_node xmldom.DOMNode,
8093: p_xml_node_to_replace xmldom.DOMNode)
8094: RETURN xmldom.DOMNode IS
8095:
8096: l_subtree_doc xmldom.DOMDocument;
8097: l_xml_root_node xmldom.DOMNode;
8098: l_new_xml_root_node xmldom.DOMNode;
8092: p_parent_xml_node xmldom.DOMNode,
8093: p_xml_node_to_replace xmldom.DOMNode)
8094: RETURN xmldom.DOMNode IS
8095:
8096: l_subtree_doc xmldom.DOMDocument;
8097: l_xml_root_node xmldom.DOMNode;
8098: l_new_xml_root_node xmldom.DOMNode;
8099: l_out_xml_node xmldom.DOMNode;
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8093: p_xml_node_to_replace xmldom.DOMNode)
8094: RETURN xmldom.DOMNode IS
8095:
8096: l_subtree_doc xmldom.DOMDocument;
8097: l_xml_root_node xmldom.DOMNode;
8098: l_new_xml_root_node xmldom.DOMNode;
8099: l_out_xml_node xmldom.DOMNode;
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8101: l_tabxml_node xmldom.DOMNode;
8094: RETURN xmldom.DOMNode IS
8095:
8096: l_subtree_doc xmldom.DOMDocument;
8097: l_xml_root_node xmldom.DOMNode;
8098: l_new_xml_root_node xmldom.DOMNode;
8099: l_out_xml_node xmldom.DOMNode;
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8101: l_tabxml_node xmldom.DOMNode;
8102: l_xml_node xmldom.DOMNode;
8095:
8096: l_subtree_doc xmldom.DOMDocument;
8097: l_xml_root_node xmldom.DOMNode;
8098: l_new_xml_root_node xmldom.DOMNode;
8099: l_out_xml_node xmldom.DOMNode;
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8101: l_tabxml_node xmldom.DOMNode;
8102: l_xml_node xmldom.DOMNode;
8103: l_parent_xml_node xmldom.DOMNode;
8096: l_subtree_doc xmldom.DOMDocument;
8097: l_xml_root_node xmldom.DOMNode;
8098: l_new_xml_root_node xmldom.DOMNode;
8099: l_out_xml_node xmldom.DOMNode;
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8101: l_tabxml_node xmldom.DOMNode;
8102: l_xml_node xmldom.DOMNode;
8103: l_parent_xml_node xmldom.DOMNode;
8104: l_child_nodes_tbl xmldom.DOMNodeList;
8097: l_xml_root_node xmldom.DOMNode;
8098: l_new_xml_root_node xmldom.DOMNode;
8099: l_out_xml_node xmldom.DOMNode;
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8101: l_tabxml_node xmldom.DOMNode;
8102: l_xml_node xmldom.DOMNode;
8103: l_parent_xml_node xmldom.DOMNode;
8104: l_child_nodes_tbl xmldom.DOMNodeList;
8105: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
8098: l_new_xml_root_node xmldom.DOMNode;
8099: l_out_xml_node xmldom.DOMNode;
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8101: l_tabxml_node xmldom.DOMNode;
8102: l_xml_node xmldom.DOMNode;
8103: l_parent_xml_node xmldom.DOMNode;
8104: l_child_nodes_tbl xmldom.DOMNodeList;
8105: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
8106: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
8099: l_out_xml_node xmldom.DOMNode;
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8101: l_tabxml_node xmldom.DOMNode;
8102: l_xml_node xmldom.DOMNode;
8103: l_parent_xml_node xmldom.DOMNode;
8104: l_child_nodes_tbl xmldom.DOMNodeList;
8105: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
8106: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
8107: l_user_attribute4 VARCHAR2(4000);
8100: l_tabxml_uicontens_node xmldom.DOMNode;
8101: l_tabxml_node xmldom.DOMNode;
8102: l_xml_node xmldom.DOMNode;
8103: l_parent_xml_node xmldom.DOMNode;
8104: l_child_nodes_tbl xmldom.DOMNodeList;
8105: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
8106: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
8107: l_user_attribute4 VARCHAR2(4000);
8108: l_user_attribute VARCHAR2(4000);
8109: l_drilldown_text_id NUMBER;
8110: l_ui_action_id NUMBER;
8111: l_length NUMBER;
8112: l_use_by_reference BOOLEAN;
8113: l_curr_parent_xml_node xmldom.DOMNode;
8114: l_attribute_value VARCHAR2(32000);
8115: l_xml_node_name VARCHAR2(4000);
8116: l_old_switcher_xml_id VARCHAR2(4000);
8117: l_user_attribute3_value VARCHAR2(32000);
8126: l_node := get_Model_Node_By_Persist_Id(p_ui_node.persistent_node_id,g_UI_Context.devl_project_id);
8127:
8128: IF p_ui_node.ctrl_template_id IS NULL AND p_ui_node.element_type=G_UI_DRILLDOWN_NODE_TYPE THEN
8129: BEGIN
8130: l_new_xml_root_node := xmldom.removeChild(p_parent_xml_node,p_xml_node_to_replace);
8131: EXCEPTION
8132: WHEN OTHERS THEN
8133: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8134: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8130: l_new_xml_root_node := xmldom.removeChild(p_parent_xml_node,p_xml_node_to_replace);
8131: EXCEPTION
8132: WHEN OTHERS THEN
8133: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8134: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8135: l_tabxml_uicontens_node := getUIContents(l_tabxml_node);
8136: l_new_xml_root_node := xmldom.removeChild(l_tabxml_uicontens_node,p_xml_node_to_replace);
8137: END IF;
8138: END;
8132: WHEN OTHERS THEN
8133: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8134: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8135: l_tabxml_uicontens_node := getUIContents(l_tabxml_node);
8136: l_new_xml_root_node := xmldom.removeChild(l_tabxml_uicontens_node,p_xml_node_to_replace);
8137: END IF;
8138: END;
8139: RETURN p_parent_xml_node;
8140: END IF;
8152: l_jrad_doc := get_JRAD_Name(p_template_id => p_ui_node.ctrl_template_id);
8153:
8154: l_subtree_doc := parse_JRAD_Document(l_jrad_doc);
8155:
8156: IF xmldom.isNull(l_subtree_doc) THEN
8157: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
8158: p_token_name => 'UI_TEMPLATE',
8159: p_token_value => l_jrad_doc,
8160: p_fatal_error => TRUE);
8163:
8164: --
8165: -- get subdocument's root node
8166: --
8167: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
8168:
8169: --
8170: -- remove common attributes of container and subtree
8171: --
8180: IF l_use_by_reference THEN
8181: --
8182: -- returns cloned DOM subtree
8183: --
8184: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node,TRUE);
8185: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
8186:
8187:
8188: --
8187:
8188: --
8189: -- set "extends" attribute
8190: --
8191: xmldom.setAttribute(xmldom.makeElement(l_new_xml_root_node),'extends',l_jrad_doc);
8192:
8193: l_user_attribute4 := get_Attribute_Value(l_new_xml_root_node,
8194: G_USER_ATTRIBUTE4_NAME);
8195: IF l_user_attribute4 IS NOT NULL THEN
8210:
8211: --
8212: -- remove content of template subtree
8213: --
8214: l_child_nodes_tbl:=xmldom.getChildNodes(l_new_xml_root_node);
8215:
8216: --
8217: -- we need to get length of array of child nodes
8218: -- to go through the array in loop
8216: --
8217: -- we need to get length of array of child nodes
8218: -- to go through the array in loop
8219: --
8220: l_length := xmldom.getLength(l_child_nodes_tbl);
8221: FOR k IN 0..l_length-1
8222: LOOP
8223: --
8224: -- get next child DOM node
8222: LOOP
8223: --
8224: -- get next child DOM node
8225: --
8226: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
8227: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
8228: END LOOP;
8229:
8230: ELSE -- use by Copy
8223: --
8224: -- get next child DOM node
8225: --
8226: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
8227: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
8228: END LOOP;
8229:
8230: ELSE -- use by Copy
8231: l_child_nodes_tbl := xmldom.getElementsByTagName(xmldom.makeElement(l_xml_root_node), '*');
8227: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
8228: END LOOP;
8229:
8230: ELSE -- use by Copy
8231: l_child_nodes_tbl := xmldom.getElementsByTagName(xmldom.makeElement(l_xml_root_node), '*');
8232: l_length := xmldom.getLength(l_child_nodes_tbl);
8233: IF (l_length > 0) THEN
8234: FOR k IN 0..l_length-1
8235: LOOP
8228: END LOOP;
8229:
8230: ELSE -- use by Copy
8231: l_child_nodes_tbl := xmldom.getElementsByTagName(xmldom.makeElement(l_xml_root_node), '*');
8232: l_length := xmldom.getLength(l_child_nodes_tbl);
8233: IF (l_length > 0) THEN
8234: FOR k IN 0..l_length-1
8235: LOOP
8236: --
8235: LOOP
8236: --
8237: -- get next child DOM node
8238: --
8239: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
8240:
8241: IF p_ui_node.ctrl_template_id=g_DRILLDOWN_TEMPLATE_ID THEN
8242:
8243: IF attribute_Value(l_xml_node, 'source') IS NULL AND
8290: END IF; -- end of IF p_ui_node.ctrl_template_id=g_DRILLDOWN_TEMPLATE_ID THEN
8291:
8292: IF k > 0 THEN
8293:
8294: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
8295:
8296: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
8297:
8298: l_xml_node_name := xmldom.getNodeName(l_xml_node);
8294: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
8295:
8296: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
8297:
8298: l_xml_node_name := xmldom.getNodeName(l_xml_node);
8299:
8300: IF l_attribute_value IS NOT NULL THEN
8301: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
8302: l_new_attribute_value := REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'), '_czc','_czn');
8299:
8300: IF l_attribute_value IS NOT NULL THEN
8301: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
8302: l_new_attribute_value := REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'), '_czc','_czn');
8303: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE, l_new_attribute_value);
8304: END IF;
8305:
8306: --
8307: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
8305:
8306: --
8307: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
8308: --
8309: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
8310: l_old_switcher_xml_id := l_attribute_value;
8311: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
8312: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
8313: l_switcher_casename := REPLACE(l_switcher_casename,l_attribute_value, l_new_attribute_value);
8323:
8324: --
8325: -- set value of attribute "name" of
8326: --
8327: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
8328: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
8329: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
8330: set_Attribute(xmldom.makeElement(l_xml_node),
8331: 'name',
8326: --
8327: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
8328: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
8329: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
8330: set_Attribute(xmldom.makeElement(l_xml_node),
8331: 'name',
8332: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'), '_czc', '_czn'));
8333: handle_UI_CASE_Id(l_xml_node);
8334: END IF;
8337: -- if current tag is
8338: -- then replace old id with new one
8339: --
8340: IF (l_xml_node_name='oa:stackLayout' AND
8341: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
8342: set_Attribute(xmldom.makeElement(l_xml_node),
8343: G_ID_ATTRIBUTE,
8344: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
8345: END IF;
8338: -- then replace old id with new one
8339: --
8340: IF (l_xml_node_name='oa:stackLayout' AND
8341: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
8342: set_Attribute(xmldom.makeElement(l_xml_node),
8343: G_ID_ATTRIBUTE,
8344: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
8345: END IF;
8346: END IF; -- end of IF k > 0 THEN
8347:
8348: END LOOP;
8349: END IF; -- end of IF (l_length > 0) THEN
8350:
8351: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node, TRUE);
8352: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
8353:
8354:
8355: l_user_attribute4 := get_Attribute_Value(l_new_xml_root_node,
8374: END IF;
8375:
8376: END IF; -- end of use by Copy
8377:
8378: l_parent_xml_node := xmldom.getParentNode(p_xml_node_to_replace);
8379: IF g_using_new_UI_refresh THEN
8380: g_dom_elements_tbl.DELETE(TO_NUMBER(p_ui_node.element_id));
8381: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
8382: l_new_xml_root_node := xmldom.replaceChild(l_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8378: l_parent_xml_node := xmldom.getParentNode(p_xml_node_to_replace);
8379: IF g_using_new_UI_refresh THEN
8380: g_dom_elements_tbl.DELETE(TO_NUMBER(p_ui_node.element_id));
8381: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
8382: l_new_xml_root_node := xmldom.replaceChild(l_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8383: ELSE
8384: BEGIN
8385: l_new_xml_root_node := xmldom.replaceChild(p_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8386: EXCEPTION
8381: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
8382: l_new_xml_root_node := xmldom.replaceChild(l_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8383: ELSE
8384: BEGIN
8385: l_new_xml_root_node := xmldom.replaceChild(p_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8386: EXCEPTION
8387: WHEN OTHERS THEN
8388: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8389: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8385: l_new_xml_root_node := xmldom.replaceChild(p_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8386: EXCEPTION
8387: WHEN OTHERS THEN
8388: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8389: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8390: l_tabxml_uicontens_node := getUIContents(l_tabxml_node);
8391: l_new_xml_root_node := xmldom.replaceChild(l_tabxml_uicontens_node, l_new_xml_root_node, p_xml_node_to_replace);
8392: END IF;
8393: END;
8387: WHEN OTHERS THEN
8388: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8389: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8390: l_tabxml_uicontens_node := getUIContents(l_tabxml_node);
8391: l_new_xml_root_node := xmldom.replaceChild(l_tabxml_uicontens_node, l_new_xml_root_node, p_xml_node_to_replace);
8392: END IF;
8393: END;
8394: END IF;
8395: RETURN p_parent_xml_node;
8400: RETURN p_parent_xml_node;
8401: END replace_UIXML_Element;
8402:
8403: --vsingava IM-ER
8404: PROCEDURE change_to_basic_Layout(p_xml_node xmldom.DOMNode,
8405: p_user_attribute4 VARCHAR2,
8406: p_page_id NUMBER,
8407: p_amn_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE) IS
8408: l_layout_region_type VARCHAR2(10);
8461: p_ui_page_id NUMBER,
8462: p_base_persistent_node_id NUMBER, --vsingava IM-ER
8463: p_base_expl_id NUMBER,
8464: p_persistent_node_id NUMBER,
8465: p_xml_node_to_refresh xmldom.DOMNode) IS
8466:
8467: l_new_model_path VARCHAR2(32000);
8468: l_current_model_path VARCHAR2(32000);
8469: l_user_attribute3 VARCHAR2(32000);
8546: NULL;
8547: END refresh_Model_Path;
8548:
8549: --vsingava IM-ER
8550: PROCEDURE refresh_All_Model_Paths(p_xml_doc xmldom.DOMDocument,
8551: p_page_id NUMBER) IS
8552:
8553: l_root_node xmldom.DOMNode;
8554: l_pagebase_persistent_node_id NUMBER;
8549: --vsingava IM-ER
8550: PROCEDURE refresh_All_Model_Paths(p_xml_doc xmldom.DOMDocument,
8551: p_page_id NUMBER) IS
8552:
8553: l_root_node xmldom.DOMNode;
8554: l_pagebase_persistent_node_id NUMBER;
8555: l_pagebase_expl_id NUMBER;
8556:
8557: PROCEDURE refresh_paths_recursive(p_xml_node xmldom.DOMNode,
8553: l_root_node xmldom.DOMNode;
8554: l_pagebase_persistent_node_id NUMBER;
8555: l_pagebase_expl_id NUMBER;
8556:
8557: PROCEDURE refresh_paths_recursive(p_xml_node xmldom.DOMNode,
8558: p_base_persistent_node_id NUMBER,
8559: p_base_expl_id NUMBER,
8560: p_inherited_persistent_id NUMBER,
8561: p_inherited_expl_id NUMBER) IS
8559: p_base_expl_id NUMBER,
8560: p_inherited_persistent_id NUMBER,
8561: p_inherited_expl_id NUMBER) IS
8562:
8563: l_node xmldom.DOMNode;
8564: l_nodeslist xmldom.DOMNodeList;
8565: l_empty_xml_node xmldom.DOMNode;
8566: l_length NUMBER;
8567: l_element_id VARCHAR2(32000);
8560: p_inherited_persistent_id NUMBER,
8561: p_inherited_expl_id NUMBER) IS
8562:
8563: l_node xmldom.DOMNode;
8564: l_nodeslist xmldom.DOMNodeList;
8565: l_empty_xml_node xmldom.DOMNode;
8566: l_length NUMBER;
8567: l_element_id VARCHAR2(32000);
8568: l_base_persistent_node_Id NUMBER;
8561: p_inherited_expl_id NUMBER) IS
8562:
8563: l_node xmldom.DOMNode;
8564: l_nodeslist xmldom.DOMNodeList;
8565: l_empty_xml_node xmldom.DOMNode;
8566: l_length NUMBER;
8567: l_element_id VARCHAR2(32000);
8568: l_base_persistent_node_Id NUMBER;
8569: l_base_expl_id NUMBER;
8581: BEGIN
8582:
8583:
8584:
8585: l_nodeslist := xmldom.getChildrenByTagName(xmldom.makeElement(p_xml_node), '*');
8586: l_length := xmldom.getLength(l_nodeslist);
8587:
8588: FOR i IN 0..l_length-1
8589: LOOP
8582:
8583:
8584:
8585: l_nodeslist := xmldom.getChildrenByTagName(xmldom.makeElement(p_xml_node), '*');
8586: l_length := xmldom.getLength(l_nodeslist);
8587:
8588: FOR i IN 0..l_length-1
8589: LOOP
8590:
8594: l_inherited_expl_id := p_inherited_expl_id;
8595: l_AMN_set := FALSE;
8596: l_is_instance_list_layout := FALSE;
8597:
8598: l_node := xmldom.item(l_nodeslist, i);
8599: l_element_id := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
8600: IF l_element_id IS NOT NULL THEN
8601: BEGIN
8602:
8675: END refresh_paths_recursive;
8676:
8677: BEGIN
8678:
8679: l_root_node := xmldom.makeNode(xmldom.getDocumentElement(p_xml_doc));
8680:
8681: DEBUG('In refresh all model paths: ' || p_page_Id);
8682:
8683: SELECT persistent_node_id,pagebase_expl_node_id
8701: -- get attributes of a given DOM node
8702: -- Parameters : p_node - DOM node
8703: -- Return : array of attributes in format of attributes_tbl_type array
8704: --
8705: FUNCTION get_Attributes(p_node IN xmldom.DOMNode)
8706: RETURN attributes_tbl_type IS
8707:
8708: l_attr_tbl attributes_tbl_type;
8709: l_node_map_tbl xmldom.DOMNamedNodeMap;
8705: FUNCTION get_Attributes(p_node IN xmldom.DOMNode)
8706: RETURN attributes_tbl_type IS
8707:
8708: l_attr_tbl attributes_tbl_type;
8709: l_node_map_tbl xmldom.DOMNamedNodeMap;
8710: l_node_attr xmldom.DOMNode;
8711: l_index NUMBER;
8712: l_length NUMBER;
8713:
8706: RETURN attributes_tbl_type IS
8707:
8708: l_attr_tbl attributes_tbl_type;
8709: l_node_map_tbl xmldom.DOMNamedNodeMap;
8710: l_node_attr xmldom.DOMNode;
8711: l_index NUMBER;
8712: l_length NUMBER;
8713:
8714: BEGIN
8711: l_index NUMBER;
8712: l_length NUMBER;
8713:
8714: BEGIN
8715: l_node_map_tbl := xmldom.getAttributes(p_node);
8716: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
8717: l_length := xmldom.getLength(l_node_map_tbl);
8718: --
8719: -- loop through attributes
8712: l_length NUMBER;
8713:
8714: BEGIN
8715: l_node_map_tbl := xmldom.getAttributes(p_node);
8716: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
8717: l_length := xmldom.getLength(l_node_map_tbl);
8718: --
8719: -- loop through attributes
8720: --
8713:
8714: BEGIN
8715: l_node_map_tbl := xmldom.getAttributes(p_node);
8716: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
8717: l_length := xmldom.getLength(l_node_map_tbl);
8718: --
8719: -- loop through attributes
8720: --
8721: l_index := 1;
8720: --
8721: l_index := 1;
8722: FOR i IN 0 .. l_length - 1
8723: LOOP
8724: l_node_attr := xmldom.item(l_node_map_tbl, i);
8725: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
8726: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
8727: l_index := l_index + 1;
8728: END LOOP;
8721: l_index := 1;
8722: FOR i IN 0 .. l_length - 1
8723: LOOP
8724: l_node_attr := xmldom.item(l_node_map_tbl, i);
8725: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
8726: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
8727: l_index := l_index + 1;
8728: END LOOP;
8729: END IF;
8722: FOR i IN 0 .. l_length - 1
8723: LOOP
8724: l_node_attr := xmldom.item(l_node_map_tbl, i);
8725: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
8726: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
8727: l_index := l_index + 1;
8728: END LOOP;
8729: END IF;
8730: RETURN l_attr_tbl;
8739: -- Parameters : p_node - DOM node
8740: -- p_jraddoc_node - JRAD doc builder element
8741: -- Notes : it is not used in UI Generation/UI Refresh process directly
8742: --
8743: PROCEDURE set_Attributes(p_node xmldom.DOMNode,
8744: p_jraddoc_node jdr_docbuilder.Element) IS
8745:
8746: l_attr_tbl attributes_tbl_type;
8747:
8787: -- p_nodeList - list of DOM nodes of the current level in DOM tree
8788: -- p_groupingTag - identifies XML grouping tag
8789: -- p_parent - identifes parent JRAD docbuilder element
8790: --
8791: PROCEDURE traverse_DOM_Tree(p_nodeList xmldom.DOMNodeList,
8792: p_groupingTag VARCHAR2,
8793: p_parent jdr_docbuilder.Element) IS
8794:
8795: l_next_level_tbl xmldom.DOMNodeList;
8791: PROCEDURE traverse_DOM_Tree(p_nodeList xmldom.DOMNodeList,
8792: p_groupingTag VARCHAR2,
8793: p_parent jdr_docbuilder.Element) IS
8794:
8795: l_next_level_tbl xmldom.DOMNodeList;
8796: l_node xmldom.DOMNode;
8797: l_parent_xml_node xmldom.DOMNode;
8798: l_attr_tbl attributes_tbl_type;
8799: l_child jdr_docbuilder.Element;
8792: p_groupingTag VARCHAR2,
8793: p_parent jdr_docbuilder.Element) IS
8794:
8795: l_next_level_tbl xmldom.DOMNodeList;
8796: l_node xmldom.DOMNode;
8797: l_parent_xml_node xmldom.DOMNode;
8798: l_attr_tbl attributes_tbl_type;
8799: l_child jdr_docbuilder.Element;
8800: l_tag_name VARCHAR2(255);
8793: p_parent jdr_docbuilder.Element) IS
8794:
8795: l_next_level_tbl xmldom.DOMNodeList;
8796: l_node xmldom.DOMNode;
8797: l_parent_xml_node xmldom.DOMNode;
8798: l_attr_tbl attributes_tbl_type;
8799: l_child jdr_docbuilder.Element;
8800: l_tag_name VARCHAR2(255);
8801: l_parent_tag_name VARCHAR2(255);
8811: --
8812: -- now we have a DOM tree of the target JRAD document
8813: -- and we need to populate JRAD tables by using jdr_docbuilder API
8814: --
8815: l_length := xmldom.getLength(p_nodeList);
8816:
8817: FOR i IN 0 .. l_length - 1
8818: LOOP
8819: l_node := xmldom.item(p_nodeList, i);
8815: l_length := xmldom.getLength(p_nodeList);
8816:
8817: FOR i IN 0 .. l_length - 1
8818: LOOP
8819: l_node := xmldom.item(p_nodeList, i);
8820:
8821: l_tag_name := xmldom.getNodeName(l_node);
8822:
8823: l_parent_xml_node := xmldom.getParentNode(l_node);
8817: FOR i IN 0 .. l_length - 1
8818: LOOP
8819: l_node := xmldom.item(p_nodeList, i);
8820:
8821: l_tag_name := xmldom.getNodeName(l_node);
8822:
8823: l_parent_xml_node := xmldom.getParentNode(l_node);
8824:
8825: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
8819: l_node := xmldom.item(p_nodeList, i);
8820:
8821: l_tag_name := xmldom.getNodeName(l_node);
8822:
8823: l_parent_xml_node := xmldom.getParentNode(l_node);
8824:
8825: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
8826: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
8827: END IF;
8821: l_tag_name := xmldom.getNodeName(l_node);
8822:
8823: l_parent_xml_node := xmldom.getParentNode(l_node);
8824:
8825: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
8826: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
8827: END IF;
8828:
8829: l_grouping_tag := '';
8822:
8823: l_parent_xml_node := xmldom.getParentNode(l_node);
8824:
8825: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
8826: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
8827: END IF;
8828:
8829: l_grouping_tag := '';
8830:
8908:
8909: NULL;
8910: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
8911:
8912: l_next_level_tbl := xmldom.getChildNodes(l_node);
8913: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
8914: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
8915:
8916: IF l_st IS NULL THEN
8909: NULL;
8910: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
8911:
8912: l_next_level_tbl := xmldom.getChildNodes(l_node);
8913: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
8914: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
8915:
8916: IF l_st IS NULL THEN
8917: traverse_DOM_Tree(l_next_level_tbl,
8910: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
8911:
8912: l_next_level_tbl := xmldom.getChildNodes(l_node);
8913: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
8914: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
8915:
8916: IF l_st IS NULL THEN
8917: traverse_DOM_Tree(l_next_level_tbl,
8918: l_grouping_tag,
8948: -- Parameters : p_jrad_doc_name - specifies full JRAD name of
8949: -- document that will be created from DOM tree
8950: -- which is identified by global DOM Document variable g_DOC
8951: --
8952: PROCEDURE convert_DOM_to_JRAD(p_dom_root_node xmldom.DOMNode,
8953: p_jrad_doc_name IN VARCHAR2) IS
8954:
8955: l_topLevel jdr_docbuilder.Element;
8956: l_status PLS_INTEGER;
8978:
8979: --
8980: -- create root element of the target JRAD document
8981: --
8982: l_topLevel := createElement(xmldom.getNodeName(p_dom_root_node));
8983:
8984: --
8985: -- set top level attributes
8986: --
8994: --
8995: -- modify the source DOM tree and create the target JRAD document
8996: -- traverse_DOM_Tree() is recursive procedure
8997: --
8998: traverse_DOM_Tree(xmldom.getChildNodes(p_dom_root_node),
8999: '',
9000: l_topLevel);
9001:
9002: --
9008:
9009: --
9010: -- save JRAD document
9011: --
9012: PROCEDURE Save_Document(p_xml_doc xmldom.DOMDocument,
9013: p_doc_name IN VARCHAR2) IS
9014: l_dom_root_node xmldom.DOMNode;
9015: BEGIN
9016:
9010: -- save JRAD document
9011: --
9012: PROCEDURE Save_Document(p_xml_doc xmldom.DOMDocument,
9013: p_doc_name IN VARCHAR2) IS
9014: l_dom_root_node xmldom.DOMNode;
9015: BEGIN
9016:
9017: --
9018: -- get Document's root node
9016:
9017: --
9018: -- get Document's root node
9019: --
9020: l_dom_root_node := xmldom.makeNode(xmldom.getDocumentElement(p_xml_doc));
9021: convert_DOM_to_JRAD(p_dom_root_node => l_dom_root_node, p_jrad_doc_name => p_doc_name);
9022:
9023: END Save_Document;
9024:
9024:
9025: --
9026: -- save JRAD document
9027: --
9028: PROCEDURE Save_As_Document(p_xml_root_node xmldom.DOMNode,
9029: p_doc_name IN VARCHAR2) IS
9030: BEGIN
9031:
9032: convert_DOM_to_JRAD(p_dom_root_node => p_xml_root_node, p_jrad_doc_name => p_doc_name);
13909: -- reorder UI elements on UI page in case of Single Page
13910: --
13911: PROCEDURE handle_Page_Flows IS
13912:
13913: l_xmldoc xmldom.DOMDocument;
13914: l_counter NUMBER:=0;
13915: l_seq_nbr NUMBER;
13916: l_show_train BOOLEAN := FALSE;
13917: l_target_path CZ_UI_PAGE_REFS.target_path%TYPE;
14604: -- This function also checks the node passed in itself i.e. if the node passed in is
14605: -- an Instance List, then the function will return its AMN
14606: FUNCTION getInstanceListAMN(p_ui_def_id IN CZ_UI_DEFS.ui_def_Id%TYPE,
14607: p_page_id IN CZ_UI_PAGES.page_id%TYPE,
14608: p_xml_node IN xmldom.DOMNode) RETURN expl_node_persistent_id_pair
14609: IS
14610:
14611: l_node xmldom.DOMNode;
14612: l_user_attribute4_value VARCHAR2(2000);
14607: p_page_id IN CZ_UI_PAGES.page_id%TYPE,
14608: p_xml_node IN xmldom.DOMNode) RETURN expl_node_persistent_id_pair
14609: IS
14610:
14611: l_node xmldom.DOMNode;
14612: l_user_attribute4_value VARCHAR2(2000);
14613: l_user_attribute1_value VARCHAR2(2000);
14614: l_layout_region_type VARCHAR2(255);
14615: l_id_pair expl_node_persistent_id_pair;
14618: BEGIN
14619:
14620: l_node := p_xml_node;
14621:
14622: WHILE NOT xmldom.isNull(l_node)
14623: LOOP
14624: l_user_attribute4_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE4_NAME);
14625: IF l_user_attribute4_value IS NOT NULL THEN
14626: l_layout_region_type := get_User_Attribute(l_user_attribute4_value, 'layoutRegionType');
14643:
14644: return l_id_pair;
14645: END IF;
14646: END IF;
14647: l_node := xmldom.getParentNode(l_node);
14648: END LOOP;
14649:
14650: RETURN l_id_pair;
14651:
14654: -- Finds an Instance List enclosing the xml node passed in and returns its AMN
14655: -- This function does not check the node passed in itself. It starts checking from
14656: -- its parent
14657: FUNCTION getEnclosingInstanceListAMN(p_ui_element CZ_UI_PAGE_ELEMENTS%ROWTYPE,
14658: p_xml_node xmldom.DOMNode) RETURN expl_node_persistent_id_pair
14659: IS
14660:
14661: l_node xmldom.DOMNode;
14662: l_user_attribute4_value VARCHAR2(2000);
14657: FUNCTION getEnclosingInstanceListAMN(p_ui_element CZ_UI_PAGE_ELEMENTS%ROWTYPE,
14658: p_xml_node xmldom.DOMNode) RETURN expl_node_persistent_id_pair
14659: IS
14660:
14661: l_node xmldom.DOMNode;
14662: l_user_attribute4_value VARCHAR2(2000);
14663: l_user_attribute1_value VARCHAR2(2000);
14664: l_layout_region_type VARCHAR2(255);
14665: l_id_pair expl_node_persistent_id_pair;
14666: l_element_with_AMN CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
14667:
14668: BEGIN
14669:
14670: l_node := xmldom.getParentNode(p_xml_node);
14671:
14672: RETURN getInstanceListAMN(p_ui_element.ui_def_id, p_ui_element.page_id, l_node);
14673:
14674: END getEnclosingInstanceListAMN;
14675:
14676: PROCEDURE check_Boundaries IS
14677: l_node_is_reachable NUMBER := -1;
14678: l_has_unreach BOOLEAN := FALSE;
14679: l_xml_doc xmldom.DOMDocument;
14680: l_xml_node xmldom.DOMNode;
14681: l_null_xml_doc xmldom.DOMDocument;
14682: l_instance_list_amn expl_node_persistent_id_pair;
14683:
14676: PROCEDURE check_Boundaries IS
14677: l_node_is_reachable NUMBER := -1;
14678: l_has_unreach BOOLEAN := FALSE;
14679: l_xml_doc xmldom.DOMDocument;
14680: l_xml_node xmldom.DOMNode;
14681: l_null_xml_doc xmldom.DOMDocument;
14682: l_instance_list_amn expl_node_persistent_id_pair;
14683:
14684: BEGIN
14677: l_node_is_reachable NUMBER := -1;
14678: l_has_unreach BOOLEAN := FALSE;
14679: l_xml_doc xmldom.DOMDocument;
14680: l_xml_node xmldom.DOMNode;
14681: l_null_xml_doc xmldom.DOMDocument;
14682: l_instance_list_amn expl_node_persistent_id_pair;
14683:
14684: BEGIN
14685: FOR i IN(SELECT page_id,pagebase_expl_node_id, jrad_doc FROM CZ_UI_PAGES --vsingava IM-ER
14702: k.model_ref_expl_id,
14703: k.persistent_node_id);
14704: IF l_node_is_reachable=0 THEN
14705:
14706: IF ( xmldom.isNull(l_xml_doc) ) THEN
14707: l_xml_doc := parse_JRAD_Document(i.jrad_doc);
14708: END IF;
14709:
14710: l_xml_node := find_XML_Node_By_Attribute(l_xml_doc, G_ID_ATTRIBUTE, k.element_id);
15775: -- as MARK_TO_REFRESH
15776: --
15777: PROCEDURE check_Ref_AMNs IS
15778:
15779: TYPE xml_dom_docs_tbl_type IS TABLE OF xmldom.DOMDocument INDEX BY VARCHAR2(255);
15780: l_doc_cache_tbl xml_dom_docs_tbl_type;
15781: l_expl_id NUMBER;
15782: l_node_is_reachable NUMBER := -1;
15783: l_has_unreach BOOLEAN := FALSE;
15780: l_doc_cache_tbl xml_dom_docs_tbl_type;
15781: l_expl_id NUMBER;
15782: l_node_is_reachable NUMBER := -1;
15783: l_has_unreach BOOLEAN := FALSE;
15784: l_xml_doc xmldom.DOMDocument;
15785: l_xml_node xmldom.DOMNode;
15786: l_null_xml_doc xmldom.DOMDocument;
15787: l_instance_list_amn expl_node_persistent_id_pair;
15788: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15781: l_expl_id NUMBER;
15782: l_node_is_reachable NUMBER := -1;
15783: l_has_unreach BOOLEAN := FALSE;
15784: l_xml_doc xmldom.DOMDocument;
15785: l_xml_node xmldom.DOMNode;
15786: l_null_xml_doc xmldom.DOMDocument;
15787: l_instance_list_amn expl_node_persistent_id_pair;
15788: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15789:
15782: l_node_is_reachable NUMBER := -1;
15783: l_has_unreach BOOLEAN := FALSE;
15784: l_xml_doc xmldom.DOMDocument;
15785: l_xml_node xmldom.DOMNode;
15786: l_null_xml_doc xmldom.DOMDocument;
15787: l_instance_list_amn expl_node_persistent_id_pair;
15788: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15789:
15790: BEGIN
15990: PROCEDURE backup_nodes_to_move(p_page_id IN NUMBER) IS
15991:
15992: l_node_ids_table number_tbl_type;
15993: l_id NUMBER;
15994: l_parent_node xmldom.DOMNode;
15995: l_node xmldom.DOMNode;
15996:
15997: BEGIN
15998:
15991:
15992: l_node_ids_table number_tbl_type;
15993: l_id NUMBER;
15994: l_parent_node xmldom.DOMNode;
15995: l_node xmldom.DOMNode;
15996:
15997: BEGIN
15998:
15999: IF g_elements_to_move.EXISTS(p_page_Id) THEN
16005: DEBUG('asp: Backing up nested element_id ' || l_id || ' on page ' || l_node_ids_table(l_id));
16006: IF g_dom_elements_tbl.EXISTS(l_id) THEN
16007: l_node := g_dom_elements_tbl(l_id);
16008: g_dom_elements_to_move(l_id) := l_node;
16009: l_parent_node:=xmldom.getParentNode(l_node);
16010: l_node:=xmldom.removeChild(l_parent_node, l_node);
16011: END IF;
16012: -- ELSE the node has already been moved
16013: l_id := l_node_ids_table.NEXT(l_id);
16006: IF g_dom_elements_tbl.EXISTS(l_id) THEN
16007: l_node := g_dom_elements_tbl(l_id);
16008: g_dom_elements_to_move(l_id) := l_node;
16009: l_parent_node:=xmldom.getParentNode(l_node);
16010: l_node:=xmldom.removeChild(l_parent_node, l_node);
16011: END IF;
16012: -- ELSE the node has already been moved
16013: l_id := l_node_ids_table.NEXT(l_id);
16014: END LOOP;
16020: --
16021: -- delete UI XML elements from UI page
16022: --
16023: PROCEDURE delete_UIXML_Elements(p_page_id IN NUMBER,
16024: p_xml_doc xmldom.DOMDocument) IS
16025:
16026: l_deleted_nodes_tbl varchar2_tbl_type;
16027: l_node xmldom.DOMNode;
16028: l_out_node xmldom.DOMNode;
16023: PROCEDURE delete_UIXML_Elements(p_page_id IN NUMBER,
16024: p_xml_doc xmldom.DOMDocument) IS
16025:
16026: l_deleted_nodes_tbl varchar2_tbl_type;
16027: l_node xmldom.DOMNode;
16028: l_out_node xmldom.DOMNode;
16029: l_parent_node xmldom.DOMNode;
16030: l_nodeslist xmldom.DOMNodeList;
16031: l_length NUMBER;
16024: p_xml_doc xmldom.DOMDocument) IS
16025:
16026: l_deleted_nodes_tbl varchar2_tbl_type;
16027: l_node xmldom.DOMNode;
16028: l_out_node xmldom.DOMNode;
16029: l_parent_node xmldom.DOMNode;
16030: l_nodeslist xmldom.DOMNodeList;
16031: l_length NUMBER;
16032: l_element_id VARCHAR2(255);
16025:
16026: l_deleted_nodes_tbl varchar2_tbl_type;
16027: l_node xmldom.DOMNode;
16028: l_out_node xmldom.DOMNode;
16029: l_parent_node xmldom.DOMNode;
16030: l_nodeslist xmldom.DOMNodeList;
16031: l_length NUMBER;
16032: l_element_id VARCHAR2(255);
16033: l_deleted_nodes_exist BOOLEAN := FALSE;
16026: l_deleted_nodes_tbl varchar2_tbl_type;
16027: l_node xmldom.DOMNode;
16028: l_out_node xmldom.DOMNode;
16029: l_parent_node xmldom.DOMNode;
16030: l_nodeslist xmldom.DOMNodeList;
16031: l_length NUMBER;
16032: l_element_id VARCHAR2(255);
16033: l_deleted_nodes_exist BOOLEAN := FALSE;
16034: l_deassociated_nodes_exist BOOLEAN := FALSE;
16052: --
16053: -- here we don't need to know about hierachy of nodes
16054: -- so we just need to get list of all nodes of XML subtree
16055: --
16056: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
16057: l_length := xmldom.getLength(l_nodeslist);
16058:
16059: --
16060: -- delete XML elements
16053: -- here we don't need to know about hierachy of nodes
16054: -- so we just need to get list of all nodes of XML subtree
16055: --
16056: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
16057: l_length := xmldom.getLength(l_nodeslist);
16058:
16059: --
16060: -- delete XML elements
16061: --
16060: -- delete XML elements
16061: --
16062: FOR i IN 0..l_length-1
16063: LOOP
16064: l_node := xmldom.item(l_nodeslist, i);
16065: l_element_id := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
16066: BEGIN
16067: IF l_deleted_nodes_tbl.EXISTS(l_element_id) THEN
16068:
16066: BEGIN
16067: IF l_deleted_nodes_tbl.EXISTS(l_element_id) THEN
16068:
16069: IF l_deleted_nodes_tbl(l_element_id)=G_MARK_TO_DELETE THEN
16070: l_parent_node:=xmldom.getParentNode(l_node);
16071: l_out_node:=xmldom.removeChild(l_parent_node,l_node);
16072: l_deleted_nodes_exist := TRUE;
16073: ELSE -- deassociate this node
16074: set_Attribute(l_node, G_USER_ATTRIBUTE1_NAME, 'model_path=*');
16067: IF l_deleted_nodes_tbl.EXISTS(l_element_id) THEN
16068:
16069: IF l_deleted_nodes_tbl(l_element_id)=G_MARK_TO_DELETE THEN
16070: l_parent_node:=xmldom.getParentNode(l_node);
16071: l_out_node:=xmldom.removeChild(l_parent_node,l_node);
16072: l_deleted_nodes_exist := TRUE;
16073: ELSE -- deassociate this node
16074: set_Attribute(l_node, G_USER_ATTRIBUTE1_NAME, 'model_path=*');
16075: set_Attribute(l_node, G_USER_ATTRIBUTE2_NAME, '0');
16112: --
16113: PROCEDURE delete_UIXML_Page(p_page_id IN NUMBER,
16114: p_jrad_doc IN VARCHAR2) IS
16115:
16116: l_subtree_doc xmldom.DOMDocument;
16117:
16118: BEGIN
16119: BEGIN
16120: IF g_elements_to_move.EXISTS(p_page_Id) THEN
16119: BEGIN
16120: IF g_elements_to_move.EXISTS(p_page_Id) THEN
16121: l_subtree_doc := parse_JRAD_Document(p_jrad_doc);
16122:
16123: IF xmldom.isNull(l_subtree_doc) THEN
16124: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
16125: p_token_name => 'UI_TEMPLATE',
16126: p_token_value => p_jrad_doc,
16127: p_fatal_error => TRUE);
16131: init_Page_View_Counters(l_subtree_doc);
16132: backup_nodes_to_move(p_page_Id);
16133: ELSE
16134: l_subtree_doc := parse_JRAD_Document(p_jrad_doc);
16135: IF xmldom.isNull(l_subtree_doc) THEN
16136: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
16137: p_token_name => 'UI_TEMPLATE',
16138: p_token_value => p_jrad_doc,
16139: p_fatal_error => TRUE);
16178: -- refresh CXs on UI Page
16179: --
16180: PROCEDURE refresh_CXs_On_UI_Page
16181: (p_ui_page_id NUMBER,
16182: p_subtree_doc xmldom.DOMDocument) IS
16183:
16184: l_node xmldom.DOMNode;
16185: l_parent_node xmldom.DOMNode;
16186: l_out_node xmldom.DOMNode;
16180: PROCEDURE refresh_CXs_On_UI_Page
16181: (p_ui_page_id NUMBER,
16182: p_subtree_doc xmldom.DOMDocument) IS
16183:
16184: l_node xmldom.DOMNode;
16185: l_parent_node xmldom.DOMNode;
16186: l_out_node xmldom.DOMNode;
16187: l_nodeslist xmldom.DOMNodeList;
16188: l_length NUMBER;
16181: (p_ui_page_id NUMBER,
16182: p_subtree_doc xmldom.DOMDocument) IS
16183:
16184: l_node xmldom.DOMNode;
16185: l_parent_node xmldom.DOMNode;
16186: l_out_node xmldom.DOMNode;
16187: l_nodeslist xmldom.DOMNodeList;
16188: l_length NUMBER;
16189: l_element_id NUMBER;
16182: p_subtree_doc xmldom.DOMDocument) IS
16183:
16184: l_node xmldom.DOMNode;
16185: l_parent_node xmldom.DOMNode;
16186: l_out_node xmldom.DOMNode;
16187: l_nodeslist xmldom.DOMNodeList;
16188: l_length NUMBER;
16189: l_element_id NUMBER;
16190: l_attribute_value VARCHAR2(32000);
16183:
16184: l_node xmldom.DOMNode;
16185: l_parent_node xmldom.DOMNode;
16186: l_out_node xmldom.DOMNode;
16187: l_nodeslist xmldom.DOMNodeList;
16188: l_length NUMBER;
16189: l_element_id NUMBER;
16190: l_attribute_value VARCHAR2(32000);
16191: l_cx_elements_tbl varchar_tbl_type;
16222: --
16223: -- here we don't need to know about hierachy of nodes
16224: -- so we just need to get list of all nodes of XML subtree
16225: --
16226: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
16227: l_length := xmldom.getLength(l_nodeslist);
16228:
16229: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
16230:
16223: -- here we don't need to know about hierachy of nodes
16224: -- so we just need to get list of all nodes of XML subtree
16225: --
16226: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
16227: l_length := xmldom.getLength(l_nodeslist);
16228:
16229: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
16230:
16231: --
16225: --
16226: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
16227: l_length := xmldom.getLength(l_nodeslist);
16228:
16229: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
16230:
16231: --
16232: -- scan subtree and substitute macros "%" to real values
16233: --
16234: FOR i IN 0 .. l_length - 1
16235: LOOP
16236: l_delete_node := FALSE;
16237: l_deassociate_cx := FALSE;
16238: l_node := xmldom.item(l_nodeslist, i);
16239: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE );
16240: l_element_id := NULL;
16241: BEGIN
16242: l_element_id := TO_NUMBER(l_attribute_value);
16244:
16245: IF l_cx_elements_tbl(l_element_id) IN (G_CX_VALID) AND
16246: l_suppress_refresh_tbl(l_element_id)=G_NO_FLAG AND
16247: l_suppress_el_flag_tbl(l_element_id)=G_NO_FLAG THEN
16248: set_Attribute(xmldom.makeElement(l_node), 'rendered', 'true');
16249: ELSIF l_cx_elements_tbl(l_element_id) IN (G_CX_INVALID) AND
16250: l_suppress_refresh_tbl(l_element_id)=G_NO_FLAG AND
16251: l_suppress_el_flag_tbl(l_element_id)=G_NO_FLAG THEN
16252: set_Attribute(xmldom.makeElement(l_node), 'rendered', 'false');
16248: set_Attribute(xmldom.makeElement(l_node), 'rendered', 'true');
16249: ELSIF l_cx_elements_tbl(l_element_id) IN (G_CX_INVALID) AND
16250: l_suppress_refresh_tbl(l_element_id)=G_NO_FLAG AND
16251: l_suppress_el_flag_tbl(l_element_id)=G_NO_FLAG THEN
16252: set_Attribute(xmldom.makeElement(l_node), 'rendered', 'false');
16253: ELSIF l_cx_elements_tbl(l_element_id) IN (G_CX_MUST_BE_DELETED) THEN
16254: l_delete_node := TRUE;
16255: IF l_suppress_refresh_tbl(l_element_id)=G_YES_FLAG OR
16256: l_suppress_el_flag_tbl(l_element_id)=G_YES_FLAG THEN
16273: WHERE ui_def_id=g_UI_Context.ui_def_id AND
16274: page_id=p_ui_page_id AND
16275: element_id=l_attribute_value;
16276: ELSE
16277: l_parent_node:=xmldom.getParentNode(l_node);
16278: l_out_node:=xmldom.removeChild(l_parent_node,l_node);
16279: UPDATE CZ_UI_PAGE_ELEMENTS
16280: SET deleted_flag=G_YES_FLAG
16281: WHERE ui_def_id=g_UI_Context.ui_def_id AND
16274: page_id=p_ui_page_id AND
16275: element_id=l_attribute_value;
16276: ELSE
16277: l_parent_node:=xmldom.getParentNode(l_node);
16278: l_out_node:=xmldom.removeChild(l_parent_node,l_node);
16279: UPDATE CZ_UI_PAGE_ELEMENTS
16280: SET deleted_flag=G_YES_FLAG
16281: WHERE ui_def_id=g_UI_Context.ui_def_id AND
16282: page_id=p_ui_page_id AND
16295:
16296: --
16297: -- populate cache of xml nodes for a given XML page
16298: --
16299: PROCEDURE cache_UI_Page(p_xml_doc xmldom.DOMDocument) IS
16300: l_node xmldom.DOMNode;
16301: l_nodeslist xmldom.DOMNodeList;
16302: l_empty_xml_node xmldom.DOMNode;
16303: l_length NUMBER;
16296: --
16297: -- populate cache of xml nodes for a given XML page
16298: --
16299: PROCEDURE cache_UI_Page(p_xml_doc xmldom.DOMDocument) IS
16300: l_node xmldom.DOMNode;
16301: l_nodeslist xmldom.DOMNodeList;
16302: l_empty_xml_node xmldom.DOMNode;
16303: l_length NUMBER;
16304: l_attribute_value VARCHAR2(32000);
16297: -- populate cache of xml nodes for a given XML page
16298: --
16299: PROCEDURE cache_UI_Page(p_xml_doc xmldom.DOMDocument) IS
16300: l_node xmldom.DOMNode;
16301: l_nodeslist xmldom.DOMNodeList;
16302: l_empty_xml_node xmldom.DOMNode;
16303: l_length NUMBER;
16304: l_attribute_value VARCHAR2(32000);
16305:
16298: --
16299: PROCEDURE cache_UI_Page(p_xml_doc xmldom.DOMDocument) IS
16300: l_node xmldom.DOMNode;
16301: l_nodeslist xmldom.DOMNodeList;
16302: l_empty_xml_node xmldom.DOMNode;
16303: l_length NUMBER;
16304: l_attribute_value VARCHAR2(32000);
16305:
16306: BEGIN
16306: BEGIN
16307:
16308: g_page_elements_tbl.DELETE;
16309:
16310: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
16311: l_length := xmldom.getLength(l_nodeslist);
16312:
16313: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_xml_doc));
16314:
16307:
16308: g_page_elements_tbl.DELETE;
16309:
16310: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
16311: l_length := xmldom.getLength(l_nodeslist);
16312:
16313: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_xml_doc));
16314:
16315: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
16309:
16310: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
16311: l_length := xmldom.getLength(l_nodeslist);
16312:
16313: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_xml_doc));
16314:
16315: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
16316:
16317: IF l_attribute_value IS NOT NULL THEN
16319: END IF;
16320:
16321: FOR i IN 0 .. l_length - 1
16322: LOOP
16323: l_node := xmldom.item(l_nodeslist, i);
16324:
16325: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
16326:
16327: IF l_attribute_value IS NOT NULL THEN
16336: -- refresh UI XML page
16337: --
16338: PROCEDURE refresh_UIXML_Page(p_page_id IN NUMBER) IS
16339:
16340: l_subtree_doc xmldom.DOMDocument;
16341: l_xml_root_node xmldom.DOMNode;
16342: l_xml_uicontent_node xmldom.DOMNode;
16343: l_xml_node_to_refresh xmldom.DOMNode;
16344: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
16337: --
16338: PROCEDURE refresh_UIXML_Page(p_page_id IN NUMBER) IS
16339:
16340: l_subtree_doc xmldom.DOMDocument;
16341: l_xml_root_node xmldom.DOMNode;
16342: l_xml_uicontent_node xmldom.DOMNode;
16343: l_xml_node_to_refresh xmldom.DOMNode;
16344: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
16345: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16338: PROCEDURE refresh_UIXML_Page(p_page_id IN NUMBER) IS
16339:
16340: l_subtree_doc xmldom.DOMDocument;
16341: l_xml_root_node xmldom.DOMNode;
16342: l_xml_uicontent_node xmldom.DOMNode;
16343: l_xml_node_to_refresh xmldom.DOMNode;
16344: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
16345: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16346: l_col_number NUMBER := 0;
16339:
16340: l_subtree_doc xmldom.DOMDocument;
16341: l_xml_root_node xmldom.DOMNode;
16342: l_xml_uicontent_node xmldom.DOMNode;
16343: l_xml_node_to_refresh xmldom.DOMNode;
16344: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
16345: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16346: l_col_number NUMBER := 0;
16347:
16345: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16346: l_col_number NUMBER := 0;
16347:
16348: PROCEDURE create_Next_XML_Level(p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
16349: p_parent_xml_node xmldom.DOMNode) IS
16350:
16351: l_new_xml_node xmldom.DOMNode;
16352: l_new_opt_xml_node xmldom.DOMNode;
16353: l_xml_node_to_replace xmldom.DOMNode;
16347:
16348: PROCEDURE create_Next_XML_Level(p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
16349: p_parent_xml_node xmldom.DOMNode) IS
16350:
16351: l_new_xml_node xmldom.DOMNode;
16352: l_new_opt_xml_node xmldom.DOMNode;
16353: l_xml_node_to_replace xmldom.DOMNode;
16354: l_opt_model_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
16355: l_element_type NUMBER;
16348: PROCEDURE create_Next_XML_Level(p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
16349: p_parent_xml_node xmldom.DOMNode) IS
16350:
16351: l_new_xml_node xmldom.DOMNode;
16352: l_new_opt_xml_node xmldom.DOMNode;
16353: l_xml_node_to_replace xmldom.DOMNode;
16354: l_opt_model_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
16355: l_element_type NUMBER;
16356:
16349: p_parent_xml_node xmldom.DOMNode) IS
16350:
16351: l_new_xml_node xmldom.DOMNode;
16352: l_new_opt_xml_node xmldom.DOMNode;
16353: l_xml_node_to_replace xmldom.DOMNode;
16354: l_opt_model_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
16355: l_element_type NUMBER;
16356:
16357: BEGIN
16394: IF i.element_type=G_UI_CX_BUTTON_NODE_TYPE THEN
16395: l_opt_model_node := get_Model_Node_By_Persist_Id(i.persistent_node_id, g_UI_Context.devl_project_id);
16396: IF l_opt_model_node.ps_node_type IN(G_OPTION_TYPE) THEN
16397: l_new_xml_node := create_UIXML_Element(p_ui_node => i,
16398: p_parent_xml_node => xmldom.getParentNode(p_parent_xml_node));
16399:
16400: END IF;
16401: END IF;
16402: END IF; -- end of IF p_ui_node.element_type IN(G_UI_PAGE_NODE_TYPE,G_UI_REGION_NODE_TYPE) ...
16406: l_xml_node_to_replace := find_XML_Node_By_Attribute(p_subtree_doc => l_subtree_doc ,
16407: p_attribute_name => G_ID_ATTRIBUTE,
16408: p_attribute_value => i.element_id);
16409:
16410: IF NOT(xmldom.isNull(l_xml_node_to_replace)) THEN
16411:
16412: --
16413: -- create new JRAD element
16414: --
16436:
16437: END create_Next_XML_Level;
16438:
16439: PROCEDURE refresh_UI_Node(p_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
16440: p_xml_parent_node xmldom.DOMNode) IS
16441:
16442: l_xml_node_to_replace xmldom.DOMNode;
16443: l_new_xml_node xmldom.DOMNode;
16444:
16438:
16439: PROCEDURE refresh_UI_Node(p_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
16440: p_xml_parent_node xmldom.DOMNode) IS
16441:
16442: l_xml_node_to_replace xmldom.DOMNode;
16443: l_new_xml_node xmldom.DOMNode;
16444:
16445: BEGIN
16446:
16439: PROCEDURE refresh_UI_Node(p_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
16440: p_xml_parent_node xmldom.DOMNode) IS
16441:
16442: l_xml_node_to_replace xmldom.DOMNode;
16443: l_new_xml_node xmldom.DOMNode;
16444:
16445: BEGIN
16446:
16447: FOR i IN(SELECT * FROM CZ_UI_PAGE_ELEMENTS
16457: p_attribute_name => G_ID_ATTRIBUTE,
16458: p_attribute_value => i.element_id);
16459:
16460:
16461: IF NOT(xmldom.isNull(l_xml_node_to_replace)) THEN
16462: --
16463: -- create new JRAD element
16464: --
16465: l_xml_uicontent_node := replace_UIXML_Element(p_ui_node => i,
16533: -- cache xml nodes of this UI page
16534: --
16535: cache_UI_Page(l_subtree_doc);
16536:
16537: IF xmldom.isNull(l_subtree_doc) THEN
16538: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
16539: p_token_name => 'UI_TEMPLATE',
16540: p_token_value => l_jrad_doc,
16541: p_fatal_error => TRUE);
16552:
16553: --
16554: -- get subdocument's root node
16555: --
16556: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
16557:
16558: IF l_col_number = 0 THEN
16559: l_xml_uicontent_node := getUIContents(l_xml_root_node);
16560: ELSE
16591: --
16592: PROCEDURE create_UIXML_Page(p_page_id IN NUMBER,
16593: p_jrad_doc IN VARCHAR2) IS
16594:
16595: l_subtree_doc xmldom.DOMDocument;
16596: l_xml_root_node xmldom.DOMNode;
16597: l_xml_uicontent_node xmldom.DOMNode;
16598: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
16599: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16592: PROCEDURE create_UIXML_Page(p_page_id IN NUMBER,
16593: p_jrad_doc IN VARCHAR2) IS
16594:
16595: l_subtree_doc xmldom.DOMDocument;
16596: l_xml_root_node xmldom.DOMNode;
16597: l_xml_uicontent_node xmldom.DOMNode;
16598: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
16599: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16600: l_sub_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
16593: p_jrad_doc IN VARCHAR2) IS
16594:
16595: l_subtree_doc xmldom.DOMDocument;
16596: l_xml_root_node xmldom.DOMNode;
16597: l_xml_uicontent_node xmldom.DOMNode;
16598: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
16599: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16600: l_sub_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
16601: l_curr_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
16598: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
16599: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16600: l_sub_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
16601: l_curr_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
16602: l_child_nodes_tbl xmldom.DOMNodeList;
16603: l_xml_node xmldom.DOMNode;
16604: l_length NUMBER;
16605: l_col_number NUMBER;
16606:
16599: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
16600: l_sub_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
16601: l_curr_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
16602: l_child_nodes_tbl xmldom.DOMNodeList;
16603: l_xml_node xmldom.DOMNode;
16604: l_length NUMBER;
16605: l_col_number NUMBER;
16606:
16607: PROCEDURE create_Next_XML_Level(p_element_id NUMBER,
16604: l_length NUMBER;
16605: l_col_number NUMBER;
16606:
16607: PROCEDURE create_Next_XML_Level(p_element_id NUMBER,
16608: p_parent_xml_node xmldom.DOMNode) IS
16609: l_new_xml_node xmldom.DOMNode;
16610: BEGIN
16611:
16612: --
16605: l_col_number NUMBER;
16606:
16607: PROCEDURE create_Next_XML_Level(p_element_id NUMBER,
16608: p_parent_xml_node xmldom.DOMNode) IS
16609: l_new_xml_node xmldom.DOMNode;
16610: BEGIN
16611:
16612: --
16613: -- get child UI nodes
16719: -- parse document(template) which is going to be nested element
16720: --
16721: l_subtree_doc := parse_JRAD_Document(l_jrad_doc);
16722:
16723: IF xmldom.isNull(l_subtree_doc) THEN
16724: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
16725: p_token_name => 'UI_TEMPLATE',
16726: p_token_value => l_jrad_doc,
16727: p_fatal_error => TRUE);
16730:
16731: --
16732: -- get subdocument's root node
16733: --
16734: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
16735:
16736: --
16737: -- remove common attributes of container and subtree
16738: --
16749: ELSE
16750: l_xml_uicontent_node := get_Col_UIContents(l_xml_root_node, 1);
16751: END IF;
16752:
16753: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
16754:
16755: --
16756: -- we need to get length of array of child nodes
16757: -- to go through the array in loop
16755: --
16756: -- we need to get length of array of child nodes
16757: -- to go through the array in loop
16758: --
16759: l_length := xmldom.getLength(l_child_nodes_tbl);
16760: FOR k IN 0..l_length-1
16761: LOOP
16762: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
16763:
16758: --
16759: l_length := xmldom.getLength(l_child_nodes_tbl);
16760: FOR k IN 0..l_length-1
16761: LOOP
16762: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
16763:
16764: l_curr_element_id := get_Attribute_Value(l_xml_node,
16765: G_ID_ATTRIBUTE);
16766: IF l_curr_element_id IS NOT NULL AND k > 0 THEN
16925: IS
16926: l_ui_def_map number_tbl_type;
16927: l_ui_def_id NUMBER;
16928: l_pagebase_expl_id NUMBER;
16929: l_xmldoc xmldom.DOMDocument;
16930: l_dom_node xmldom.DOMNode;
16931: l_current_relative_path VARCHAR2(32000);
16932: l_new_relative_path VARCHAR2(32000);
16933: l_flag INTEGER;
16926: l_ui_def_map number_tbl_type;
16927: l_ui_def_id NUMBER;
16928: l_pagebase_expl_id NUMBER;
16929: l_xmldoc xmldom.DOMDocument;
16930: l_dom_node xmldom.DOMNode;
16931: l_current_relative_path VARCHAR2(32000);
16932: l_new_relative_path VARCHAR2(32000);
16933: l_flag INTEGER;
16934: l_resave_doc_flag INTEGER;
17734:
17735: --
17736: -- delete records which correspond with user attributes
17737: --
17738: PROCEDURE delete_User_Attr_For_Node(p_xml_node xmldom.DOMNode,
17739: p_ui_def_id NUMBER,
17740: p_template_id NUMBER DEFAULT NULL,
17741: p_template_ui_def_id NUMBER DEFAULT NULL) IS
17742:
17816:
17817: END IF;
17818: END delete_User_Attr_For_Node;
17819:
17820: PROCEDURE copy_User_Attr_For_Node(p_xml_node xmldom.DOMNode,
17821: p_source_ui_def_id NUMBER,
17822: p_target_ui_def_id NUMBER,
17823: p_source_ui_page_id NUMBER,
17824: p_target_ui_page_id NUMBER,
17939:
17940: --
17941: -- copy records which correspond to user attributes
17942: --
17943: PROCEDURE copy_User_Attr_For_Node(p_xml_node xmldom.DOMNode,
17944: p_source_ui_def_id NUMBER,
17945: p_target_ui_def_id NUMBER,
17946: p_source_template_id NUMBER DEFAULT NULL,
17947: p_target_template_id NUMBER DEFAULT NULL) IS
18007:
18008: --
18009: -- delete records which corresponds with user attributes
18010: --
18011: PROCEDURE delete_User_Attributes(p_xml_node xmldom.DOMNode,
18012: p_ui_def_id NUMBER,
18013: p_template_id NUMBER DEFAULT NULL,
18014: p_template_ui_def_id NUMBER DEFAULT NULL) IS
18015:
18013: p_template_id NUMBER DEFAULT NULL,
18014: p_template_ui_def_id NUMBER DEFAULT NULL) IS
18015:
18016:
18017: l_child_nodes_tbl xmldom.DOMNodeList;
18018: l_child_xml_node xmldom.DOMNode;
18019: l_length NUMBER;
18020:
18021: BEGIN
18014: p_template_ui_def_id NUMBER DEFAULT NULL) IS
18015:
18016:
18017: l_child_nodes_tbl xmldom.DOMNodeList;
18018: l_child_xml_node xmldom.DOMNode;
18019: l_length NUMBER;
18020:
18021: BEGIN
18022:
18019: l_length NUMBER;
18020:
18021: BEGIN
18022:
18023: IF xmldom.IsNull(p_xml_node) THEN
18024: RETURN;
18025: END IF;
18026:
18027: delete_User_Attr_For_Node(p_xml_node,p_ui_def_id,
18026:
18027: delete_User_Attr_For_Node(p_xml_node,p_ui_def_id,
18028: p_template_id, p_template_ui_def_id);
18029:
18030: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
18031: l_length := xmldom.getLength(l_child_nodes_tbl);
18032:
18033: FOR k IN 0 .. l_length - 1
18034: LOOP
18027: delete_User_Attr_For_Node(p_xml_node,p_ui_def_id,
18028: p_template_id, p_template_ui_def_id);
18029:
18030: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
18031: l_length := xmldom.getLength(l_child_nodes_tbl);
18032:
18033: FOR k IN 0 .. l_length - 1
18034: LOOP
18035: --
18034: LOOP
18035: --
18036: -- get next child DOM node
18037: --
18038: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
18039:
18040: delete_User_Attr_For_Node(l_child_xml_node,p_ui_def_id,
18041: p_template_id, p_template_ui_def_id);
18042:
18049:
18050: --
18051: -- copy records which corresponds with user attributes
18052: --
18053: PROCEDURE copy_User_Attributes(p_xml_node xmldom.DOMNode,
18054: p_source_ui_def_id NUMBER,
18055: p_target_ui_def_id NUMBER,
18056: p_source_ui_page_id NUMBER,
18057: p_target_ui_page_id NUMBER,
18057: p_target_ui_page_id NUMBER,
18058: p_target_model_path VARCHAR2,
18059: p_new_element_id_arr_tbl IN OUT NOCOPY number_tbl_type) IS
18060:
18061: l_child_nodes_tbl xmldom.DOMNodeList;
18062: l_child_xml_node xmldom.DOMNode;
18063: l_length NUMBER;
18064:
18065: BEGIN
18058: p_target_model_path VARCHAR2,
18059: p_new_element_id_arr_tbl IN OUT NOCOPY number_tbl_type) IS
18060:
18061: l_child_nodes_tbl xmldom.DOMNodeList;
18062: l_child_xml_node xmldom.DOMNode;
18063: l_length NUMBER;
18064:
18065: BEGIN
18066:
18071: p_target_ui_page_id => p_target_ui_page_id,
18072: p_target_model_path => p_target_model_path,
18073: p_new_element_id_arr_tbl => p_new_element_id_arr_tbl);
18074:
18075: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
18076: l_length := xmldom.getLength(l_child_nodes_tbl);
18077:
18078: FOR k IN 0 .. l_length - 1
18079: LOOP
18072: p_target_model_path => p_target_model_path,
18073: p_new_element_id_arr_tbl => p_new_element_id_arr_tbl);
18074:
18075: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
18076: l_length := xmldom.getLength(l_child_nodes_tbl);
18077:
18078: FOR k IN 0 .. l_length - 1
18079: LOOP
18080: --
18079: LOOP
18080: --
18081: -- get next child DOM node
18082: --
18083: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
18084:
18085: copy_User_Attr_For_Node(p_xml_node => l_child_xml_node,
18086: p_source_ui_def_id => p_source_ui_def_id,
18087: p_target_ui_def_id => p_target_ui_def_id,
18217: END LOOP;
18218:
18219: END validate_Copied_PIR;
18220:
18221: PROCEDURE copy_Tree_Level(p_xml_node xmldom.DOMNode,
18222: p_source_ui_def_id NUMBER,
18223: p_target_ui_def_id NUMBER,
18224: p_source_ui_page_id NUMBER,
18225: p_target_ui_page_id NUMBER,
18234: p_target_jrad_doc IN VARCHAR2,
18235: p_amn_parent_element_id IN VARCHAR2,
18236: p_is_instance_list_child IN BOOLEAN DEFAULT FALSE) IS
18237:
18238: l_child_nodes_tbl xmldom.DOMNodeList;
18239: l_child_xml_node xmldom.DOMNode;
18240: l_parent_xml_node xmldom.DOMNode;
18241: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
18242:
18235: p_amn_parent_element_id IN VARCHAR2,
18236: p_is_instance_list_child IN BOOLEAN DEFAULT FALSE) IS
18237:
18238: l_child_nodes_tbl xmldom.DOMNodeList;
18239: l_child_xml_node xmldom.DOMNode;
18240: l_parent_xml_node xmldom.DOMNode;
18241: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
18242:
18243: l_user_attribute_value VARCHAR2(4000);
18236: p_is_instance_list_child IN BOOLEAN DEFAULT FALSE) IS
18237:
18238: l_child_nodes_tbl xmldom.DOMNodeList;
18239: l_child_xml_node xmldom.DOMNode;
18240: l_parent_xml_node xmldom.DOMNode;
18241: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
18242:
18243: l_user_attribute_value VARCHAR2(4000);
18244: l_user_attribute3_value VARCHAR2(4000);
18290: 'ancestorNode');
18291: IF l_ancestor_node IS NOT NULL THEN
18292:
18293: l_hgrid_element_id := find_Element_Id_Of_XMLTag(p_xml_node, 'oa:tree');
18294: IF NOT(xmldom.IsNull(p_xml_node)) THEN
18295: l_ancestor_node := p_target_jrad_doc||'.'||l_hgrid_element_id;
18296:
18297: set_Attribute(p_xml_node,
18298: 'ancestorNode',
18299: l_ancestor_node);
18300: END IF;
18301: END IF;
18302:
18303: IF xmldom.getNodeName(p_xml_node)='ui:case' THEN
18304:
18305: handle_UI_CASE_Id(p_xml_node);
18306:
18307: l_switcher_element_id := find_Element_Id_Of_XMLTag(p_xml_node, 'oa:switcher');
18330: END IF;
18331:
18332: END IF;
18333:
18334: IF xmldom.getNodeName(p_xml_node)='oa:stackLayout' THEN
18335:
18336: l_parent_xml_node := xmldom.getParentNode(p_xml_node);
18337:
18338: IF NOT(xmldom.IsNull(l_parent_xml_node)) THEN
18332: END IF;
18333:
18334: IF xmldom.getNodeName(p_xml_node)='oa:stackLayout' THEN
18335:
18336: l_parent_xml_node := xmldom.getParentNode(p_xml_node);
18337:
18338: IF NOT(xmldom.IsNull(l_parent_xml_node)) THEN
18339:
18340: IF xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
18334: IF xmldom.getNodeName(p_xml_node)='oa:stackLayout' THEN
18335:
18336: l_parent_xml_node := xmldom.getParentNode(p_xml_node);
18337:
18338: IF NOT(xmldom.IsNull(l_parent_xml_node)) THEN
18339:
18340: IF xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
18341:
18342: l_layout_new_node_id := get_Attribute_Value(l_parent_xml_node,'name');
18336: l_parent_xml_node := xmldom.getParentNode(p_xml_node);
18337:
18338: IF NOT(xmldom.IsNull(l_parent_xml_node)) THEN
18339:
18340: IF xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
18341:
18342: l_layout_new_node_id := get_Attribute_Value(l_parent_xml_node,'name');
18343: set_Attribute(p_xml_node,
18344: G_ID_ATTRIBUTE,
18343: set_Attribute(p_xml_node,
18344: G_ID_ATTRIBUTE,
18345: l_layout_new_node_id);
18346:
18347: END IF; -- end of IF xmldom.getNodeName(l_parent_xml_node)='ui:case'
18348:
18349: END IF; -- end of IF NOT(xmldom.IsNull(l_parent_xml_node))
18350:
18351: END IF; -- end of IF xmldom.getNodeName(p_xml_node)='oa:stackLayout'
18345: l_layout_new_node_id);
18346:
18347: END IF; -- end of IF xmldom.getNodeName(l_parent_xml_node)='ui:case'
18348:
18349: END IF; -- end of IF NOT(xmldom.IsNull(l_parent_xml_node))
18350:
18351: END IF; -- end of IF xmldom.getNodeName(p_xml_node)='oa:stackLayout'
18352:
18353: IF l_layout_new_node_id IS NULL THEN
18347: END IF; -- end of IF xmldom.getNodeName(l_parent_xml_node)='ui:case'
18348:
18349: END IF; -- end of IF NOT(xmldom.IsNull(l_parent_xml_node))
18350:
18351: END IF; -- end of IF xmldom.getNodeName(p_xml_node)='oa:stackLayout'
18352:
18353: IF l_layout_new_node_id IS NULL THEN
18354: l_current_element_id := get_Attribute_Value(p_xml_node,
18355: G_ID_ATTRIBUTE);
18449: IF x_new_element_id IS NULL THEN
18450: x_new_element_id := l_new_element_id;
18451: END IF;
18452:
18453: IF xmldom.getNodeName(p_xml_node)='oa:switcher' THEN
18454:
18455: l_user_attribute3_value := get_Attribute_Value(p_xml_node, G_USER_ATTRIBUTE3_NAME);
18456:
18457: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
18630: IF l_current_element_id IS NULL THEN
18631: l_current_element_id := p_parent_element_id;
18632: END IF;
18633:
18634: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
18635: l_length := xmldom.getLength(l_child_nodes_tbl);
18636:
18637: FOR k IN 0 .. l_length - 1
18638: LOOP
18631: l_current_element_id := p_parent_element_id;
18632: END IF;
18633:
18634: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
18635: l_length := xmldom.getLength(l_child_nodes_tbl);
18636:
18637: FOR k IN 0 .. l_length - 1
18638: LOOP
18639: --
18638: LOOP
18639: --
18640: -- get next child DOM node
18641: --
18642: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
18643:
18644: copy_Tree_Level(p_xml_node => l_child_xml_node,
18645: p_source_ui_def_id => p_source_ui_def_id,
18646: p_target_ui_def_id => p_target_ui_def_id,
18664:
18665: --
18666: -- copy records which corresponds with user attributes
18667: --
18668: PROCEDURE copy_User_Attributes(p_xml_node xmldom.DOMNode,
18669: p_source_ui_def_id NUMBER,
18670: p_target_ui_def_id NUMBER,
18671: p_source_template_id NUMBER DEFAULT NULL,
18672: p_target_template_id NUMBER DEFAULT NULL) IS
18670: p_target_ui_def_id NUMBER,
18671: p_source_template_id NUMBER DEFAULT NULL,
18672: p_target_template_id NUMBER DEFAULT NULL) IS
18673:
18674: l_child_nodes_tbl xmldom.DOMNodeList;
18675: l_child_xml_node xmldom.DOMNode;
18676: l_length NUMBER;
18677:
18678: BEGIN
18671: p_source_template_id NUMBER DEFAULT NULL,
18672: p_target_template_id NUMBER DEFAULT NULL) IS
18673:
18674: l_child_nodes_tbl xmldom.DOMNodeList;
18675: l_child_xml_node xmldom.DOMNode;
18676: l_length NUMBER;
18677:
18678: BEGIN
18679: copy_User_Attr_For_Node(p_xml_node => p_xml_node,
18681: p_target_ui_def_id => p_target_ui_def_id,
18682: p_source_template_id=> p_source_template_id,
18683: p_target_template_id=> p_target_template_id);
18684:
18685: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
18686: l_length := xmldom.getLength(l_child_nodes_tbl);
18687:
18688: FOR k IN 0 .. l_length - 1
18689: LOOP
18682: p_source_template_id=> p_source_template_id,
18683: p_target_template_id=> p_target_template_id);
18684:
18685: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
18686: l_length := xmldom.getLength(l_child_nodes_tbl);
18687:
18688: FOR k IN 0 .. l_length - 1
18689: LOOP
18690: --
18689: LOOP
18690: --
18691: -- get next child DOM node
18692: --
18693: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
18694:
18695: copy_User_Attr_For_Node(p_xml_node => l_child_xml_node,
18696: p_source_ui_def_id => p_source_ui_def_id,
18697: p_target_ui_def_id => p_target_ui_def_id,
18724: x_return_status OUT NOCOPY VARCHAR2,
18725: x_msg_count OUT NOCOPY NUMBER,
18726: x_msg_data OUT NOCOPY VARCHAR2) IS
18727:
18728: l_xmldoc xmldom.DOMDocument;
18729: l_xml_node xmldom.DOMNode;
18730: l_element_id_tbl varchar_tbl_type;
18731: l_out_node xmldom.DOMNode;
18732: l_parent_node xmldom.DOMNode;
18725: x_msg_count OUT NOCOPY NUMBER,
18726: x_msg_data OUT NOCOPY VARCHAR2) IS
18727:
18728: l_xmldoc xmldom.DOMDocument;
18729: l_xml_node xmldom.DOMNode;
18730: l_element_id_tbl varchar_tbl_type;
18731: l_out_node xmldom.DOMNode;
18732: l_parent_node xmldom.DOMNode;
18733: l_page_ref_id CZ_UI_PAGE_REFS.page_ref_id%TYPE;
18727:
18728: l_xmldoc xmldom.DOMDocument;
18729: l_xml_node xmldom.DOMNode;
18730: l_element_id_tbl varchar_tbl_type;
18731: l_out_node xmldom.DOMNode;
18732: l_parent_node xmldom.DOMNode;
18733: l_page_ref_id CZ_UI_PAGE_REFS.page_ref_id%TYPE;
18734: l_parent_element_id CZ_UI_PAGE_ELEMENTS.parent_element_id%TYPE;
18735: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18728: l_xmldoc xmldom.DOMDocument;
18729: l_xml_node xmldom.DOMNode;
18730: l_element_id_tbl varchar_tbl_type;
18731: l_out_node xmldom.DOMNode;
18732: l_parent_node xmldom.DOMNode;
18733: l_page_ref_id CZ_UI_PAGE_REFS.page_ref_id%TYPE;
18734: l_parent_element_id CZ_UI_PAGE_ELEMENTS.parent_element_id%TYPE;
18735: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18736: l_page_ref_type CZ_UI_PAGE_REFS.page_ref_type%TYPE;
18877: -- create UI Template in JRAD repository
18878: --
18879: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
18880:
18881: IF xmldom.isNull(l_xmldoc) THEN
18882: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
18883: p_token_name => 'UI_TEMPLATE',
18884: p_token_value => l_jrad_doc,
18885: p_fatal_error => TRUE);
18897: IF p_delete_xml=G_YES_FLAG THEN
18898: IF l_parent_element_id IS NULL OR p_element_id=G_NO_FLAG THEN
18899: jdr_docbuilder.deleteDocument(l_jrad_doc);
18900: ELSE
18901: l_parent_node:=xmldom.getParentNode(l_xml_node);
18902: l_out_node:=xmldom.removeChild(l_parent_node,l_xml_node);
18903: Save_Document(p_xml_doc => l_xmldoc,
18904: p_doc_name => l_jrad_doc);
18905: END IF;
18898: IF l_parent_element_id IS NULL OR p_element_id=G_NO_FLAG THEN
18899: jdr_docbuilder.deleteDocument(l_jrad_doc);
18900: ELSE
18901: l_parent_node:=xmldom.getParentNode(l_xml_node);
18902: l_out_node:=xmldom.removeChild(l_parent_node,l_xml_node);
18903: Save_Document(p_xml_doc => l_xmldoc,
18904: p_doc_name => l_jrad_doc);
18905: END IF;
18906:
19091: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19092: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19093: ) IS
19094:
19095: l_xmldoc xmldom.DOMDocument;
19096: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19097:
19098: BEGIN
19099:
19124: -- create UI Template in JRAD repository
19125: --
19126: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
19127:
19128: IF xmldom.isNull(l_xmldoc) THEN
19129: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19130: p_token_name => 'UI_TEMPLATE',
19131: p_token_value => l_jrad_doc,
19132: p_fatal_error => TRUE);
19135:
19136: --
19137: -- delete user attributes from the list of attrributes to delete
19138: --
19139: delete_User_Attributes(xmldom.makeNode(l_xmldoc),p_template_ui_def_id,
19140: p_template_id, p_template_ui_def_id);
19141:
19142: jdr_docbuilder.deleteDocument(l_jrad_doc);
19143:
19183: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19184: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19185: ) IS
19186:
19187: l_xmldoc xmldom.DOMDocument;
19188: l_out_node xmldom.DOMNode;
19189: l_parent_node xmldom.DOMNode;
19190: l_xml_node xmldom.DOMNode;
19191: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19184: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19185: ) IS
19186:
19187: l_xmldoc xmldom.DOMDocument;
19188: l_out_node xmldom.DOMNode;
19189: l_parent_node xmldom.DOMNode;
19190: l_xml_node xmldom.DOMNode;
19191: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19192: l_needs_to_be_unlocked BOOLEAN;
19185: ) IS
19186:
19187: l_xmldoc xmldom.DOMDocument;
19188: l_out_node xmldom.DOMNode;
19189: l_parent_node xmldom.DOMNode;
19190: l_xml_node xmldom.DOMNode;
19191: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19192: l_needs_to_be_unlocked BOOLEAN;
19193:
19186:
19187: l_xmldoc xmldom.DOMDocument;
19188: l_out_node xmldom.DOMNode;
19189: l_parent_node xmldom.DOMNode;
19190: l_xml_node xmldom.DOMNode;
19191: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19192: l_needs_to_be_unlocked BOOLEAN;
19193:
19194: BEGIN
19218: -- create UI Template in JRAD repository
19219: --
19220: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
19221:
19222: IF xmldom.isNull(l_xmldoc) THEN
19223: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19224: p_token_name => 'UI_TEMPLATE',
19225: p_token_value => l_jrad_doc,
19226: p_fatal_error => TRUE);
19230: l_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_xmldoc,
19231: p_attribute_name => G_ID_ATTRIBUTE,
19232: p_attribute_value => p_element_id);
19233:
19234: IF xmldom.isNull(l_xml_node) THEN
19235: l_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_xmldoc,
19236: p_attribute_name => 'caseId',
19237: p_attribute_value => p_element_id,
19238: p_in_user_attributes => G_YES_FLAG );
19236: p_attribute_name => 'caseId',
19237: p_attribute_value => p_element_id,
19238: p_in_user_attributes => G_YES_FLAG );
19239:
19240: IF xmldom.isNull(l_xml_node) THEN
19241: x_return_status := FND_API.G_RET_STS_ERROR;
19242: x_msg_count := 1;
19243: x_msg_data := 'Element with element_id="'||p_element_id||'" does exist.';
19244: fnd_msg_pub.add_exc_msg('CZ_UIOA_PVT', 'delete_Local_Template_Elem', 'Element with element_id="'||
19257:
19258: --
19259: -- remove XML subtree
19260: --
19261: l_parent_node:=xmldom.getParentNode(l_xml_node);
19262: l_out_node:=xmldom.removeChild(l_parent_node,l_xml_node);
19263:
19264:
19265: refresh_Templ_Ref_Counts(l_xmldoc, p_template_ui_def_id, p_template_id);
19258: --
19259: -- remove XML subtree
19260: --
19261: l_parent_node:=xmldom.getParentNode(l_xml_node);
19262: l_out_node:=xmldom.removeChild(l_parent_node,l_xml_node);
19263:
19264:
19265: refresh_Templ_Ref_Counts(l_xmldoc, p_template_ui_def_id, p_template_id);
19266:
19323: p_target_ui_def_id IN NUMBER, -- ui_def_id of target UI
19324: p_target_ui_page_id IN NUMBER, -- page_id of target UI page
19325: p_target_parent_element_id IN VARCHAR2, -- element_id of
19326: -- new parent UI element
19327: p_source_xml_node xmldom.DOMNode,
19328: p_target_xml_node xmldom.DOMNode,
19329: p_target_xmldoc xmldom.DOMDocument,
19330: x_new_element_id OUT NOCOPY VARCHAR2, -- element_id of copied UI element
19331: x_new_xml_node OUT NOCOPY xmldom.DOMNode
19324: p_target_ui_page_id IN NUMBER, -- page_id of target UI page
19325: p_target_parent_element_id IN VARCHAR2, -- element_id of
19326: -- new parent UI element
19327: p_source_xml_node xmldom.DOMNode,
19328: p_target_xml_node xmldom.DOMNode,
19329: p_target_xmldoc xmldom.DOMDocument,
19330: x_new_element_id OUT NOCOPY VARCHAR2, -- element_id of copied UI element
19331: x_new_xml_node OUT NOCOPY xmldom.DOMNode
19332: ) IS
19325: p_target_parent_element_id IN VARCHAR2, -- element_id of
19326: -- new parent UI element
19327: p_source_xml_node xmldom.DOMNode,
19328: p_target_xml_node xmldom.DOMNode,
19329: p_target_xmldoc xmldom.DOMDocument,
19330: x_new_element_id OUT NOCOPY VARCHAR2, -- element_id of copied UI element
19331: x_new_xml_node OUT NOCOPY xmldom.DOMNode
19332: ) IS
19333:
19327: p_source_xml_node xmldom.DOMNode,
19328: p_target_xml_node xmldom.DOMNode,
19329: p_target_xmldoc xmldom.DOMDocument,
19330: x_new_element_id OUT NOCOPY VARCHAR2, -- element_id of copied UI element
19331: x_new_xml_node OUT NOCOPY xmldom.DOMNode
19332: ) IS
19333:
19334: l_target_xmldoc xmldom.DOMDocument;
19335: l_new_xml_root_node xmldom.DOMNode;
19330: x_new_element_id OUT NOCOPY VARCHAR2, -- element_id of copied UI element
19331: x_new_xml_node OUT NOCOPY xmldom.DOMNode
19332: ) IS
19333:
19334: l_target_xmldoc xmldom.DOMDocument;
19335: l_new_xml_root_node xmldom.DOMNode;
19336: l_target_uicont_xml_node xmldom.DOMNode;
19337: l_stacklayout_node xmldom.DOMNode;
19338: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19331: x_new_xml_node OUT NOCOPY xmldom.DOMNode
19332: ) IS
19333:
19334: l_target_xmldoc xmldom.DOMDocument;
19335: l_new_xml_root_node xmldom.DOMNode;
19336: l_target_uicont_xml_node xmldom.DOMNode;
19337: l_stacklayout_node xmldom.DOMNode;
19338: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19339: l_xml_uicont_node xmldom.DOMNode;
19332: ) IS
19333:
19334: l_target_xmldoc xmldom.DOMDocument;
19335: l_new_xml_root_node xmldom.DOMNode;
19336: l_target_uicont_xml_node xmldom.DOMNode;
19337: l_stacklayout_node xmldom.DOMNode;
19338: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19339: l_xml_uicont_node xmldom.DOMNode;
19340: l_xml_new_node xmldom.DOMNode;
19333:
19334: l_target_xmldoc xmldom.DOMDocument;
19335: l_new_xml_root_node xmldom.DOMNode;
19336: l_target_uicont_xml_node xmldom.DOMNode;
19337: l_stacklayout_node xmldom.DOMNode;
19338: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19339: l_xml_uicont_node xmldom.DOMNode;
19340: l_xml_new_node xmldom.DOMNode;
19341: l_amn_parent_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
19334: l_target_xmldoc xmldom.DOMDocument;
19335: l_new_xml_root_node xmldom.DOMNode;
19336: l_target_uicont_xml_node xmldom.DOMNode;
19337: l_stacklayout_node xmldom.DOMNode;
19338: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19339: l_xml_uicont_node xmldom.DOMNode;
19340: l_xml_new_node xmldom.DOMNode;
19341: l_amn_parent_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
19342: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19335: l_new_xml_root_node xmldom.DOMNode;
19336: l_target_uicont_xml_node xmldom.DOMNode;
19337: l_stacklayout_node xmldom.DOMNode;
19338: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19339: l_xml_uicont_node xmldom.DOMNode;
19340: l_xml_new_node xmldom.DOMNode;
19341: l_amn_parent_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
19342: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19343: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19336: l_target_uicont_xml_node xmldom.DOMNode;
19337: l_stacklayout_node xmldom.DOMNode;
19338: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19339: l_xml_uicont_node xmldom.DOMNode;
19340: l_xml_new_node xmldom.DOMNode;
19341: l_amn_parent_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
19342: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19343: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19344: l_pagebase_persistent_node_id NUMBER;
19347: l_base_persistent_node_id NUMBER;
19348: l_base_expl_node_id NUMBER;
19349: l_instance_list_AMN expl_node_persistent_id_pair;
19350: l_is_instance_list_child BOOLEAN := FALSE;
19351: l_xml_temp_node xmldom.DOMNode;
19352:
19353: BEGIN
19354:
19355:
19381: l_amn_parent_element_id := find_AMN_Element_Above(p_target_xml_node);
19382: END;
19383:
19384: l_target_uicont_xml_node := getUIContents(p_target_xml_node, G_YES_FLAG);
19385: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
19386: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19387: l_target_uicont_xml_node := xmldom.appendChild(p_target_xml_node,
19388: l_xml_temp_node);
19389: END IF;
19382: END;
19383:
19384: l_target_uicont_xml_node := getUIContents(p_target_xml_node, G_YES_FLAG);
19385: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
19386: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19387: l_target_uicont_xml_node := xmldom.appendChild(p_target_xml_node,
19388: l_xml_temp_node);
19389: END IF;
19390:
19383:
19384: l_target_uicont_xml_node := getUIContents(p_target_xml_node, G_YES_FLAG);
19385: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
19386: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19387: l_target_uicont_xml_node := xmldom.appendChild(p_target_xml_node,
19388: l_xml_temp_node);
19389: END IF;
19390:
19391: --
19390:
19391: --
19392: -- returns cloned DOM subtree
19393: --
19394: --l_new_xml_root_node := xmldom.cloneNode(p_source_xml_node, TRUE);
19395: l_new_xml_root_node := cloneNode(p_source_xml_node, l_target_uicont_xml_node);
19396:
19397: l_base_persistent_node_id := l_pagebase_persistent_node_id;
19398: l_base_expl_node_Id := l_pagebase_expl_node_id;
19427: p_is_instance_list_child => l_is_instance_list_child);
19428:
19429: validate_Copied_PIR(p_target_ui_def_id, p_target_ui_page_id);
19430:
19431: IF xmldom.getNodeName(p_source_xml_node)='ui:case' AND xmldom.getNodeName(p_target_xml_node)='oa:switcher' THEN
19432:
19433: x_new_xml_node := xmldom.appendChild(p_target_xml_node,
19434: l_new_xml_root_node);
19435:
19429: validate_Copied_PIR(p_target_ui_def_id, p_target_ui_page_id);
19430:
19431: IF xmldom.getNodeName(p_source_xml_node)='ui:case' AND xmldom.getNodeName(p_target_xml_node)='oa:switcher' THEN
19432:
19433: x_new_xml_node := xmldom.appendChild(p_target_xml_node,
19434: l_new_xml_root_node);
19435:
19436: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(p_target_xml_node)<>'ui:case' THEN
19437: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19432:
19433: x_new_xml_node := xmldom.appendChild(p_target_xml_node,
19434: l_new_xml_root_node);
19435:
19436: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(p_target_xml_node)<>'ui:case' THEN
19437: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19438:
19439: l_xml_uicont_node := xmldom.appendChild(p_target_xml_node,
19440: l_xml_new_node);
19433: x_new_xml_node := xmldom.appendChild(p_target_xml_node,
19434: l_new_xml_root_node);
19435:
19436: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(p_target_xml_node)<>'ui:case' THEN
19437: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19438:
19439: l_xml_uicont_node := xmldom.appendChild(p_target_xml_node,
19440: l_xml_new_node);
19441: x_new_xml_node := xmldom.appendChild(l_xml_uicont_node,
19435:
19436: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(p_target_xml_node)<>'ui:case' THEN
19437: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19438:
19439: l_xml_uicont_node := xmldom.appendChild(p_target_xml_node,
19440: l_xml_new_node);
19441: x_new_xml_node := xmldom.appendChild(l_xml_uicont_node,
19442: l_new_xml_root_node);
19443: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(p_target_xml_node)='ui:case' THEN
19437: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19438:
19439: l_xml_uicont_node := xmldom.appendChild(p_target_xml_node,
19440: l_xml_new_node);
19441: x_new_xml_node := xmldom.appendChild(l_xml_uicont_node,
19442: l_new_xml_root_node);
19443: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(p_target_xml_node)='ui:case' THEN
19444:
19445: l_stacklayout_node := findChildXMLTag(p_target_xml_node, 'oa:stackLayout');
19439: l_xml_uicont_node := xmldom.appendChild(p_target_xml_node,
19440: l_xml_new_node);
19441: x_new_xml_node := xmldom.appendChild(l_xml_uicont_node,
19442: l_new_xml_root_node);
19443: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(p_target_xml_node)='ui:case' THEN
19444:
19445: l_stacklayout_node := findChildXMLTag(p_target_xml_node, 'oa:stackLayout');
19446: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19447:
19444:
19445: l_stacklayout_node := findChildXMLTag(p_target_xml_node, 'oa:stackLayout');
19446: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19447:
19448: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19449:
19450: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19451: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19452: l_xml_new_node);
19446: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19447:
19448: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19449:
19450: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19451: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19452: l_xml_new_node);
19453: x_new_xml_node := xmldom.appendChild(l_xml_uicont_node,
19454: l_new_xml_root_node);
19447:
19448: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19449:
19450: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19451: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19452: l_xml_new_node);
19453: x_new_xml_node := xmldom.appendChild(l_xml_uicont_node,
19454: l_new_xml_root_node);
19455:
19449:
19450: l_xml_new_node := xmldom.makeNode(xmldom.createElement(p_target_xmldoc, 'ui:contents'));
19451: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19452: l_xml_new_node);
19453: x_new_xml_node := xmldom.appendChild(l_xml_uicont_node,
19454: l_new_xml_root_node);
19455:
19456: ELSE
19457:
19454: l_new_xml_root_node);
19455:
19456: ELSE
19457:
19458: x_new_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
19459: l_new_xml_root_node);
19460: END IF;
19461: ELSE
19462: x_new_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
19458: x_new_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
19459: l_new_xml_root_node);
19460: END IF;
19461: ELSE
19462: x_new_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
19463: l_new_xml_root_node);
19464: END IF;
19465:
19466: Save_Document(p_xml_doc => p_target_xmldoc,
19501: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19502: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19503: ) IS
19504:
19505: l_source_xmldoc xmldom.DOMDocument;
19506: l_target_xmldoc xmldom.DOMDocument;
19507: l_source_xml_node xmldom.DOMNode;
19508: l_target_xml_node xmldom.DOMNode;
19509: l_new_xml_root_node xmldom.DOMNode;
19502: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19503: ) IS
19504:
19505: l_source_xmldoc xmldom.DOMDocument;
19506: l_target_xmldoc xmldom.DOMDocument;
19507: l_source_xml_node xmldom.DOMNode;
19508: l_target_xml_node xmldom.DOMNode;
19509: l_new_xml_root_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19503: ) IS
19504:
19505: l_source_xmldoc xmldom.DOMDocument;
19506: l_target_xmldoc xmldom.DOMDocument;
19507: l_source_xml_node xmldom.DOMNode;
19508: l_target_xml_node xmldom.DOMNode;
19509: l_new_xml_root_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19511: l_out_xml_node xmldom.DOMNode;
19504:
19505: l_source_xmldoc xmldom.DOMDocument;
19506: l_target_xmldoc xmldom.DOMDocument;
19507: l_source_xml_node xmldom.DOMNode;
19508: l_target_xml_node xmldom.DOMNode;
19509: l_new_xml_root_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19511: l_out_xml_node xmldom.DOMNode;
19512: l_target_uicont_xml_node xmldom.DOMNode;
19505: l_source_xmldoc xmldom.DOMDocument;
19506: l_target_xmldoc xmldom.DOMDocument;
19507: l_source_xml_node xmldom.DOMNode;
19508: l_target_xml_node xmldom.DOMNode;
19509: l_new_xml_root_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19511: l_out_xml_node xmldom.DOMNode;
19512: l_target_uicont_xml_node xmldom.DOMNode;
19513: l_stacklayout_node xmldom.DOMNode;
19506: l_target_xmldoc xmldom.DOMDocument;
19507: l_source_xml_node xmldom.DOMNode;
19508: l_target_xml_node xmldom.DOMNode;
19509: l_new_xml_root_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19511: l_out_xml_node xmldom.DOMNode;
19512: l_target_uicont_xml_node xmldom.DOMNode;
19513: l_stacklayout_node xmldom.DOMNode;
19514: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19507: l_source_xml_node xmldom.DOMNode;
19508: l_target_xml_node xmldom.DOMNode;
19509: l_new_xml_root_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19511: l_out_xml_node xmldom.DOMNode;
19512: l_target_uicont_xml_node xmldom.DOMNode;
19513: l_stacklayout_node xmldom.DOMNode;
19514: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19515: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19508: l_target_xml_node xmldom.DOMNode;
19509: l_new_xml_root_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19511: l_out_xml_node xmldom.DOMNode;
19512: l_target_uicont_xml_node xmldom.DOMNode;
19513: l_stacklayout_node xmldom.DOMNode;
19514: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19515: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19516: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19509: l_new_xml_root_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19511: l_out_xml_node xmldom.DOMNode;
19512: l_target_uicont_xml_node xmldom.DOMNode;
19513: l_stacklayout_node xmldom.DOMNode;
19514: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19515: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19516: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19517: l_xml_uicont_node xmldom.DOMNode;
19510: l_new_xml_node xmldom.DOMNode;
19511: l_out_xml_node xmldom.DOMNode;
19512: l_target_uicont_xml_node xmldom.DOMNode;
19513: l_stacklayout_node xmldom.DOMNode;
19514: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19515: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19516: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19517: l_xml_uicont_node xmldom.DOMNode;
19518: l_xml_new_node xmldom.DOMNode;
19513: l_stacklayout_node xmldom.DOMNode;
19514: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19515: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19516: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19517: l_xml_uicont_node xmldom.DOMNode;
19518: l_xml_new_node xmldom.DOMNode;
19519: l_amn_parent_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
19520: l_new_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
19521: l_pagebase_persistent_node_id NUMBER;
19514: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19515: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19516: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19517: l_xml_uicont_node xmldom.DOMNode;
19518: l_xml_new_node xmldom.DOMNode;
19519: l_amn_parent_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
19520: l_new_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
19521: l_pagebase_persistent_node_id NUMBER;
19522: l_length NUMBER;
19554: Open_Parser();
19555:
19556: l_source_xmldoc := parse_JRAD_Document(p_doc_full_name => l_source_jrad_doc);
19557:
19558: IF xmldom.isNull(l_source_xmldoc) THEN
19559: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19560: p_token_name => 'UI_TEMPLATE',
19561: p_token_value => l_source_jrad_doc,
19562: p_fatal_error => TRUE);
19567: -- create UI Template in JRAD repository
19568: --
19569: l_target_xmldoc := parse_JRAD_Document(p_doc_full_name => l_target_jrad_doc);
19570:
19571: IF xmldom.isNull(l_target_xmldoc) THEN
19572: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19573: p_token_name => 'UI_TEMPLATE',
19574: p_token_value => l_target_jrad_doc,
19575: p_fatal_error => TRUE);
19579: l_source_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_source_xmldoc,
19580: p_attribute_name => G_ID_ATTRIBUTE,
19581: p_attribute_value => p_source_element_id);
19582:
19583: IF xmldom.IsNull(l_source_xml_node) THEN
19584: l_source_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_source_xmldoc,
19585: p_attribute_name => 'caseId',
19586: p_attribute_value => p_source_element_id,
19587: p_in_user_attributes => G_YES_FLAG);
19590:
19591: l_target_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_target_xmldoc,
19592: p_attribute_name => G_ID_ATTRIBUTE,
19593: p_attribute_value => p_target_parent_element_id);
19594: IF xmldom.IsNull(l_target_xml_node) THEN
19595: l_target_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_target_xmldoc,
19596: p_attribute_name => 'caseId',
19597: p_attribute_value => p_target_parent_element_id,
19598: p_in_user_attributes => G_YES_FLAG);
19649: p_source_ui_page_id IN NUMBER, -- page_id of
19650: -- UI page which needs
19651: -- to be copied
19652: p_target_ui_def_id IN NUMBER, -- ui_def_id of target UI
19653: p_source_xmldoc xmldom.DOMDocument,
19654: x_new_ui_page_id OUT NOCOPY NUMBER,-- page_id of copied UI page
19655: x_new_jrad_doc OUT NOCOPY VARCHAR2
19656: ) IS
19657:
19654: x_new_ui_page_id OUT NOCOPY NUMBER,-- page_id of copied UI page
19655: x_new_jrad_doc OUT NOCOPY VARCHAR2
19656: ) IS
19657:
19658: l_source_xml_node xmldom.DOMNode;
19659: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19660: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19661: l_element_id_tbl number_tbl_type;
19662: l_parent_element_id_tbl number_tbl_type;
19797: l_source_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => p_source_xmldoc,
19798: p_attribute_name => G_ID_ATTRIBUTE,
19799: p_attribute_value => l_source_element_id);
19800:
19801: l_source_xml_node := xmldom.cloneNode(l_source_xml_node, TRUE);
19802:
19803: -- We are copying an entire page. We start off with the pagebase as the base AMN
19804: -- for computing paths (p_base_persistent_node_id, p_base_expl_node_id)
19805: -- If while copying the tree, we encounter an Instance List Region, we will change
19844: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19845: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19846: ) IS
19847:
19848: l_source_xmldoc xmldom.DOMDocument;
19849: l_source_xml_node xmldom.DOMNode;
19850: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19851: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19852: l_element_id_tbl number_tbl_type;
19845: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19846: ) IS
19847:
19848: l_source_xmldoc xmldom.DOMDocument;
19849: l_source_xml_node xmldom.DOMNode;
19850: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19851: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19852: l_element_id_tbl number_tbl_type;
19853: l_parent_element_id_tbl number_tbl_type;
19902: -- create UI Template in JRAD repository
19903: --
19904: l_source_xmldoc := parse_JRAD_Document(p_doc_full_name => l_source_jrad_doc);
19905:
19906: IF xmldom.isNull(l_source_xmldoc) THEN
19907: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19908: p_token_name => 'UI_TEMPLATE',
19909: p_token_value => l_source_jrad_doc,
19910: p_fatal_error => TRUE);
20140: x_return_status OUT NOCOPY VARCHAR2,-- status string
20141: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
20142: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20143: ) IS
20144: l_source_template_xmldoc xmldom.DOMDocument;
20145: l_template_root_xml_node xmldom.DOMNode;
20146: l_xml_node xmldom.DOMNode;
20147: l_child_nodes_tbl xmldom.DOMNodeList;
20148: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20141: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
20142: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20143: ) IS
20144: l_source_template_xmldoc xmldom.DOMDocument;
20145: l_template_root_xml_node xmldom.DOMNode;
20146: l_xml_node xmldom.DOMNode;
20147: l_child_nodes_tbl xmldom.DOMNodeList;
20148: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20149: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20142: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20143: ) IS
20144: l_source_template_xmldoc xmldom.DOMDocument;
20145: l_template_root_xml_node xmldom.DOMNode;
20146: l_xml_node xmldom.DOMNode;
20147: l_child_nodes_tbl xmldom.DOMNodeList;
20148: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20149: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20150: l_length NUMBER;
20143: ) IS
20144: l_source_template_xmldoc xmldom.DOMDocument;
20145: l_template_root_xml_node xmldom.DOMNode;
20146: l_xml_node xmldom.DOMNode;
20147: l_child_nodes_tbl xmldom.DOMNodeList;
20148: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20149: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20150: l_length NUMBER;
20151: l_needs_to_be_unlocked BOOLEAN;
20174: -- create UI Template in JRAD repository
20175: --
20176: l_source_template_xmldoc := parse_JRAD_Document(p_doc_full_name => l_source_jrad_doc);
20177:
20178: IF xmldom.isNull(l_source_template_xmldoc) THEN
20179: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20180: p_token_name => 'UI_TEMPLATE',
20181: p_token_value => l_source_jrad_doc,
20182: p_fatal_error => TRUE);
20182: p_fatal_error => TRUE);
20183: RAISE WRONG_UI_TEMPLATE;
20184: END IF;
20185:
20186: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_source_template_xmldoc));
20187:
20188: l_child_nodes_tbl := xmldom.getElementsByTagName(l_source_template_xmldoc, '*');
20189: l_length := xmldom.getLength(l_child_nodes_tbl);
20190: IF (l_length > 0) THEN
20184: END IF;
20185:
20186: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_source_template_xmldoc));
20187:
20188: l_child_nodes_tbl := xmldom.getElementsByTagName(l_source_template_xmldoc, '*');
20189: l_length := xmldom.getLength(l_child_nodes_tbl);
20190: IF (l_length > 0) THEN
20191: FOR k IN 0..l_length-1
20192: LOOP
20185:
20186: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_source_template_xmldoc));
20187:
20188: l_child_nodes_tbl := xmldom.getElementsByTagName(l_source_template_xmldoc, '*');
20189: l_length := xmldom.getLength(l_child_nodes_tbl);
20190: IF (l_length > 0) THEN
20191: FOR k IN 0..l_length-1
20192: LOOP
20193: --
20192: LOOP
20193: --
20194: -- get next child DOM node
20195: --
20196: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
20197: IF k > 0 THEN
20198: --
20199: -- create a new copies for corresponding entities ( captions, rules ,... )
20200: --
20322: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
20323: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20324: ) IS
20325:
20326: l_source_xmldoc xmldom.DOMDocument;
20327:
20328: BEGIN
20329:
20330: --
20341: -- create UI Template in JRAD repository
20342: --
20343: l_source_xmldoc := parse_JRAD_Document(p_doc_full_name => p_source_jrad_doc);
20344:
20345: IF xmldom.isNull(l_source_xmldoc) THEN
20346: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20347: p_token_name => 'UI_TEMPLATE',
20348: p_token_value => p_source_jrad_doc,
20349: p_fatal_error => TRUE);
20426: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
20427: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20428: ) IS
20429:
20430: l_source_xmldoc xmldom.DOMDocument;
20431: l_target_xmldoc xmldom.DOMDocument;
20432: l_source_xml_node xmldom.DOMNode;
20433: l_xml_uicont_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20427: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20428: ) IS
20429:
20430: l_source_xmldoc xmldom.DOMDocument;
20431: l_target_xmldoc xmldom.DOMDocument;
20432: l_source_xml_node xmldom.DOMNode;
20433: l_xml_uicont_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20435: l_target_xml_node xmldom.DOMNode;
20428: ) IS
20429:
20430: l_source_xmldoc xmldom.DOMDocument;
20431: l_target_xmldoc xmldom.DOMDocument;
20432: l_source_xml_node xmldom.DOMNode;
20433: l_xml_uicont_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20435: l_target_xml_node xmldom.DOMNode;
20436: l_new_xml_root_node xmldom.DOMNode;
20429:
20430: l_source_xmldoc xmldom.DOMDocument;
20431: l_target_xmldoc xmldom.DOMDocument;
20432: l_source_xml_node xmldom.DOMNode;
20433: l_xml_uicont_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20435: l_target_xml_node xmldom.DOMNode;
20436: l_new_xml_root_node xmldom.DOMNode;
20437: l_out_xml_node xmldom.DOMNode;
20430: l_source_xmldoc xmldom.DOMDocument;
20431: l_target_xmldoc xmldom.DOMDocument;
20432: l_source_xml_node xmldom.DOMNode;
20433: l_xml_uicont_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20435: l_target_xml_node xmldom.DOMNode;
20436: l_new_xml_root_node xmldom.DOMNode;
20437: l_out_xml_node xmldom.DOMNode;
20438: l_target_uicont_xml_node xmldom.DOMNode;
20431: l_target_xmldoc xmldom.DOMDocument;
20432: l_source_xml_node xmldom.DOMNode;
20433: l_xml_uicont_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20435: l_target_xml_node xmldom.DOMNode;
20436: l_new_xml_root_node xmldom.DOMNode;
20437: l_out_xml_node xmldom.DOMNode;
20438: l_target_uicont_xml_node xmldom.DOMNode;
20439: l_xml_temp_node xmldom.DOMNode;
20432: l_source_xml_node xmldom.DOMNode;
20433: l_xml_uicont_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20435: l_target_xml_node xmldom.DOMNode;
20436: l_new_xml_root_node xmldom.DOMNode;
20437: l_out_xml_node xmldom.DOMNode;
20438: l_target_uicont_xml_node xmldom.DOMNode;
20439: l_xml_temp_node xmldom.DOMNode;
20440: l_stacklayout_node xmldom.DOMNode;
20433: l_xml_uicont_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20435: l_target_xml_node xmldom.DOMNode;
20436: l_new_xml_root_node xmldom.DOMNode;
20437: l_out_xml_node xmldom.DOMNode;
20438: l_target_uicont_xml_node xmldom.DOMNode;
20439: l_xml_temp_node xmldom.DOMNode;
20440: l_stacklayout_node xmldom.DOMNode;
20441: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20434: l_xml_new_node xmldom.DOMNode;
20435: l_target_xml_node xmldom.DOMNode;
20436: l_new_xml_root_node xmldom.DOMNode;
20437: l_out_xml_node xmldom.DOMNode;
20438: l_target_uicont_xml_node xmldom.DOMNode;
20439: l_xml_temp_node xmldom.DOMNode;
20440: l_stacklayout_node xmldom.DOMNode;
20441: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20442: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20435: l_target_xml_node xmldom.DOMNode;
20436: l_new_xml_root_node xmldom.DOMNode;
20437: l_out_xml_node xmldom.DOMNode;
20438: l_target_uicont_xml_node xmldom.DOMNode;
20439: l_xml_temp_node xmldom.DOMNode;
20440: l_stacklayout_node xmldom.DOMNode;
20441: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20442: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20443: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20436: l_new_xml_root_node xmldom.DOMNode;
20437: l_out_xml_node xmldom.DOMNode;
20438: l_target_uicont_xml_node xmldom.DOMNode;
20439: l_xml_temp_node xmldom.DOMNode;
20440: l_stacklayout_node xmldom.DOMNode;
20441: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20442: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20443: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20444: l_needs_to_be_unlocked BOOLEAN;
20437: l_out_xml_node xmldom.DOMNode;
20438: l_target_uicont_xml_node xmldom.DOMNode;
20439: l_xml_temp_node xmldom.DOMNode;
20440: l_stacklayout_node xmldom.DOMNode;
20441: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20442: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20443: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20444: l_needs_to_be_unlocked BOOLEAN;
20445: BEGIN
20471: -- create UI Template in JRAD repository
20472: --
20473: l_source_xmldoc := parse_JRAD_Document(p_doc_full_name => l_source_jrad_doc);
20474:
20475: IF xmldom.isNull(l_source_xmldoc) THEN
20476: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20477: p_token_name => 'UI_TEMPLATE',
20478: p_token_value => l_source_jrad_doc,
20479: p_fatal_error => TRUE);
20484: -- create UI Template in JRAD repository
20485: --
20486: l_target_xmldoc := parse_JRAD_Document(p_doc_full_name => l_target_jrad_doc);
20487:
20488: IF xmldom.isNull(l_target_xmldoc) THEN
20489: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20490: p_token_name => 'UI_TEMPLATE',
20491: p_token_value => l_target_jrad_doc,
20492: p_fatal_error => TRUE);
20497: p_attribute_name => G_ID_ATTRIBUTE,
20498: p_attribute_value => p_source_element_id);
20499:
20500: IF p_target_parent_element_id IS NULL THEN
20501: l_target_xml_node := xmldom.makeNode(xmldom.getDocumentElement(l_target_xmldoc));
20502: ELSE
20503: l_target_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_target_xmldoc,
20504: p_attribute_name => G_ID_ATTRIBUTE,
20505: p_attribute_value => p_target_parent_element_id);
20506: END IF;
20507:
20508: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
20509:
20510: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
20511: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20512: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
20513: l_xml_temp_node);
20514: END IF;
20507:
20508: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
20509:
20510: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
20511: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20512: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
20513: l_xml_temp_node);
20514: END IF;
20515:
20508: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
20509:
20510: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
20511: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20512: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
20513: l_xml_temp_node);
20514: END IF;
20515:
20516: --
20515:
20516: --
20517: -- returns cloned DOM subtree
20518: --
20519: -- l_new_xml_root_node := xmldom.cloneNode(l_source_xml_node, TRUE);
20520: l_new_xml_root_node := cloneNode(l_source_xml_node, l_target_uicont_xml_node);
20521:
20522: x_new_element_id := get_Element_Id();
20523:
20530: p_target_ui_def_id => p_target_ui_def_id,
20531: p_source_template_id => p_source_template_id,
20532: p_target_template_id => p_target_template_id);
20533:
20534: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
20535: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20536:
20537: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
20538: l_xml_new_node);
20531: p_source_template_id => p_source_template_id,
20532: p_target_template_id => p_target_template_id);
20533:
20534: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
20535: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20536:
20537: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
20538: l_xml_new_node);
20539:
20533:
20534: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
20535: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20536:
20537: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
20538: l_xml_new_node);
20539:
20540: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20541: l_new_xml_root_node);
20536:
20537: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
20538: l_xml_new_node);
20539:
20540: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20541: l_new_xml_root_node);
20542:
20543: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
20544: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
20539:
20540: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20541: l_new_xml_root_node);
20542:
20543: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
20544: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
20545: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
20546: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
20547:
20542:
20543: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
20544: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
20545: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
20546: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
20547:
20548: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20549: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
20550: l_xml_new_node);
20544: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
20545: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
20546: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
20547:
20548: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20549: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
20550: l_xml_new_node);
20551:
20552: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20545: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
20546: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
20547:
20548: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20549: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
20550: l_xml_new_node);
20551:
20552: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20553: l_new_xml_root_node);
20548: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
20549: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
20550: l_xml_new_node);
20551:
20552: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20553: l_new_xml_root_node);
20554:
20555: ELSE
20556: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
20552: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20553: l_new_xml_root_node);
20554:
20555: ELSE
20556: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
20557: l_new_xml_root_node);
20558: END IF;
20559:
20560: ELSE
20557: l_new_xml_root_node);
20558: END IF;
20559:
20560: ELSE
20561: l_out_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
20562: l_new_xml_root_node);
20563:
20564: END IF;
20565:
20623: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
20624: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20625: ) IS
20626:
20627: l_template_xmldoc xmldom.DOMDocument;
20628: l_xmldoc xmldom.DOMDocument;
20629: l_template_root_xml_node xmldom.DOMNode;
20630: l_parent_xml_node xmldom.DOMNode;
20631: l_out_xml_node xmldom.DOMNode;
20624: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20625: ) IS
20626:
20627: l_template_xmldoc xmldom.DOMDocument;
20628: l_xmldoc xmldom.DOMDocument;
20629: l_template_root_xml_node xmldom.DOMNode;
20630: l_parent_xml_node xmldom.DOMNode;
20631: l_out_xml_node xmldom.DOMNode;
20632: l_target_uicont_xml_node xmldom.DOMNode;
20625: ) IS
20626:
20627: l_template_xmldoc xmldom.DOMDocument;
20628: l_xmldoc xmldom.DOMDocument;
20629: l_template_root_xml_node xmldom.DOMNode;
20630: l_parent_xml_node xmldom.DOMNode;
20631: l_out_xml_node xmldom.DOMNode;
20632: l_target_uicont_xml_node xmldom.DOMNode;
20633: l_new_xml_root_node xmldom.DOMNode;
20626:
20627: l_template_xmldoc xmldom.DOMDocument;
20628: l_xmldoc xmldom.DOMDocument;
20629: l_template_root_xml_node xmldom.DOMNode;
20630: l_parent_xml_node xmldom.DOMNode;
20631: l_out_xml_node xmldom.DOMNode;
20632: l_target_uicont_xml_node xmldom.DOMNode;
20633: l_new_xml_root_node xmldom.DOMNode;
20634: l_xml_node xmldom.DOMNode;
20627: l_template_xmldoc xmldom.DOMDocument;
20628: l_xmldoc xmldom.DOMDocument;
20629: l_template_root_xml_node xmldom.DOMNode;
20630: l_parent_xml_node xmldom.DOMNode;
20631: l_out_xml_node xmldom.DOMNode;
20632: l_target_uicont_xml_node xmldom.DOMNode;
20633: l_new_xml_root_node xmldom.DOMNode;
20634: l_xml_node xmldom.DOMNode;
20635:
20628: l_xmldoc xmldom.DOMDocument;
20629: l_template_root_xml_node xmldom.DOMNode;
20630: l_parent_xml_node xmldom.DOMNode;
20631: l_out_xml_node xmldom.DOMNode;
20632: l_target_uicont_xml_node xmldom.DOMNode;
20633: l_new_xml_root_node xmldom.DOMNode;
20634: l_xml_node xmldom.DOMNode;
20635:
20636: l_source_xml_node xmldom.DOMNode;
20629: l_template_root_xml_node xmldom.DOMNode;
20630: l_parent_xml_node xmldom.DOMNode;
20631: l_out_xml_node xmldom.DOMNode;
20632: l_target_uicont_xml_node xmldom.DOMNode;
20633: l_new_xml_root_node xmldom.DOMNode;
20634: l_xml_node xmldom.DOMNode;
20635:
20636: l_source_xml_node xmldom.DOMNode;
20637: l_xml_uicont_node xmldom.DOMNode;
20630: l_parent_xml_node xmldom.DOMNode;
20631: l_out_xml_node xmldom.DOMNode;
20632: l_target_uicont_xml_node xmldom.DOMNode;
20633: l_new_xml_root_node xmldom.DOMNode;
20634: l_xml_node xmldom.DOMNode;
20635:
20636: l_source_xml_node xmldom.DOMNode;
20637: l_xml_uicont_node xmldom.DOMNode;
20638: l_xml_new_node xmldom.DOMNode;
20632: l_target_uicont_xml_node xmldom.DOMNode;
20633: l_new_xml_root_node xmldom.DOMNode;
20634: l_xml_node xmldom.DOMNode;
20635:
20636: l_source_xml_node xmldom.DOMNode;
20637: l_xml_uicont_node xmldom.DOMNode;
20638: l_xml_new_node xmldom.DOMNode;
20639: l_target_xml_node xmldom.DOMNode;
20640: l_stacklayout_node xmldom.DOMNode;
20633: l_new_xml_root_node xmldom.DOMNode;
20634: l_xml_node xmldom.DOMNode;
20635:
20636: l_source_xml_node xmldom.DOMNode;
20637: l_xml_uicont_node xmldom.DOMNode;
20638: l_xml_new_node xmldom.DOMNode;
20639: l_target_xml_node xmldom.DOMNode;
20640: l_stacklayout_node xmldom.DOMNode;
20641: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20634: l_xml_node xmldom.DOMNode;
20635:
20636: l_source_xml_node xmldom.DOMNode;
20637: l_xml_uicont_node xmldom.DOMNode;
20638: l_xml_new_node xmldom.DOMNode;
20639: l_target_xml_node xmldom.DOMNode;
20640: l_stacklayout_node xmldom.DOMNode;
20641: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20642:
20635:
20636: l_source_xml_node xmldom.DOMNode;
20637: l_xml_uicont_node xmldom.DOMNode;
20638: l_xml_new_node xmldom.DOMNode;
20639: l_target_xml_node xmldom.DOMNode;
20640: l_stacklayout_node xmldom.DOMNode;
20641: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20642:
20643: l_switcher_element_id VARCHAR2(255);
20636: l_source_xml_node xmldom.DOMNode;
20637: l_xml_uicont_node xmldom.DOMNode;
20638: l_xml_new_node xmldom.DOMNode;
20639: l_target_xml_node xmldom.DOMNode;
20640: l_stacklayout_node xmldom.DOMNode;
20641: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20642:
20643: l_switcher_element_id VARCHAR2(255);
20644: l_old_ui_element_id VARCHAR2(255);
20637: l_xml_uicont_node xmldom.DOMNode;
20638: l_xml_new_node xmldom.DOMNode;
20639: l_target_xml_node xmldom.DOMNode;
20640: l_stacklayout_node xmldom.DOMNode;
20641: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20642:
20643: l_switcher_element_id VARCHAR2(255);
20644: l_old_ui_element_id VARCHAR2(255);
20645: l_new_ui_element_id VARCHAR2(255);
20647: l_user_attribute3_value VARCHAR2(4000);
20648: l_switcher_casename VARCHAR2(255);
20649: l_switcher_xml_id VARCHAR2(255);
20650: l_uicase_name VARCHAR2(255);
20651: l_child_nodes_tbl xmldom.DOMNodeList;
20652: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20653: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20654: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
20655: l_attribute_value VARCHAR2(255);
20689: -- create UI Template in JRAD repository
20690: --
20691: l_template_xmldoc := parse_JRAD_Document(p_doc_full_name => l_template_jrad_doc);
20692:
20693: IF xmldom.isNull(l_template_xmldoc) THEN
20694: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20695: p_token_name => 'UI_TEMPLATE',
20696: p_token_value => l_template_jrad_doc,
20697: p_fatal_error => TRUE);
20699: END IF;
20700:
20701: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
20702:
20703: IF xmldom.isNull(l_xmldoc) THEN
20704: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20705: p_token_name => 'UI_TEMPLATE',
20706: p_token_value => l_jrad_doc,
20707: p_fatal_error => TRUE);
20717: p_ui_page_id => p_ui_page_id);
20718:
20719: l_target_uicont_xml_node := getUIContents(l_parent_xml_node);
20720:
20721: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
20722:
20723: x_new_element_id := get_Element_Id();
20724:
20725: set_Attribute(l_template_root_xml_node,
20730: p_ui_def_id => p_ui_def_id,
20731: p_ui_page_id => p_ui_page_id,
20732: p_ui_element_id => x_new_element_id);
20733:
20734: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
20735: l_length := xmldom.getLength(l_child_nodes_tbl);
20736: IF (l_length > 0) THEN
20737: FOR k IN 0..l_length-1
20738: LOOP
20731: p_ui_page_id => p_ui_page_id,
20732: p_ui_element_id => x_new_element_id);
20733:
20734: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
20735: l_length := xmldom.getLength(l_child_nodes_tbl);
20736: IF (l_length > 0) THEN
20737: FOR k IN 0..l_length-1
20738: LOOP
20739: --
20738: LOOP
20739: --
20740: -- get next child DOM node
20741: --
20742: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
20743:
20744: handle_UI_CASE_Id(l_xml_node);
20745:
20746: IF k > 0 THEN
20747: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
20748:
20749: /*
20750: IF l_attribute_value IS NOT NULL THEN
20751: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,l_attribute_value||'_'||x_new_element_id);
20752: --
20753: -- create a new copies for corresponding entities ( captions, rules ,... )
20754: --
20755: copy_Node_Related_Entities(p_ui_def_id => p_ui_def_id,
20755: copy_Node_Related_Entities(p_ui_def_id => p_ui_def_id,
20756: p_ui_page_id => p_ui_page_id,
20757: p_xml_node => l_xml_node);
20758: */
20759: l_parent_xml_node := xmldom.getParentNode(l_xml_node);
20760: IF l_attribute_value IS NOT NULL THEN
20761: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
20762:
20763: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
20757: p_xml_node => l_xml_node);
20758: */
20759: l_parent_xml_node := xmldom.getParentNode(l_xml_node);
20760: IF l_attribute_value IS NOT NULL THEN
20761: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
20762:
20763: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
20764: ( NOT(xmldom.isNull(l_parent_xml_node)) AND xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
20765: xmldom.getNodeName(l_parent_xml_node)='ui:case') THEN
20759: l_parent_xml_node := xmldom.getParentNode(l_xml_node);
20760: IF l_attribute_value IS NOT NULL THEN
20761: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
20762:
20763: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
20764: ( NOT(xmldom.isNull(l_parent_xml_node)) AND xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
20765: xmldom.getNodeName(l_parent_xml_node)='ui:case') THEN
20766:
20767: l_switcher_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:switcher');
20760: IF l_attribute_value IS NOT NULL THEN
20761: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
20762:
20763: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
20764: ( NOT(xmldom.isNull(l_parent_xml_node)) AND xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
20765: xmldom.getNodeName(l_parent_xml_node)='ui:case') THEN
20766:
20767: l_switcher_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:switcher');
20768:
20761: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
20762:
20763: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
20764: ( NOT(xmldom.isNull(l_parent_xml_node)) AND xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
20765: xmldom.getNodeName(l_parent_xml_node)='ui:case') THEN
20766:
20767: l_switcher_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:switcher');
20768:
20769: l_old_ui_element_id := SUBSTR(l_attribute_value,1,INSTR(l_attribute_value, '_')-1);
20770:
20771: l_new_ui_element_id := REPLACE(REPLACE(REPLACE(l_attribute_value,
20772: l_old_ui_element_id,
20773: l_switcher_element_id),'_czt','_czn'),'_czc','_czn');
20774: set_Attribute(xmldom.makeElement(l_xml_node),
20775: G_ID_ATTRIBUTE,
20776: l_new_ui_element_id);
20777:
20778: IF xmldom.getNodeName(l_parent_xml_node)='oa:switcher' THEN
20774: set_Attribute(xmldom.makeElement(l_xml_node),
20775: G_ID_ATTRIBUTE,
20776: l_new_ui_element_id);
20777:
20778: IF xmldom.getNodeName(l_parent_xml_node)='oa:switcher' THEN
20779: l_switcher_xml_id := get_Attribute_Value(l_parent_xml_node, G_ID_ATTRIBUTE);
20780: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
20781: set_Attribute(xmldom.makeElement(l_xml_node),
20782: 'name',
20777:
20778: IF xmldom.getNodeName(l_parent_xml_node)='oa:switcher' THEN
20779: l_switcher_xml_id := get_Attribute_Value(l_parent_xml_node, G_ID_ATTRIBUTE);
20780: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
20781: set_Attribute(xmldom.makeElement(l_xml_node),
20782: 'name',
20783: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'),'_czc','_czn'));
20784: END IF;
20785: --
20786: -- if current tag is
20787: -- then replace old id with new one
20788: --
20789:
20790: IF (xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
20791: xmldom.getNodeName(l_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL
20792: THEN
20793: set_Attribute(xmldom.makeElement(l_xml_node),
20794: G_ID_ATTRIBUTE,
20787: -- then replace old id with new one
20788: --
20789:
20790: IF (xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
20791: xmldom.getNodeName(l_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL
20792: THEN
20793: set_Attribute(xmldom.makeElement(l_xml_node),
20794: G_ID_ATTRIBUTE,
20795: REPLACE(REPLACE(get_Attribute_Value(l_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
20789:
20790: IF (xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
20791: xmldom.getNodeName(l_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL
20792: THEN
20793: set_Attribute(xmldom.makeElement(l_xml_node),
20794: G_ID_ATTRIBUTE,
20795: REPLACE(REPLACE(get_Attribute_Value(l_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
20796: END IF;
20797: ELSE
20794: G_ID_ATTRIBUTE,
20795: REPLACE(REPLACE(get_Attribute_Value(l_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
20796: END IF;
20797: ELSE
20798: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_attribute_value,'_czt','_czn'),'_czc','_czn')||'_'||x_new_element_id);
20799: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
20800: l_old_switcher_xml_id := l_attribute_value;
20801: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
20802: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
20795: REPLACE(REPLACE(get_Attribute_Value(l_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
20796: END IF;
20797: ELSE
20798: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_attribute_value,'_czt','_czn'),'_czc','_czn')||'_'||x_new_element_id);
20799: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
20800: l_old_switcher_xml_id := l_attribute_value;
20801: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
20802: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
20803: l_switcher_casename := REPLACE(l_switcher_casename,l_attribute_value, REPLACE(REPLACE(l_attribute_value,'_czt','_czn'),'_czc','_czn')||'_'||x_new_element_id);
20807:
20808: set_Attribute(l_xml_node,
20809: G_USER_ATTRIBUTE3_NAME,
20810: l_user_attribute3_value);
20811: END IF; -- end of IF xmldom.getNodeName(l_xml_node)='oa:switcher'
20812: END IF; -- end of IF xmldom.getNodeName(l_xml_node)='ui:case'
20813: --
20814: -- create a new copies for corresponding entities ( captions, rules ,... )
20815: --
20808: set_Attribute(l_xml_node,
20809: G_USER_ATTRIBUTE3_NAME,
20810: l_user_attribute3_value);
20811: END IF; -- end of IF xmldom.getNodeName(l_xml_node)='oa:switcher'
20812: END IF; -- end of IF xmldom.getNodeName(l_xml_node)='ui:case'
20813: --
20814: -- create a new copies for corresponding entities ( captions, rules ,... )
20815: --
20816: copy_Node_Related_Entities(p_ui_def_id => p_ui_def_id,
20824: --
20825: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
20826: --
20827:
20828: IF (xmldom.getNodeName(l_xml_node)='ui:case' AND xmldom.getNodeName(l_parent_xml_node)='oa:switcher')
20829: THEN
20830: l_switcher_xml_id := get_Attribute_Value(l_parent_xml_node, G_ID_ATTRIBUTE);
20831: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
20832: set_Attribute(xmldom.makeElement(l_xml_node),
20828: IF (xmldom.getNodeName(l_xml_node)='ui:case' AND xmldom.getNodeName(l_parent_xml_node)='oa:switcher')
20829: THEN
20830: l_switcher_xml_id := get_Attribute_Value(l_parent_xml_node, G_ID_ATTRIBUTE);
20831: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
20832: set_Attribute(xmldom.makeElement(l_xml_node),
20833: 'name',
20834: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'),'_czc','_czn'));
20835:
20836: handle_UI_CASE_Id(l_xml_node);
20848:
20849: --
20850: -- returns cloned DOM subtree
20851: --
20852: -- l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
20853: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_target_uicont_xml_node);
20854:
20855:
20856: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
20852: -- l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
20853: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_target_uicont_xml_node);
20854:
20855:
20856: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
20857: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
20858: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
20859: l_xml_new_node);
20860: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20853: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_target_uicont_xml_node);
20854:
20855:
20856: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
20857: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
20858: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
20859: l_xml_new_node);
20860: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20861: l_new_xml_root_node);
20854:
20855:
20856: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
20857: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
20858: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
20859: l_xml_new_node);
20860: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20861: l_new_xml_root_node);
20862:
20856: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
20857: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
20858: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
20859: l_xml_new_node);
20860: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20861: l_new_xml_root_node);
20862:
20863: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
20864:
20859: l_xml_new_node);
20860: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20861: l_new_xml_root_node);
20862:
20863: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
20864:
20865: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
20866: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
20867: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
20863: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
20864:
20865: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
20866: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
20867: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
20868:
20869: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
20870: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
20871: l_xml_new_node);
20865: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
20866: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
20867: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
20868:
20869: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
20870: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
20871: l_xml_new_node);
20872: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20873: l_new_xml_root_node);
20866: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
20867: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
20868:
20869: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
20870: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
20871: l_xml_new_node);
20872: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20873: l_new_xml_root_node);
20874:
20868:
20869: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
20870: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
20871: l_xml_new_node);
20872: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20873: l_new_xml_root_node);
20874:
20875: ELSE
20876: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
20872: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
20873: l_new_xml_root_node);
20874:
20875: ELSE
20876: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
20877: l_new_xml_root_node);
20878: END IF;
20879:
20880: ELSE
20877: l_new_xml_root_node);
20878: END IF;
20879:
20880: ELSE
20881: l_out_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
20882: l_new_xml_root_node);
20883:
20884: END IF;
20885:
20935: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
20936: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20937: ) IS
20938:
20939: l_template_xmldoc xmldom.DOMDocument;
20940: l_xmldoc xmldom.DOMDocument;
20941: l_template_root_xml_node xmldom.DOMNode;
20942: l_parent_xml_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20936: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20937: ) IS
20938:
20939: l_template_xmldoc xmldom.DOMDocument;
20940: l_xmldoc xmldom.DOMDocument;
20941: l_template_root_xml_node xmldom.DOMNode;
20942: l_parent_xml_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20937: ) IS
20938:
20939: l_template_xmldoc xmldom.DOMDocument;
20940: l_xmldoc xmldom.DOMDocument;
20941: l_template_root_xml_node xmldom.DOMNode;
20942: l_parent_xml_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20945: l_target_uicont_xml_node xmldom.DOMNode;
20938:
20939: l_template_xmldoc xmldom.DOMDocument;
20940: l_xmldoc xmldom.DOMDocument;
20941: l_template_root_xml_node xmldom.DOMNode;
20942: l_parent_xml_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20945: l_target_uicont_xml_node xmldom.DOMNode;
20946: l_new_xml_root_node xmldom.DOMNode;
20939: l_template_xmldoc xmldom.DOMDocument;
20940: l_xmldoc xmldom.DOMDocument;
20941: l_template_root_xml_node xmldom.DOMNode;
20942: l_parent_xml_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20945: l_target_uicont_xml_node xmldom.DOMNode;
20946: l_new_xml_root_node xmldom.DOMNode;
20947: l_xml_node xmldom.DOMNode;
20940: l_xmldoc xmldom.DOMDocument;
20941: l_template_root_xml_node xmldom.DOMNode;
20942: l_parent_xml_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20945: l_target_uicont_xml_node xmldom.DOMNode;
20946: l_new_xml_root_node xmldom.DOMNode;
20947: l_xml_node xmldom.DOMNode;
20948: l_stacklayout_node xmldom.DOMNode;
20941: l_template_root_xml_node xmldom.DOMNode;
20942: l_parent_xml_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20945: l_target_uicont_xml_node xmldom.DOMNode;
20946: l_new_xml_root_node xmldom.DOMNode;
20947: l_xml_node xmldom.DOMNode;
20948: l_stacklayout_node xmldom.DOMNode;
20949: l_xml_new_node xmldom.DOMNode;
20942: l_parent_xml_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20945: l_target_uicont_xml_node xmldom.DOMNode;
20946: l_new_xml_root_node xmldom.DOMNode;
20947: l_xml_node xmldom.DOMNode;
20948: l_stacklayout_node xmldom.DOMNode;
20949: l_xml_new_node xmldom.DOMNode;
20950: l_xml_uicont_node xmldom.DOMNode;
20943: l_temp_parent_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20945: l_target_uicont_xml_node xmldom.DOMNode;
20946: l_new_xml_root_node xmldom.DOMNode;
20947: l_xml_node xmldom.DOMNode;
20948: l_stacklayout_node xmldom.DOMNode;
20949: l_xml_new_node xmldom.DOMNode;
20950: l_xml_uicont_node xmldom.DOMNode;
20951: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20944: l_out_xml_node xmldom.DOMNode;
20945: l_target_uicont_xml_node xmldom.DOMNode;
20946: l_new_xml_root_node xmldom.DOMNode;
20947: l_xml_node xmldom.DOMNode;
20948: l_stacklayout_node xmldom.DOMNode;
20949: l_xml_new_node xmldom.DOMNode;
20950: l_xml_uicont_node xmldom.DOMNode;
20951: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20952: l_xml_switcher_id VARCHAR2(255);
20945: l_target_uicont_xml_node xmldom.DOMNode;
20946: l_new_xml_root_node xmldom.DOMNode;
20947: l_xml_node xmldom.DOMNode;
20948: l_stacklayout_node xmldom.DOMNode;
20949: l_xml_new_node xmldom.DOMNode;
20950: l_xml_uicont_node xmldom.DOMNode;
20951: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20952: l_xml_switcher_id VARCHAR2(255);
20953: l_switcher_element_id VARCHAR2(255);
20946: l_new_xml_root_node xmldom.DOMNode;
20947: l_xml_node xmldom.DOMNode;
20948: l_stacklayout_node xmldom.DOMNode;
20949: l_xml_new_node xmldom.DOMNode;
20950: l_xml_uicont_node xmldom.DOMNode;
20951: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20952: l_xml_switcher_id VARCHAR2(255);
20953: l_switcher_element_id VARCHAR2(255);
20954: l_old_ui_element_id VARCHAR2(255);
20947: l_xml_node xmldom.DOMNode;
20948: l_stacklayout_node xmldom.DOMNode;
20949: l_xml_new_node xmldom.DOMNode;
20950: l_xml_uicont_node xmldom.DOMNode;
20951: l_stacklayout_uicont_xml_node xmldom.DOMNode;
20952: l_xml_switcher_id VARCHAR2(255);
20953: l_switcher_element_id VARCHAR2(255);
20954: l_old_ui_element_id VARCHAR2(255);
20955: l_new_ui_element_id VARCHAR2(255);
20954: l_old_ui_element_id VARCHAR2(255);
20955: l_new_ui_element_id VARCHAR2(255);
20956: l_user_attribute3_value VARCHAR2(4000);
20957: l_switcher_casename VARCHAR2(255);
20958: l_child_nodes_tbl xmldom.DOMNodeList;
20959: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20960: l_target_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20961: l_attribute_value VARCHAR2(255);
20962: l_length NUMBER;
20991: -- create UI Template in JRAD repository
20992: --
20993: l_template_xmldoc := parse_JRAD_Document(p_doc_full_name => l_template_jrad_doc);
20994:
20995: IF xmldom.isNull(l_template_xmldoc) THEN
20996: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20997: p_token_name => 'UI_TEMPLATE',
20998: p_token_value => l_template_jrad_doc,
20999: p_fatal_error => TRUE);
21002: END IF;
21003:
21004: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_target_template_jrad_doc);
21005:
21006: IF xmldom.isNull(l_xmldoc) THEN
21007: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
21008: p_token_name => 'UI_TEMPLATE',
21009: p_token_value => l_template_jrad_doc,
21010: p_fatal_error => TRUE);
21011: RAISE WRONG_UI_TEMPLATE;
21012: END IF;
21013:
21014: IF p_parent_element_id IS NULL THEN
21015: l_parent_xml_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
21016: ELSE
21017: l_parent_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_xmldoc,
21018: p_attribute_name => G_ID_ATTRIBUTE,
21019: p_attribute_value => p_parent_element_id);
21020: END IF;
21021:
21022: l_target_uicont_xml_node := getUIContents(l_parent_xml_node,G_YES_FLAG);
21023:
21024: l_template_root_xml_node := xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
21025:
21026: x_new_element_id := get_Element_Id();
21027:
21028: l_new_ui_element_id := x_new_element_id;
21030: set_Attribute(l_template_root_xml_node,
21031: G_ID_ATTRIBUTE,
21032: x_new_element_id);
21033:
21034: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
21035: l_length := xmldom.getLength(l_child_nodes_tbl);
21036: IF (l_length > 0) THEN
21037: FOR k IN 0..l_length-1
21038: LOOP
21031: G_ID_ATTRIBUTE,
21032: x_new_element_id);
21033:
21034: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
21035: l_length := xmldom.getLength(l_child_nodes_tbl);
21036: IF (l_length > 0) THEN
21037: FOR k IN 0..l_length-1
21038: LOOP
21039: --
21038: LOOP
21039: --
21040: -- get next child DOM node
21041: --
21042: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
21043:
21044: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
21045: l_new_ui_element_id := l_attribute_value||'_'||x_new_element_id;
21046:
21085:
21086: --
21087: -- returns cloned DOM subtree
21088: --
21089: -- l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
21090: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_parent_xml_node);
21091:
21092:
21093: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
21089: -- l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
21090: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_parent_xml_node);
21091:
21092:
21093: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
21094: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
21095: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
21096: l_xml_new_node);
21097: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21090: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_parent_xml_node);
21091:
21092:
21093: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
21094: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
21095: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
21096: l_xml_new_node);
21097: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21098: l_new_xml_root_node);
21091:
21092:
21093: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
21094: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
21095: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
21096: l_xml_new_node);
21097: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21098: l_new_xml_root_node);
21099: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
21093: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
21094: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
21095: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
21096: l_xml_new_node);
21097: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21098: l_new_xml_root_node);
21099: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
21100: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
21101: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
21095: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
21096: l_xml_new_node);
21097: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21098: l_new_xml_root_node);
21099: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
21100: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
21101: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
21102: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
21103:
21098: l_new_xml_root_node);
21099: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
21100: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
21101: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
21102: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
21103:
21104: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
21105: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
21106: l_xml_new_node);
21100: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
21101: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
21102: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
21103:
21104: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
21105: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
21106: l_xml_new_node);
21107: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21108: l_new_xml_root_node);
21101: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
21102: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
21103:
21104: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
21105: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
21106: l_xml_new_node);
21107: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21108: l_new_xml_root_node);
21109:
21103:
21104: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
21105: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
21106: l_xml_new_node);
21107: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21108: l_new_xml_root_node);
21109:
21110: ELSE
21111: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
21107: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
21108: l_new_xml_root_node);
21109:
21110: ELSE
21111: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
21112: l_new_xml_root_node);
21113: END IF;
21114:
21115: ELSE
21112: l_new_xml_root_node);
21113: END IF;
21114:
21115: ELSE
21116: l_out_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
21117: l_new_xml_root_node);
21118: END IF;
21119:
21120: refresh_Templ_Ref_Counts(l_xmldoc, p_target_template_ui_def_id, p_target_template_id);
21177: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
21178: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
21179: ) IS
21180:
21181: l_template_xmldoc xmldom.DOMDocument;
21182: l_xmldoc xmldom.DOMDocument;
21183: l_template_root_xml_node xmldom.DOMNode;
21184: l_out_xml_node xmldom.DOMNode;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21178: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
21179: ) IS
21180:
21181: l_template_xmldoc xmldom.DOMDocument;
21182: l_xmldoc xmldom.DOMDocument;
21183: l_template_root_xml_node xmldom.DOMNode;
21184: l_out_xml_node xmldom.DOMNode;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21186: l_new_xml_root_node xmldom.DOMNode;
21179: ) IS
21180:
21181: l_template_xmldoc xmldom.DOMDocument;
21182: l_xmldoc xmldom.DOMDocument;
21183: l_template_root_xml_node xmldom.DOMNode;
21184: l_out_xml_node xmldom.DOMNode;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21186: l_new_xml_root_node xmldom.DOMNode;
21187: l_xml_node xmldom.DOMNode;
21180:
21181: l_template_xmldoc xmldom.DOMDocument;
21182: l_xmldoc xmldom.DOMDocument;
21183: l_template_root_xml_node xmldom.DOMNode;
21184: l_out_xml_node xmldom.DOMNode;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21186: l_new_xml_root_node xmldom.DOMNode;
21187: l_xml_node xmldom.DOMNode;
21188: l_root_xml_node xmldom.DOMNode;
21181: l_template_xmldoc xmldom.DOMDocument;
21182: l_xmldoc xmldom.DOMDocument;
21183: l_template_root_xml_node xmldom.DOMNode;
21184: l_out_xml_node xmldom.DOMNode;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21186: l_new_xml_root_node xmldom.DOMNode;
21187: l_xml_node xmldom.DOMNode;
21188: l_root_xml_node xmldom.DOMNode;
21189: l_parent_xml_node xmldom.DOMNode;
21182: l_xmldoc xmldom.DOMDocument;
21183: l_template_root_xml_node xmldom.DOMNode;
21184: l_out_xml_node xmldom.DOMNode;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21186: l_new_xml_root_node xmldom.DOMNode;
21187: l_xml_node xmldom.DOMNode;
21188: l_root_xml_node xmldom.DOMNode;
21189: l_parent_xml_node xmldom.DOMNode;
21190: l_child_nodes_tbl xmldom.DOMNodeList;
21183: l_template_root_xml_node xmldom.DOMNode;
21184: l_out_xml_node xmldom.DOMNode;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21186: l_new_xml_root_node xmldom.DOMNode;
21187: l_xml_node xmldom.DOMNode;
21188: l_root_xml_node xmldom.DOMNode;
21189: l_parent_xml_node xmldom.DOMNode;
21190: l_child_nodes_tbl xmldom.DOMNodeList;
21191: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21184: l_out_xml_node xmldom.DOMNode;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21186: l_new_xml_root_node xmldom.DOMNode;
21187: l_xml_node xmldom.DOMNode;
21188: l_root_xml_node xmldom.DOMNode;
21189: l_parent_xml_node xmldom.DOMNode;
21190: l_child_nodes_tbl xmldom.DOMNodeList;
21191: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21192: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21185: l_curr_parent_xml_node xmldom.DOMNode;
21186: l_new_xml_root_node xmldom.DOMNode;
21187: l_xml_node xmldom.DOMNode;
21188: l_root_xml_node xmldom.DOMNode;
21189: l_parent_xml_node xmldom.DOMNode;
21190: l_child_nodes_tbl xmldom.DOMNodeList;
21191: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21192: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21193: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
21186: l_new_xml_root_node xmldom.DOMNode;
21187: l_xml_node xmldom.DOMNode;
21188: l_root_xml_node xmldom.DOMNode;
21189: l_parent_xml_node xmldom.DOMNode;
21190: l_child_nodes_tbl xmldom.DOMNodeList;
21191: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21192: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21193: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
21194: l_node_map_tbl xmldom.DOMNamedNodeMap;
21190: l_child_nodes_tbl xmldom.DOMNodeList;
21191: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21192: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21193: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
21194: l_node_map_tbl xmldom.DOMNamedNodeMap;
21195: l_node_attr xmldom.DOMNode;
21196: l_prev_xml_node xmldom.DOMNode;
21197: l_root_attr_names_tbl varchar_tbl_type;
21198: l_root_attr_values_tbl varchar_tbl_type;
21191: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21192: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21193: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
21194: l_node_map_tbl xmldom.DOMNamedNodeMap;
21195: l_node_attr xmldom.DOMNode;
21196: l_prev_xml_node xmldom.DOMNode;
21197: l_root_attr_names_tbl varchar_tbl_type;
21198: l_root_attr_values_tbl varchar_tbl_type;
21199:
21192: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
21193: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
21194: l_node_map_tbl xmldom.DOMNamedNodeMap;
21195: l_node_attr xmldom.DOMNode;
21196: l_prev_xml_node xmldom.DOMNode;
21197: l_root_attr_names_tbl varchar_tbl_type;
21198: l_root_attr_values_tbl varchar_tbl_type;
21199:
21200: l_root_element_signature_id NUMBER;
21246: Open_Parser();
21247:
21248: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
21249:
21250: IF xmldom.isNull(l_xmldoc) THEN
21251: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
21252: p_token_name => 'UI_TEMPLATE',
21253: p_token_value => l_jrad_doc,
21254: p_fatal_error => TRUE);
21372:
21373:
21374: l_template_xmldoc := parse_JRAD_Document(p_doc_full_name => l_template_jrad_doc);
21375:
21376: IF xmldom.isNull(l_template_xmldoc) THEN
21377: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
21378: p_token_name => 'UI_TEMPLATE',
21379: p_token_value => l_template_jrad_doc,
21380: p_fatal_error => TRUE);
21380: p_fatal_error => TRUE);
21381: RAISE WRONG_UI_TEMPLATE;
21382: END IF;
21383:
21384: l_parent_xml_node := xmldom.getParentNode(l_root_xml_node);
21385: l_prev_xml_node := xmldom.getNextSibling(l_root_xml_node);
21386:
21387: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
21388:
21381: RAISE WRONG_UI_TEMPLATE;
21382: END IF;
21383:
21384: l_parent_xml_node := xmldom.getParentNode(l_root_xml_node);
21385: l_prev_xml_node := xmldom.getNextSibling(l_root_xml_node);
21386:
21387: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
21388:
21389: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
21383:
21384: l_parent_xml_node := xmldom.getParentNode(l_root_xml_node);
21385: l_prev_xml_node := xmldom.getNextSibling(l_root_xml_node);
21386:
21387: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
21388:
21389: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
21390: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
21391: l_length := xmldom.getLength(l_node_map_tbl);
21385: l_prev_xml_node := xmldom.getNextSibling(l_root_xml_node);
21386:
21387: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
21388:
21389: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
21390: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
21391: l_length := xmldom.getLength(l_node_map_tbl);
21392: --
21393: -- loop through attributes
21386:
21387: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
21388:
21389: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
21390: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
21391: l_length := xmldom.getLength(l_node_map_tbl);
21392: --
21393: -- loop through attributes
21394: --
21387: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
21388:
21389: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
21390: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
21391: l_length := xmldom.getLength(l_node_map_tbl);
21392: --
21393: -- loop through attributes
21394: --
21395: FOR i IN 0 .. l_length - 1
21393: -- loop through attributes
21394: --
21395: FOR i IN 0 .. l_length - 1
21396: LOOP
21397: l_node_attr := xmldom.item(l_node_map_tbl, i);
21398: IF xmldom.getNodeName(l_node_attr) <> 'extends' THEN
21399: l_index := l_root_attr_names_tbl.COUNT + 1;
21400: l_root_attr_names_tbl(l_index) := xmldom.getNodeName(l_node_attr);
21401: l_root_attr_values_tbl(l_index):= xmldom.getNodeValue(l_node_attr);
21394: --
21395: FOR i IN 0 .. l_length - 1
21396: LOOP
21397: l_node_attr := xmldom.item(l_node_map_tbl, i);
21398: IF xmldom.getNodeName(l_node_attr) <> 'extends' THEN
21399: l_index := l_root_attr_names_tbl.COUNT + 1;
21400: l_root_attr_names_tbl(l_index) := xmldom.getNodeName(l_node_attr);
21401: l_root_attr_values_tbl(l_index):= xmldom.getNodeValue(l_node_attr);
21402: END IF;
21396: LOOP
21397: l_node_attr := xmldom.item(l_node_map_tbl, i);
21398: IF xmldom.getNodeName(l_node_attr) <> 'extends' THEN
21399: l_index := l_root_attr_names_tbl.COUNT + 1;
21400: l_root_attr_names_tbl(l_index) := xmldom.getNodeName(l_node_attr);
21401: l_root_attr_values_tbl(l_index):= xmldom.getNodeValue(l_node_attr);
21402: END IF;
21403: END LOOP;
21404: END IF;
21397: l_node_attr := xmldom.item(l_node_map_tbl, i);
21398: IF xmldom.getNodeName(l_node_attr) <> 'extends' THEN
21399: l_index := l_root_attr_names_tbl.COUNT + 1;
21400: l_root_attr_names_tbl(l_index) := xmldom.getNodeName(l_node_attr);
21401: l_root_attr_values_tbl(l_index):= xmldom.getNodeValue(l_node_attr);
21402: END IF;
21403: END LOOP;
21404: END IF;
21405:
21402: END IF;
21403: END LOOP;
21404: END IF;
21405:
21406: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
21407: l_length := xmldom.getLength(l_child_nodes_tbl);
21408: IF (l_length > 0) THEN
21409: FOR k IN 0..l_length-1
21410: LOOP
21403: END LOOP;
21404: END IF;
21405:
21406: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
21407: l_length := xmldom.getLength(l_child_nodes_tbl);
21408: IF (l_length > 0) THEN
21409: FOR k IN 0..l_length-1
21410: LOOP
21411: --
21410: LOOP
21411: --
21412: -- get next child DOM node
21413: --
21414: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
21415: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
21416:
21417: IF k > 0 THEN
21418:
21411: --
21412: -- get next child DOM node
21413: --
21414: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
21415: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
21416:
21417: IF k > 0 THEN
21418:
21419: l_xml_node_name := xmldom.getNodeName(l_xml_node);
21415: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
21416:
21417: IF k > 0 THEN
21418:
21419: l_xml_node_name := xmldom.getNodeName(l_xml_node);
21420:
21421: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
21422:
21423: IF l_attribute_value IS NOT NULL THEN --???
21421: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
21422:
21423: IF l_attribute_value IS NOT NULL THEN --???
21424: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,l_new_id_attribute);
21425: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'),'_czc','_czn'));
21426: END IF;
21427:
21428: l_ancestor_node := get_Attribute_Value(l_xml_node,
21429: 'ancestorNode');
21429: 'ancestorNode');
21430: IF l_ancestor_node IS NOT NULL THEN
21431:
21432: l_hgrid_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:tree');
21433: IF NOT(xmldom.IsNull(l_xml_node)) THEN
21434: l_ancestor_node := l_jrad_doc||'.'||l_hgrid_element_id;
21435:
21436: set_Attribute(l_xml_node,
21437: 'ancestorNode',
21441:
21442: --
21443: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
21444: --
21445: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
21446: l_old_switcher_xml_id := l_attribute_value;
21447: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
21448: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
21449: l_switcher_casename := REPLACE(REPLACE(REPLACE(l_switcher_casename,l_attribute_value, l_new_attribute_value),'_czt','_czn'),'_czc','_czn');
21458:
21459: --
21460: -- set value of attribute "name" of
21461: --
21462: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
21463: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
21464: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
21465: set_Attribute(xmldom.makeElement(l_xml_node),
21466: 'name',
21461: --
21462: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
21463: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
21464: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
21465: set_Attribute(xmldom.makeElement(l_xml_node),
21466: 'name',
21467: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'),'_czc','_czn'));
21468: handle_UI_CASE_Id(l_xml_node);
21469: END IF;
21472: -- if current tag is
21473: -- then replace old id with new one
21474: --
21475: IF (l_xml_node_name='oa:stackLayout' AND
21476: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
21477: set_Attribute(xmldom.makeElement(l_xml_node),
21478: G_ID_ATTRIBUTE,
21479: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
21480: END IF;
21473: -- then replace old id with new one
21474: --
21475: IF (l_xml_node_name='oa:stackLayout' AND
21476: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
21477: set_Attribute(xmldom.makeElement(l_xml_node),
21478: G_ID_ATTRIBUTE,
21479: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
21480: END IF;
21481:
21499: END IF; -- end of IF k > 0 THEN
21500: END LOOP; -- end of FOR k IN 0..l_length-1
21501: END IF; -- end of IF (l_length > 0) THEN
21502:
21503: l_out_xml_node:=xmldom.removeChild(l_parent_xml_node,l_root_xml_node);
21504:
21505: --
21506: -- remove common attributes of container and subtree
21507: --
21509:
21510: --
21511: -- returns cloned DOM subtree
21512: --
21513: --l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
21514: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_root_xml_node);
21515:
21516: l_out_xml_node := insert_before(l_parent_xml_node,l_new_xml_root_node,l_prev_xml_node);
21517: