[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);
969: RAISE;
970: END IF;
971: END Close_Parser;
972:
973: FUNCTION cloneNode(p_source_xml_node xmldom.DOMNode, p_target_subtree_xml_node xmldom.DOMNode) RETURN xmldom.DOMNode IS
974:
975: l_xmldoc xmldom.DOMDocument;
976:
977: BEGIN
971: END Close_Parser;
972:
973: FUNCTION cloneNode(p_source_xml_node xmldom.DOMNode, p_target_subtree_xml_node xmldom.DOMNode) RETURN xmldom.DOMNode IS
974:
975: l_xmldoc xmldom.DOMDocument;
976:
977: BEGIN
978:
979: l_xmldoc := xmldom.getOwnerDocument(p_target_subtree_xml_node);
975: l_xmldoc xmldom.DOMDocument;
976:
977: BEGIN
978:
979: l_xmldoc := xmldom.getOwnerDocument(p_target_subtree_xml_node);
980:
981: BEGIN
982:
983: CZ_UIOA_PVT.g_temp_xmldoc := l_xmldoc;
984: CZ_UIOA_PVT.g_temp_source_xml_node := p_source_xml_node;
985:
986: EXECUTE IMMEDIATE
987: 'BEGIN ' ||
988: ' CZ_UIOA_PVT.g_temp_xml_node := XMLDOM.importNode(CZ_UIOA_PVT.g_temp_xmldoc, CZ_UIOA_PVT.g_temp_source_xml_node, TRUE); ' ||
989: 'END;';
990:
991: RETURN CZ_UIOA_PVT.g_temp_xml_node;
992:
991: RETURN CZ_UIOA_PVT.g_temp_xml_node;
992:
993: EXCEPTION
994: WHEN OTHERS THEN
995: IF SQLCODE=-6550 THEN -- there is no function importNode() in XMLDOM
996: RETURN xmldom.cloneNode(p_source_xml_node, TRUE);
997: ELSE
998: RAISE;
999: END IF;
992:
993: EXCEPTION
994: WHEN OTHERS THEN
995: IF SQLCODE=-6550 THEN -- there is no function importNode() in XMLDOM
996: RETURN xmldom.cloneNode(p_source_xml_node, TRUE);
997: ELSE
998: RAISE;
999: END IF;
1000: END;
2029: PROCEDURE save_Template_As_Local
2030: (p_template_id IN NUMBER,
2031: p_ui_def_id IN NUMBER) IS
2032:
2033: l_xmldoc xmldom.DOMDocument;
2034: l_jrad_doc VARCHAR2(4000);
2035: l_template_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
2036:
2037: BEGIN
2047: -- create UI Template in JRAD repository
2048: --
2049: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_template_jrad_doc);
2050:
2051: IF xmldom.isNull(l_xmldoc) THEN
2052: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
2053: p_token_name => 'UI_TEMPLATE',
2054: p_token_value => l_template_jrad_doc,
2055: p_fatal_error => TRUE);
3407: -- remove common attributes in case when we attach template
3408: -- starting with DOM node p_node
3409: -- Parameters : p_node - identifies DOM node of subtree's root
3410: --
3411: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
3412: l_root_elem xmldom.DOMElement;
3413: BEGIN
3414: l_root_elem := xmldom.makeElement(p_node);
3415: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
3408: -- starting with DOM node p_node
3409: -- Parameters : p_node - identifies DOM node of subtree's root
3410: --
3411: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
3412: l_root_elem xmldom.DOMElement;
3413: BEGIN
3414: l_root_elem := xmldom.makeElement(p_node);
3415: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
3416: LOOP
3410: --
3411: PROCEDURE remove_TopLevel_Attributes(p_node xmldom.DOMNode) IS
3412: l_root_elem xmldom.DOMElement;
3413: BEGIN
3414: l_root_elem := xmldom.makeElement(p_node);
3415: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
3416: LOOP
3417: BEGIN
3418: xmldom.removeAttribute(l_root_elem, g_toplevel_attr_tbl(i));
3414: l_root_elem := xmldom.makeElement(p_node);
3415: FOR i IN g_toplevel_attr_tbl.FIRST .. g_toplevel_attr_tbl.LAST
3416: LOOP
3417: BEGIN
3418: xmldom.removeAttribute(l_root_elem, g_toplevel_attr_tbl(i));
3419: EXCEPTION
3420: WHEN OTHERS THEN
3421: NULL;
3422: END;
3425:
3426: --
3427: -- remove non user attributes from a given XML node
3428: --
3429: PROCEDURE remove_Non_User_Attributes(p_node xmldom.DOMNode) IS
3430:
3431: l_root_elem xmldom.DOMElement;
3432: l_node_map_tbl xmldom.DOMNamedNodeMap;
3433: l_node_attr xmldom.DOMNode;
3427: -- remove non user attributes from a given XML node
3428: --
3429: PROCEDURE remove_Non_User_Attributes(p_node xmldom.DOMNode) IS
3430:
3431: l_root_elem xmldom.DOMElement;
3432: l_node_map_tbl xmldom.DOMNamedNodeMap;
3433: l_node_attr xmldom.DOMNode;
3434: l_attr_name VARCHAR2(32000);
3435: l_length NUMBER;
3428: --
3429: PROCEDURE remove_Non_User_Attributes(p_node xmldom.DOMNode) IS
3430:
3431: l_root_elem xmldom.DOMElement;
3432: l_node_map_tbl xmldom.DOMNamedNodeMap;
3433: l_node_attr xmldom.DOMNode;
3434: l_attr_name VARCHAR2(32000);
3435: l_length NUMBER;
3436:
3429: PROCEDURE remove_Non_User_Attributes(p_node xmldom.DOMNode) IS
3430:
3431: l_root_elem xmldom.DOMElement;
3432: l_node_map_tbl xmldom.DOMNamedNodeMap;
3433: l_node_attr xmldom.DOMNode;
3434: l_attr_name VARCHAR2(32000);
3435: l_length NUMBER;
3436:
3437: BEGIN
3435: l_length NUMBER;
3436:
3437: BEGIN
3438:
3439: l_root_elem := xmldom.makeElement(p_node);
3440:
3441: l_node_map_tbl := xmldom.getAttributes(p_node);
3442: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3443: l_length := xmldom.getLength(l_node_map_tbl);
3437: BEGIN
3438:
3439: l_root_elem := xmldom.makeElement(p_node);
3440:
3441: l_node_map_tbl := xmldom.getAttributes(p_node);
3442: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3443: l_length := xmldom.getLength(l_node_map_tbl);
3444: --
3445: -- loop through attributes
3438:
3439: l_root_elem := xmldom.makeElement(p_node);
3440:
3441: l_node_map_tbl := xmldom.getAttributes(p_node);
3442: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3443: l_length := xmldom.getLength(l_node_map_tbl);
3444: --
3445: -- loop through attributes
3446: --
3439: l_root_elem := xmldom.makeElement(p_node);
3440:
3441: l_node_map_tbl := xmldom.getAttributes(p_node);
3442: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3443: l_length := xmldom.getLength(l_node_map_tbl);
3444: --
3445: -- loop through attributes
3446: --
3447: FOR i IN 0 .. l_length - 1
3445: -- loop through attributes
3446: --
3447: FOR i IN 0 .. l_length - 1
3448: LOOP
3449: l_node_attr := xmldom.item(l_node_map_tbl, i);
3450:
3451: IF NOT(xmldom.isNull(l_node_attr)) THEN
3452: l_attr_name := xmldom.getNodeName(l_node_attr);
3453: IF (lower(l_attr_name) not like ('user:attribute%') AND
3447: FOR i IN 0 .. l_length - 1
3448: LOOP
3449: l_node_attr := xmldom.item(l_node_map_tbl, i);
3450:
3451: IF NOT(xmldom.isNull(l_node_attr)) THEN
3452: l_attr_name := xmldom.getNodeName(l_node_attr);
3453: IF (lower(l_attr_name) not like ('user:attribute%') AND
3454: lower(l_attr_name) <> G_ID_ATTRIBUTE) OR
3455: lower(l_attr_name)=G_USER_ATTRIBUTE10_NAME THEN
3448: LOOP
3449: l_node_attr := xmldom.item(l_node_map_tbl, i);
3450:
3451: IF NOT(xmldom.isNull(l_node_attr)) THEN
3452: l_attr_name := xmldom.getNodeName(l_node_attr);
3453: IF (lower(l_attr_name) not like ('user:attribute%') AND
3454: lower(l_attr_name) <> G_ID_ATTRIBUTE) OR
3455: lower(l_attr_name)=G_USER_ATTRIBUTE10_NAME THEN
3456: xmldom.removeAttribute(l_root_elem, l_attr_name);
3452: l_attr_name := xmldom.getNodeName(l_node_attr);
3453: IF (lower(l_attr_name) not like ('user:attribute%') AND
3454: lower(l_attr_name) <> G_ID_ATTRIBUTE) OR
3455: lower(l_attr_name)=G_USER_ATTRIBUTE10_NAME THEN
3456: xmldom.removeAttribute(l_root_elem, l_attr_name);
3457: END IF;
3458: END IF;
3459: END LOOP;
3460: END IF;
3589: -- p_node - DOM node
3590: -- p_attr_name - attribute name
3591: -- Return : attribute value as VARCHAR2 string
3592: --
3593: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
3594: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3595:
3596: l_node_map_tbl xmldom.DOMNamedNodeMap;
3597: l_node_attr xmldom.DOMNode;
3592: --
3593: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
3594: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3595:
3596: l_node_map_tbl xmldom.DOMNamedNodeMap;
3597: l_node_attr xmldom.DOMNode;
3598: l_attr_value VARCHAR2(32000);
3599: l_length NUMBER;
3600:
3593: FUNCTION get_Attribute_Value(p_node IN xmldom.DOMNode,
3594: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3595:
3596: l_node_map_tbl xmldom.DOMNamedNodeMap;
3597: l_node_attr xmldom.DOMNode;
3598: l_attr_value VARCHAR2(32000);
3599: l_length NUMBER;
3600:
3601: BEGIN
3598: l_attr_value VARCHAR2(32000);
3599: l_length NUMBER;
3600:
3601: BEGIN
3602: IF xmldom.IsNull(p_node) THEN
3603: RETURN NULL;
3604: END IF;
3605: l_node_map_tbl := xmldom.getAttributes(p_node);
3606:
3601: BEGIN
3602: IF xmldom.IsNull(p_node) THEN
3603: RETURN NULL;
3604: END IF;
3605: l_node_map_tbl := xmldom.getAttributes(p_node);
3606:
3607: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3608: l_length := xmldom.getLength(l_node_map_tbl);
3609: --
3603: RETURN NULL;
3604: END IF;
3605: l_node_map_tbl := xmldom.getAttributes(p_node);
3606:
3607: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3608: l_length := xmldom.getLength(l_node_map_tbl);
3609: --
3610: -- loop through attributes
3611: --
3604: END IF;
3605: l_node_map_tbl := xmldom.getAttributes(p_node);
3606:
3607: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3608: l_length := xmldom.getLength(l_node_map_tbl);
3609: --
3610: -- loop through attributes
3611: --
3612: FOR i IN 0 .. l_length - 1
3610: -- loop through attributes
3611: --
3612: FOR i IN 0 .. l_length - 1
3613: LOOP
3614: l_node_attr := xmldom.item(l_node_map_tbl, i);
3615: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3616: l_attr_value := xmldom.getNodeValue(l_node_attr);
3617: EXIT;
3618: END IF;
3611: --
3612: FOR i IN 0 .. l_length - 1
3613: LOOP
3614: l_node_attr := xmldom.item(l_node_map_tbl, i);
3615: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3616: l_attr_value := xmldom.getNodeValue(l_node_attr);
3617: EXIT;
3618: END IF;
3619: END LOOP;
3612: FOR i IN 0 .. l_length - 1
3613: LOOP
3614: l_node_attr := xmldom.item(l_node_map_tbl, i);
3615: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3616: l_attr_value := xmldom.getNodeValue(l_node_attr);
3617: EXIT;
3618: END IF;
3619: END LOOP;
3620: END IF;
3620: END IF;
3621: RETURN l_attr_value;
3622: END get_Attribute_Value;
3623:
3624: FUNCTION attribute_Value(p_node IN xmldom.DOMNode,
3625: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3626:
3627: l_node_map_tbl xmldom.DOMNamedNodeMap;
3628: l_node_attr xmldom.DOMNode;
3623:
3624: FUNCTION attribute_Value(p_node IN xmldom.DOMNode,
3625: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3626:
3627: l_node_map_tbl xmldom.DOMNamedNodeMap;
3628: l_node_attr xmldom.DOMNode;
3629: l_attr_value VARCHAR2(32000);
3630: l_length NUMBER;
3631:
3624: FUNCTION attribute_Value(p_node IN xmldom.DOMNode,
3625: p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS
3626:
3627: l_node_map_tbl xmldom.DOMNamedNodeMap;
3628: l_node_attr xmldom.DOMNode;
3629: l_attr_value VARCHAR2(32000);
3630: l_length NUMBER;
3631:
3632: BEGIN
3629: l_attr_value VARCHAR2(32000);
3630: l_length NUMBER;
3631:
3632: BEGIN
3633: l_node_map_tbl := xmldom.getAttributes(p_node);
3634: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3635: l_length := xmldom.getLength(l_node_map_tbl);
3636: --
3637: -- loop through attributes
3630: l_length NUMBER;
3631:
3632: BEGIN
3633: l_node_map_tbl := xmldom.getAttributes(p_node);
3634: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3635: l_length := xmldom.getLength(l_node_map_tbl);
3636: --
3637: -- loop through attributes
3638: --
3631:
3632: BEGIN
3633: l_node_map_tbl := xmldom.getAttributes(p_node);
3634: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
3635: l_length := xmldom.getLength(l_node_map_tbl);
3636: --
3637: -- loop through attributes
3638: --
3639: FOR i IN 0 .. l_length - 1
3637: -- loop through attributes
3638: --
3639: FOR i IN 0 .. l_length - 1
3640: LOOP
3641: l_node_attr := xmldom.item(l_node_map_tbl, i);
3642: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3643: l_attr_value := xmldom.getNodeValue(l_node_attr);
3644: IF l_attr_value IS NULL THEN
3645: RETURN NULL;
3638: --
3639: FOR i IN 0 .. l_length - 1
3640: LOOP
3641: l_node_attr := xmldom.item(l_node_map_tbl, i);
3642: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3643: l_attr_value := xmldom.getNodeValue(l_node_attr);
3644: IF l_attr_value IS NULL THEN
3645: RETURN NULL;
3646: ELSE
3639: FOR i IN 0 .. l_length - 1
3640: LOOP
3641: l_node_attr := xmldom.item(l_node_map_tbl, i);
3642: IF xmldom.getNodeName(l_node_attr) = p_attr_name THEN
3643: l_attr_value := xmldom.getNodeValue(l_node_attr);
3644: IF l_attr_value IS NULL THEN
3645: RETURN NULL;
3646: ELSE
3647: RETURN l_attr_value;
3682:
3683: --
3684: -- find DOM node by persistent_node_id
3685: --
3686: FUNCTION find_XML_Node_By_Attribute(p_subtree_doc xmldom.DOMDocument,
3687: p_attribute_name IN VARCHAR2,
3688: p_attribute_value IN VARCHAR2,
3689: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
3690: RETURN xmldom.DOMNode IS
3686: FUNCTION find_XML_Node_By_Attribute(p_subtree_doc xmldom.DOMDocument,
3687: p_attribute_name IN VARCHAR2,
3688: p_attribute_value IN VARCHAR2,
3689: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
3690: RETURN xmldom.DOMNode IS
3691:
3692: l_node xmldom.DOMNode;
3693: l_nodeslist xmldom.DOMNodeList;
3694: l_empty_xml_node xmldom.DOMNode;
3688: p_attribute_value IN VARCHAR2,
3689: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
3690: RETURN xmldom.DOMNode IS
3691:
3692: l_node xmldom.DOMNode;
3693: l_nodeslist xmldom.DOMNodeList;
3694: l_empty_xml_node xmldom.DOMNode;
3695: l_length NUMBER;
3696: l_attribute_value VARCHAR2(32000);
3689: p_in_user_attributes IN VARCHAR2 DEFAULT NULL)
3690: RETURN xmldom.DOMNode IS
3691:
3692: l_node xmldom.DOMNode;
3693: l_nodeslist xmldom.DOMNodeList;
3694: l_empty_xml_node xmldom.DOMNode;
3695: l_length NUMBER;
3696: l_attribute_value VARCHAR2(32000);
3697:
3690: RETURN xmldom.DOMNode IS
3691:
3692: l_node xmldom.DOMNode;
3693: l_nodeslist xmldom.DOMNodeList;
3694: l_empty_xml_node xmldom.DOMNode;
3695: l_length NUMBER;
3696: l_attribute_value VARCHAR2(32000);
3697:
3698: BEGIN
3704: --
3705: -- here we don't need to know about hierachy of nodes
3706: -- so we just need to get list of all nodes of XML subtree
3707: --
3708: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
3709: l_length := xmldom.getLength(l_nodeslist);
3710:
3711: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
3712:
3705: -- here we don't need to know about hierachy of nodes
3706: -- so we just need to get list of all nodes of XML subtree
3707: --
3708: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
3709: l_length := xmldom.getLength(l_nodeslist);
3710:
3711: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
3712:
3713: l_attribute_value := get_Attribute_Value(l_node, p_attribute_name);
3707: --
3708: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
3709: l_length := xmldom.getLength(l_nodeslist);
3710:
3711: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
3712:
3713: l_attribute_value := get_Attribute_Value(l_node, p_attribute_name);
3714:
3715: IF p_in_user_attributes=G_YES_FLAG THEN
3727: -- scan subtree and substitute macros "%" to real values
3728: --
3729: FOR i IN 0 .. l_length - 1
3730: LOOP
3731: l_node := xmldom.item(l_nodeslist, i);
3732:
3733: IF p_in_user_attributes=G_YES_FLAG THEN
3734: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE4_NAME);
3735: l_attribute_value := get_User_Attribute(l_attribute_value, p_attribute_name);
3751: -- Parameters :
3752: -- p_node - DOM node
3753: -- Return : top level DOM node with XML tag = p_tag
3754: --
3755: FUNCTION getUIContents(p_node xmldom.DOMNode,
3756: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3757: l_child_nodes_tbl xmldom.DOMNodeList;
3758: l_child_xml_node xmldom.DOMNode;
3759: l_empty_xml_node xmldom.DOMNode;
3752: -- p_node - DOM node
3753: -- Return : top level DOM node with XML tag = p_tag
3754: --
3755: FUNCTION getUIContents(p_node xmldom.DOMNode,
3756: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3757: l_child_nodes_tbl xmldom.DOMNodeList;
3758: l_child_xml_node xmldom.DOMNode;
3759: l_empty_xml_node xmldom.DOMNode;
3760: l_length NUMBER;
3753: -- Return : top level DOM node with XML tag = p_tag
3754: --
3755: FUNCTION getUIContents(p_node xmldom.DOMNode,
3756: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3757: l_child_nodes_tbl xmldom.DOMNodeList;
3758: l_child_xml_node xmldom.DOMNode;
3759: l_empty_xml_node xmldom.DOMNode;
3760: l_length NUMBER;
3761: BEGIN
3754: --
3755: FUNCTION getUIContents(p_node xmldom.DOMNode,
3756: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3757: l_child_nodes_tbl xmldom.DOMNodeList;
3758: l_child_xml_node xmldom.DOMNode;
3759: l_empty_xml_node xmldom.DOMNode;
3760: l_length NUMBER;
3761: BEGIN
3762: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3755: FUNCTION getUIContents(p_node xmldom.DOMNode,
3756: p_return_empty_node VARCHAR2 DEFAULT NULL) RETURN xmldom.DOMNode IS
3757: l_child_nodes_tbl xmldom.DOMNodeList;
3758: l_child_xml_node xmldom.DOMNode;
3759: l_empty_xml_node xmldom.DOMNode;
3760: l_length NUMBER;
3761: BEGIN
3762: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3763: l_length := xmldom.getLength(l_child_nodes_tbl);
3758: l_child_xml_node xmldom.DOMNode;
3759: l_empty_xml_node xmldom.DOMNode;
3760: l_length NUMBER;
3761: BEGIN
3762: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3763: l_length := xmldom.getLength(l_child_nodes_tbl);
3764: FOR k IN 0 .. l_length - 1
3765: LOOP
3766: --
3759: l_empty_xml_node xmldom.DOMNode;
3760: l_length NUMBER;
3761: BEGIN
3762: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3763: l_length := xmldom.getLength(l_child_nodes_tbl);
3764: FOR k IN 0 .. l_length - 1
3765: LOOP
3766: --
3767: -- get next child DOM node
3765: LOOP
3766: --
3767: -- get next child DOM node
3768: --
3769: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3770:
3771: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3772: UPPER(G_UI_CONTENTS_TAG) THEN
3773: RETURN l_child_xml_node;
3767: -- get next child DOM node
3768: --
3769: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3770:
3771: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3772: UPPER(G_UI_CONTENTS_TAG) THEN
3773: RETURN l_child_xml_node;
3774: END IF;
3775: END LOOP;
3780: RETURN l_empty_xml_node;
3781: END IF;
3782: END getUIContents;
3783:
3784: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3785: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3786: l_child_nodes_tbl xmldom.DOMNodeList;
3787: l_child_xml_node xmldom.DOMNode;
3788: l_empty_xml_node xmldom.DOMNode;
3781: END IF;
3782: END getUIContents;
3783:
3784: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3785: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3786: l_child_nodes_tbl xmldom.DOMNodeList;
3787: l_child_xml_node xmldom.DOMNode;
3788: l_empty_xml_node xmldom.DOMNode;
3789: l_length NUMBER;
3782: END getUIContents;
3783:
3784: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3785: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3786: l_child_nodes_tbl xmldom.DOMNodeList;
3787: l_child_xml_node xmldom.DOMNode;
3788: l_empty_xml_node xmldom.DOMNode;
3789: l_length NUMBER;
3790: BEGIN
3783:
3784: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3785: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3786: l_child_nodes_tbl xmldom.DOMNodeList;
3787: l_child_xml_node xmldom.DOMNode;
3788: l_empty_xml_node xmldom.DOMNode;
3789: l_length NUMBER;
3790: BEGIN
3791: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3784: FUNCTION findChildXMLTag(p_node xmldom.DOMNode,
3785: p_xml_tag VARCHAR2) RETURN xmldom.DOMNode IS
3786: l_child_nodes_tbl xmldom.DOMNodeList;
3787: l_child_xml_node xmldom.DOMNode;
3788: l_empty_xml_node xmldom.DOMNode;
3789: l_length NUMBER;
3790: BEGIN
3791: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3792: l_length := xmldom.getLength(l_child_nodes_tbl);
3787: l_child_xml_node xmldom.DOMNode;
3788: l_empty_xml_node xmldom.DOMNode;
3789: l_length NUMBER;
3790: BEGIN
3791: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3792: l_length := xmldom.getLength(l_child_nodes_tbl);
3793: FOR k IN 0 .. l_length - 1
3794: LOOP
3795: --
3788: l_empty_xml_node xmldom.DOMNode;
3789: l_length NUMBER;
3790: BEGIN
3791: l_child_nodes_tbl := xmldom.getChildNodes(p_node);
3792: l_length := xmldom.getLength(l_child_nodes_tbl);
3793: FOR k IN 0 .. l_length - 1
3794: LOOP
3795: --
3796: -- get next child DOM node
3794: LOOP
3795: --
3796: -- get next child DOM node
3797: --
3798: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3799:
3800: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3801: UPPER(p_xml_tag) THEN
3802: RETURN l_child_xml_node;
3796: -- get next child DOM node
3797: --
3798: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3799:
3800: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3801: UPPER(p_xml_tag) THEN
3802: RETURN l_child_xml_node;
3803: END IF;
3804: END LOOP;
3813: -- Parameters :
3814: -- p_node - DOM node
3815: -- Return : top level DOM node with XML tag = p_tag
3816: --
3817: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3818: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_first_ui_contents xmldom.DOMNode;
3814: -- p_node - DOM node
3815: -- Return : top level DOM node with XML tag = p_tag
3816: --
3817: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3818: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_first_ui_contents xmldom.DOMNode;
3822: l_second_ui_contents xmldom.DOMNode;
3815: -- Return : top level DOM node with XML tag = p_tag
3816: --
3817: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3818: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_first_ui_contents xmldom.DOMNode;
3822: l_second_ui_contents xmldom.DOMNode;
3823: l_rowlayout xmldom.DOMNode;
3816: --
3817: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3818: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_first_ui_contents xmldom.DOMNode;
3822: l_second_ui_contents xmldom.DOMNode;
3823: l_rowlayout xmldom.DOMNode;
3824: l_length NUMBER;
3817: FUNCTION get_Col_UIContents(p_node xmldom.DOMNode,
3818: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_first_ui_contents xmldom.DOMNode;
3822: l_second_ui_contents xmldom.DOMNode;
3823: l_rowlayout xmldom.DOMNode;
3824: l_length NUMBER;
3825: l_counter NUMBER;
3818: p_col_number NUMBER) RETURN xmldom.DOMNode IS
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_first_ui_contents xmldom.DOMNode;
3822: l_second_ui_contents xmldom.DOMNode;
3823: l_rowlayout xmldom.DOMNode;
3824: l_length NUMBER;
3825: l_counter NUMBER;
3826: l_id_attribute VARCHAR2(255);
3819: l_child_nodes_tbl xmldom.DOMNodeList;
3820: l_child_xml_node xmldom.DOMNode;
3821: l_first_ui_contents xmldom.DOMNode;
3822: l_second_ui_contents xmldom.DOMNode;
3823: l_rowlayout xmldom.DOMNode;
3824: l_length NUMBER;
3825: l_counter NUMBER;
3826: l_id_attribute VARCHAR2(255);
3827: BEGIN
3827: BEGIN
3828:
3829: l_first_ui_contents := getUIContents(p_node);
3830:
3831: l_child_nodes_tbl := xmldom.getChildNodes(l_first_ui_contents);
3832: l_length := xmldom.getLength(l_child_nodes_tbl);
3833: FOR k IN 0 .. l_length - 1
3834: LOOP
3835: --
3828:
3829: l_first_ui_contents := getUIContents(p_node);
3830:
3831: l_child_nodes_tbl := xmldom.getChildNodes(l_first_ui_contents);
3832: l_length := xmldom.getLength(l_child_nodes_tbl);
3833: FOR k IN 0 .. l_length - 1
3834: LOOP
3835: --
3836: -- get next child DOM node
3834: LOOP
3835: --
3836: -- get next child DOM node
3837: --
3838: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3839:
3840: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3841: UPPER('oa:rowLayout') THEN
3842:
3836: -- get next child DOM node
3837: --
3838: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3839:
3840: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3841: UPPER('oa:rowLayout') THEN
3842:
3843: l_id_attribute := get_Attribute_Value(l_child_xml_node,
3844: G_ID_ATTRIBUTE);
3850: l_second_ui_contents := getUIContents(l_child_xml_node);
3851:
3852: l_counter:= 0;
3853:
3854: l_child_nodes_tbl := xmldom.getChildNodes(l_second_ui_contents);
3855: l_length := xmldom.getLength(l_child_nodes_tbl);
3856: FOR k IN 0 .. l_length - 1
3857: LOOP
3858: --
3851:
3852: l_counter:= 0;
3853:
3854: l_child_nodes_tbl := xmldom.getChildNodes(l_second_ui_contents);
3855: l_length := xmldom.getLength(l_child_nodes_tbl);
3856: FOR k IN 0 .. l_length - 1
3857: LOOP
3858: --
3859: -- get next child DOM node
3857: LOOP
3858: --
3859: -- get next child DOM node
3860: --
3861: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3862:
3863: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3864: UPPER('oa:cellFormat') THEN
3865: l_counter := l_counter + 1;
3859: -- get next child DOM node
3860: --
3861: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3862:
3863: IF UPPER(xmldom.getNodeName(l_child_xml_node)) =
3864: UPPER('oa:cellFormat') THEN
3865: l_counter := l_counter + 1;
3866: IF l_counter=p_col_number THEN
3867:
3880:
3881: --
3882: -- find DOM node by persistent_node_id
3883: --
3884: FUNCTION find_Table_Of_XML_Node(p_parent_xml_node xmldom.DOMNode,
3885: p_element_id IN VARCHAR2)
3886: RETURN xmldom.DOMNode IS
3887:
3888: l_child_xml_node xmldom.DOMNode;
3882: -- find DOM node by persistent_node_id
3883: --
3884: FUNCTION find_Table_Of_XML_Node(p_parent_xml_node xmldom.DOMNode,
3885: p_element_id IN VARCHAR2)
3886: RETURN xmldom.DOMNode IS
3887:
3888: l_child_xml_node xmldom.DOMNode;
3889: l_table_child_xml_node xmldom.DOMNode;
3890: l_empty_xml_node xmldom.DOMNode;
3884: FUNCTION find_Table_Of_XML_Node(p_parent_xml_node xmldom.DOMNode,
3885: p_element_id IN VARCHAR2)
3886: RETURN xmldom.DOMNode IS
3887:
3888: l_child_xml_node xmldom.DOMNode;
3889: l_table_child_xml_node xmldom.DOMNode;
3890: l_empty_xml_node xmldom.DOMNode;
3891: l_uicont_xml_node xmldom.DOMNode;
3892: l_ui_contents_xml_node xmldom.DOMNode;
3885: p_element_id IN VARCHAR2)
3886: RETURN xmldom.DOMNode IS
3887:
3888: l_child_xml_node xmldom.DOMNode;
3889: l_table_child_xml_node xmldom.DOMNode;
3890: l_empty_xml_node xmldom.DOMNode;
3891: l_uicont_xml_node xmldom.DOMNode;
3892: l_ui_contents_xml_node xmldom.DOMNode;
3893: l_child_nodes_tbl xmldom.DOMNodeList;
3886: RETURN xmldom.DOMNode IS
3887:
3888: l_child_xml_node xmldom.DOMNode;
3889: l_table_child_xml_node xmldom.DOMNode;
3890: l_empty_xml_node xmldom.DOMNode;
3891: l_uicont_xml_node xmldom.DOMNode;
3892: l_ui_contents_xml_node xmldom.DOMNode;
3893: l_child_nodes_tbl xmldom.DOMNodeList;
3894: l_table_child_nodes_tbl xmldom.DOMNodeList;
3887:
3888: l_child_xml_node xmldom.DOMNode;
3889: l_table_child_xml_node xmldom.DOMNode;
3890: l_empty_xml_node xmldom.DOMNode;
3891: l_uicont_xml_node xmldom.DOMNode;
3892: l_ui_contents_xml_node xmldom.DOMNode;
3893: l_child_nodes_tbl xmldom.DOMNodeList;
3894: l_table_child_nodes_tbl xmldom.DOMNodeList;
3895: l_length NUMBER;
3888: l_child_xml_node xmldom.DOMNode;
3889: l_table_child_xml_node xmldom.DOMNode;
3890: l_empty_xml_node xmldom.DOMNode;
3891: l_uicont_xml_node xmldom.DOMNode;
3892: l_ui_contents_xml_node xmldom.DOMNode;
3893: l_child_nodes_tbl xmldom.DOMNodeList;
3894: l_table_child_nodes_tbl xmldom.DOMNodeList;
3895: l_length NUMBER;
3896: l_table_child_length NUMBER;
3889: l_table_child_xml_node xmldom.DOMNode;
3890: l_empty_xml_node xmldom.DOMNode;
3891: l_uicont_xml_node xmldom.DOMNode;
3892: l_ui_contents_xml_node xmldom.DOMNode;
3893: l_child_nodes_tbl xmldom.DOMNodeList;
3894: l_table_child_nodes_tbl xmldom.DOMNodeList;
3895: l_length NUMBER;
3896: l_table_child_length NUMBER;
3897:
3890: l_empty_xml_node xmldom.DOMNode;
3891: l_uicont_xml_node xmldom.DOMNode;
3892: l_ui_contents_xml_node xmldom.DOMNode;
3893: l_child_nodes_tbl xmldom.DOMNodeList;
3894: l_table_child_nodes_tbl xmldom.DOMNodeList;
3895: l_length NUMBER;
3896: l_table_child_length NUMBER;
3897:
3898: BEGIN
3896: l_table_child_length NUMBER;
3897:
3898: BEGIN
3899:
3900: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
3901: 'oa:flowLayout','oa:tableLayout') THEN
3902:
3903: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
3904: ELSE
3907:
3908: --
3909: -- get child nodes of DOM node : p_node
3910: --
3911: l_child_nodes_tbl := xmldom.getChildNodes(l_ui_contents_xml_node);
3912:
3913: --
3914: -- we need to get length of array of child nodes
3915: -- to go through the array in loop
3913: --
3914: -- we need to get length of array of child nodes
3915: -- to go through the array in loop
3916: --
3917: l_length := xmldom.getLength(l_child_nodes_tbl);
3918:
3919: FOR k IN 0 .. l_length - 1
3920: LOOP
3921: --
3920: LOOP
3921: --
3922: -- get next child DOM node
3923: --
3924: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
3925:
3926: IF (get_Attribute_Value(l_child_xml_node, G_USER_ATTRIBUTE5_NAME) = 'TABLELAYOUT_FOR_UI_GEN') THEN
3927:
3928: BEGIN
3927:
3928: BEGIN
3929: l_uicont_xml_node := getUIContents(l_child_xml_node);
3930:
3931: l_table_child_nodes_tbl := xmldom.getChildNodes(l_uicont_xml_node);
3932: l_table_child_length := xmldom.getLength(l_table_child_nodes_tbl);
3933:
3934: FOR m IN 0 .. l_table_child_length - 1
3935: LOOP
3928: BEGIN
3929: l_uicont_xml_node := getUIContents(l_child_xml_node);
3930:
3931: l_table_child_nodes_tbl := xmldom.getChildNodes(l_uicont_xml_node);
3932: l_table_child_length := xmldom.getLength(l_table_child_nodes_tbl);
3933:
3934: FOR m IN 0 .. l_table_child_length - 1
3935: LOOP
3936: l_table_child_xml_node := xmldom.item(l_table_child_nodes_tbl, m);
3932: l_table_child_length := xmldom.getLength(l_table_child_nodes_tbl);
3933:
3934: FOR m IN 0 .. l_table_child_length - 1
3935: LOOP
3936: l_table_child_xml_node := xmldom.item(l_table_child_nodes_tbl, m);
3937:
3938: IF get_Attribute_Value(l_table_child_xml_node, G_ID_ATTRIBUTE) = p_element_id THEN
3939: RETURN l_uicont_xml_node;
3940: END IF;
3951:
3952: --
3953: -- find a given xml tag up on the tree
3954: --
3955: FUNCTION find_Element_Id_Of_XMLTag(p_xml_node xmldom.DOMNode,
3956: p_tag_name VARCHAR2 ) RETURN VARCHAR2 IS
3957: l_node xmldom.DOMNode;
3958: l_hgrid_node xmldom.DOMNode;
3959: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
3953: -- find a given xml tag up on the tree
3954: --
3955: FUNCTION find_Element_Id_Of_XMLTag(p_xml_node xmldom.DOMNode,
3956: p_tag_name VARCHAR2 ) RETURN VARCHAR2 IS
3957: l_node xmldom.DOMNode;
3958: l_hgrid_node xmldom.DOMNode;
3959: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
3960: BEGIN
3961: IF xmldom.isNull(p_node) THEN
3954: --
3955: FUNCTION find_Element_Id_Of_XMLTag(p_xml_node xmldom.DOMNode,
3956: p_tag_name VARCHAR2 ) RETURN VARCHAR2 IS
3957: l_node xmldom.DOMNode;
3958: l_hgrid_node xmldom.DOMNode;
3959: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
3960: BEGIN
3961: IF xmldom.isNull(p_node) THEN
3962: RETURN;
3955: FUNCTION find_Element_Id_Of_XMLTag(p_xml_node xmldom.DOMNode,
3956: p_tag_name VARCHAR2 ) RETURN VARCHAR2 IS
3957: l_node xmldom.DOMNode;
3958: l_hgrid_node xmldom.DOMNode;
3959: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
3960: BEGIN
3961: IF xmldom.isNull(p_node) THEN
3962: RETURN;
3963: END IF;
3957: l_node xmldom.DOMNode;
3958: l_hgrid_node xmldom.DOMNode;
3959: PROCEDURE find_hgrid(p_node xmldom.DOMNode) IS
3960: BEGIN
3961: IF xmldom.isNull(p_node) THEN
3962: RETURN;
3963: END IF;
3964: l_node := xmldom.getParentNode(p_node);
3965: IF lower(xmldom.getNodeName(l_node))=lower(p_tag_name) THEN
3960: BEGIN
3961: IF xmldom.isNull(p_node) THEN
3962: RETURN;
3963: END IF;
3964: l_node := xmldom.getParentNode(p_node);
3965: IF lower(xmldom.getNodeName(l_node))=lower(p_tag_name) THEN
3966: l_hgrid_node := l_node;
3967: ELSE
3968: find_hgrid(l_node);
3961: IF xmldom.isNull(p_node) THEN
3962: RETURN;
3963: END IF;
3964: l_node := xmldom.getParentNode(p_node);
3965: IF lower(xmldom.getNodeName(l_node))=lower(p_tag_name) THEN
3966: l_hgrid_node := l_node;
3967: ELSE
3968: find_hgrid(l_node);
3969: END IF;
3978: RETURN NULL;
3979: END find_Element_Id_Of_XMLTag;
3980:
3981:
3982: FUNCTION find_AMN_Element_Above(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
3983:
3984: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
3985:
3986: PROCEDURE AMN_Element_Above(p_node xmldom.DOMNode) IS
3982: FUNCTION find_AMN_Element_Above(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
3983:
3984: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
3985:
3986: PROCEDURE AMN_Element_Above(p_node xmldom.DOMNode) IS
3987:
3988: l_node xmldom.DOMNode;
3989: l_next_node xmldom.DOMNode;
3990: l_user_attribute1 VARCHAR2(32000);
3984: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
3985:
3986: PROCEDURE AMN_Element_Above(p_node xmldom.DOMNode) IS
3987:
3988: l_node xmldom.DOMNode;
3989: l_next_node xmldom.DOMNode;
3990: l_user_attribute1 VARCHAR2(32000);
3991:
3992: BEGIN
3985:
3986: PROCEDURE AMN_Element_Above(p_node xmldom.DOMNode) IS
3987:
3988: l_node xmldom.DOMNode;
3989: l_next_node xmldom.DOMNode;
3990: l_user_attribute1 VARCHAR2(32000);
3991:
3992: BEGIN
3993:
3990: l_user_attribute1 VARCHAR2(32000);
3991:
3992: BEGIN
3993:
3994: l_node := xmldom.getParentNode(p_node);
3995:
3996: IF xmldom.isNull(l_node) THEN
3997: l_element_id := get_Attribute_Value(p_node, G_ID_ATTRIBUTE);
3998: RETURN;
3992: BEGIN
3993:
3994: l_node := xmldom.getParentNode(p_node);
3995:
3996: IF xmldom.isNull(l_node) THEN
3997: l_element_id := get_Attribute_Value(p_node, G_ID_ATTRIBUTE);
3998: RETURN;
3999: END IF;
4000:
4006: RETURN;
4007:
4008: ELSE
4009:
4010: l_next_node := xmldom.getParentNode(l_node);
4011:
4012: IF xmldom.isNull(l_next_node) THEN
4013: l_element_id := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
4014: RETURN;
4008: ELSE
4009:
4010: l_next_node := xmldom.getParentNode(l_node);
4011:
4012: IF xmldom.isNull(l_next_node) THEN
4013: l_element_id := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
4014: RETURN;
4015: ELSE
4016: AMN_Element_Above(l_node);
4034: -- Parameters :
4035: -- p_doc_full_name - full JRAD name of the document
4036: --
4037: FUNCTION parse_JRAD_Document(p_doc_full_name IN VARCHAR2)
4038: RETURN xmldom.DOMDocument IS
4039:
4040: l_buffer VARCHAR2(32000);
4041: l_lob_loc CLOB;
4042: l_amount BINARY_INTEGER;
4040: l_buffer VARCHAR2(32000);
4041: l_lob_loc CLOB;
4042: l_amount BINARY_INTEGER;
4043: l_position INTEGER := 1;
4044: l_xmldoc xmldom.DOMDocument;
4045: l_exportfinished BOOLEAN;
4046:
4047: BEGIN
4048:
4105: -- Parameters : p_dom_element - DOM Element which identifies DOM node
4106: -- p_attribute_name - attribute name
4107: -- p_attribute_value - attribute value
4108: --
4109: PROCEDURE set_Attribute(p_dom_element xmldom.DOMElement,
4110: p_attribute_name IN VARCHAR2,
4111: p_attribute_value IN VARCHAR2) IS
4112:
4113: BEGIN
4110: p_attribute_name IN VARCHAR2,
4111: p_attribute_value IN VARCHAR2) IS
4112:
4113: BEGIN
4114: xmldom.setAttribute(p_dom_element, p_attribute_name, p_attribute_value);
4115: END set_Attribute;
4116:
4117: --
4118: -- set CZ Attributes for a given DOM node
4119: -- Parameters : p_dom_element - DOM Element which identifies DOM node
4120: -- p_attribute_name - attribute name
4121: -- p_attribute_value - attribute value
4122: --
4123: PROCEDURE set_Attribute(p_dom_node xmldom.DOMNode,
4124: p_attribute_name IN VARCHAR2,
4125: p_attribute_value IN VARCHAR2) IS
4126:
4127: BEGIN
4124: p_attribute_name IN VARCHAR2,
4125: p_attribute_value IN VARCHAR2) IS
4126:
4127: BEGIN
4128: xmldom.setAttribute(xmldom.makeElement(p_dom_node), p_attribute_name, p_attribute_value);
4129: END set_Attribute;
4130:
4131: --
4132: -- set internal CZ attributes within "user:attribute1"
4175: --
4176: -- this procedure adds CZ_UI_PAGE_ELEMENTS records
4177: -- which correspond to first level UI template references
4178: --
4179: PROCEDURE add_Extends_Refs(p_xml_node xmldom.DOMNode,
4180: p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE) IS
4181:
4182: l_seq_nbr NUMBER;
4183: l_template_id NUMBER;
4265:
4266: END add_Extends_Refs;
4267:
4268: FUNCTION find_Parent_UI_Element
4269: (p_xml_node xmldom.DOMNode,
4270: p_ui_def_id IN NUMBER,
4271: p_ui_page_id IN NUMBER) RETURN CZ_UI_PAGE_ELEMENTS%ROWTYPE IS
4272:
4273: l_ui_element CZ_UI_PAGE_ELEMENTS%ROWTYPE;
4271: p_ui_page_id IN NUMBER) RETURN CZ_UI_PAGE_ELEMENTS%ROWTYPE IS
4272:
4273: l_ui_element CZ_UI_PAGE_ELEMENTS%ROWTYPE;
4274:
4275: PROCEDURE get_Parent_XML(p_check_xml_node xmldom.DOMNode) IS
4276:
4277: l_parent_xml_node xmldom.DOMNode;
4278: l_id_attr_value VARCHAR2(32000);
4279:
4273: l_ui_element CZ_UI_PAGE_ELEMENTS%ROWTYPE;
4274:
4275: PROCEDURE get_Parent_XML(p_check_xml_node xmldom.DOMNode) IS
4276:
4277: l_parent_xml_node xmldom.DOMNode;
4278: l_id_attr_value VARCHAR2(32000);
4279:
4280: BEGIN
4281:
4294: END;
4295:
4296: END IF;
4297:
4298: l_parent_xml_node := xmldom.getParentNode(p_check_xml_node);
4299:
4300:
4301: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
4302:
4297:
4298: l_parent_xml_node := xmldom.getParentNode(p_check_xml_node);
4299:
4300:
4301: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
4302:
4303: l_id_attr_value := get_Attribute_Value(l_parent_xml_node , G_ID_ATTRIBUTE);
4304:
4305:
4351: --
4352: -- handle special cases ( like "switcher case", "ancestor node" )
4353: --
4354: PROCEDURE handle_Special_XMLCases
4355: (p_xml_node xmldom.DOMNode,
4356: p_old_xml_node_id VARCHAR2,
4357: p_new_xml_node_id VARCHAR2,
4358: p_jrad_doc VARCHAR2,
4359: px_xml_switcher_id IN OUT NOCOPY VARCHAR2,
4358: p_jrad_doc VARCHAR2,
4359: px_xml_switcher_id IN OUT NOCOPY VARCHAR2,
4360: p_inline_copy_mode IN VARCHAR2) IS
4361:
4362: l_curr_parent_xml_node xmldom.DOMNode;
4363: l_ancestor_node_id VARCHAR2(255);
4364: l_xml_node_name VARCHAR2(255);
4365: l_parent_xml_node_name VARCHAR2(255);
4366: l_hgrid_element_id VARCHAR2(255);
4371: l_user_attribute4_value VARCHAR2(4000);
4372:
4373: BEGIN
4374:
4375: l_curr_parent_xml_node := xmldom.getParentNode(p_xml_node);
4376:
4377: l_xml_node_name := xmldom.getNodeName(p_xml_node);
4378: l_parent_xml_node_name := xmldom.getNodeName(l_curr_parent_xml_node);
4379:
4373: BEGIN
4374:
4375: l_curr_parent_xml_node := xmldom.getParentNode(p_xml_node);
4376:
4377: l_xml_node_name := xmldom.getNodeName(p_xml_node);
4378: l_parent_xml_node_name := xmldom.getNodeName(l_curr_parent_xml_node);
4379:
4380: l_ancestor_node_id := get_Attribute_Value(p_xml_node,
4381: 'ancestorNode');
4374:
4375: l_curr_parent_xml_node := xmldom.getParentNode(p_xml_node);
4376:
4377: l_xml_node_name := xmldom.getNodeName(p_xml_node);
4378: l_parent_xml_node_name := xmldom.getNodeName(l_curr_parent_xml_node);
4379:
4380: l_ancestor_node_id := get_Attribute_Value(p_xml_node,
4381: 'ancestorNode');
4382:
4387: IF l_ancestor_node_id IS NOT NULL THEN
4388:
4389: l_hgrid_element_id := find_Element_Id_Of_XMLTag(p_xml_node, 'oa:tree');
4390:
4391: IF NOT(xmldom.IsNull(p_xml_node)) THEN
4392:
4393: l_ancestor_node_id := p_jrad_doc||'.'||l_hgrid_element_id;
4394: set_Attribute(p_xml_node,
4395: 'ancestorNode',
4394: set_Attribute(p_xml_node,
4395: 'ancestorNode',
4396: l_ancestor_node_id);
4397:
4398: END IF; -- end of IF NOT(xmldom.IsNull(p_xml_node))
4399:
4400: END IF; -- end of IF l_ancestor_node IS NOT NULL
4401:
4402: --
4472: --
4473: -- refresh Template Ref Counts
4474: --
4475: PROCEDURE refresh_Templ_Ref_Counts
4476: (p_template_xml_doc xmldom.DOMDocument,
4477: p_template_ui_def_id NUMBER,
4478: p_template_id NUMBER) IS
4479:
4480: l_xml_node xmldom.DOMNode;
4476: (p_template_xml_doc xmldom.DOMDocument,
4477: p_template_ui_def_id NUMBER,
4478: p_template_id NUMBER) IS
4479:
4480: l_xml_node xmldom.DOMNode;
4481: l_child_nodes_tbl xmldom.DOMNodeList;
4482: l_extends_attribute VARCHAR2(2000);
4483: l_ref_tmpls_tbl number_tbl_type;
4484: l_ref_tmpl_seeded_flag varchar_tbl_type;
4477: p_template_ui_def_id NUMBER,
4478: p_template_id NUMBER) IS
4479:
4480: l_xml_node xmldom.DOMNode;
4481: l_child_nodes_tbl xmldom.DOMNodeList;
4482: l_extends_attribute VARCHAR2(2000);
4483: l_ref_tmpls_tbl number_tbl_type;
4484: l_ref_tmpl_seeded_flag varchar_tbl_type;
4485: l_ref_template_id NUMBER;
4488: l_length NUMBER;
4489:
4490: BEGIN
4491:
4492: l_child_nodes_tbl := xmldom.getElementsByTagName(p_template_xml_doc, '*');
4493: l_length := xmldom.getLength(l_child_nodes_tbl);
4494:
4495: IF (l_length > 0) THEN
4496: FOR k IN 0..l_length-1
4489:
4490: BEGIN
4491:
4492: l_child_nodes_tbl := xmldom.getElementsByTagName(p_template_xml_doc, '*');
4493: l_length := xmldom.getLength(l_child_nodes_tbl);
4494:
4495: IF (l_length > 0) THEN
4496: FOR k IN 0..l_length-1
4497: LOOP
4494:
4495: IF (l_length > 0) THEN
4496: FOR k IN 0..l_length-1
4497: LOOP
4498: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
4499: l_extends_attribute := get_Attribute_Value(l_xml_node, 'extends');
4500:
4501: IF l_extends_attribute IS NOT NULL THEN
4502:
4611:
4612: END init_Page_View_Counters;
4613:
4614:
4615: PROCEDURE init_Page_View_Counters(p_subtree_doc xmldom.DOMDocument) IS
4616:
4617: l_node xmldom.DOMNode;
4618: l_nodeslist xmldom.DOMNodeList;
4619: l_empty_xml_node xmldom.DOMNode;
4613:
4614:
4615: PROCEDURE init_Page_View_Counters(p_subtree_doc xmldom.DOMDocument) IS
4616:
4617: l_node xmldom.DOMNode;
4618: l_nodeslist xmldom.DOMNodeList;
4619: l_empty_xml_node xmldom.DOMNode;
4620: l_length NUMBER;
4621: l_attribute_value VARCHAR2(32000);
4614:
4615: PROCEDURE init_Page_View_Counters(p_subtree_doc xmldom.DOMDocument) IS
4616:
4617: l_node xmldom.DOMNode;
4618: l_nodeslist xmldom.DOMNodeList;
4619: l_empty_xml_node xmldom.DOMNode;
4620: l_length NUMBER;
4621: l_attribute_value VARCHAR2(32000);
4622: l_node_view VARCHAR2(255);
4615: PROCEDURE init_Page_View_Counters(p_subtree_doc xmldom.DOMDocument) IS
4616:
4617: l_node xmldom.DOMNode;
4618: l_nodeslist xmldom.DOMNodeList;
4619: l_empty_xml_node xmldom.DOMNode;
4620: l_length NUMBER;
4621: l_attribute_value VARCHAR2(32000);
4622: l_node_view VARCHAR2(255);
4623: l_id_attr_value VARCHAR2(255);
4752: g_itot_feature_counter := 0;
4753: g_irsc_feature_counter := 0;
4754: g_opt_counter := 0;
4755:
4756: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
4757: l_length := xmldom.getLength(l_nodeslist);
4758:
4759: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
4760:
4753: g_irsc_feature_counter := 0;
4754: g_opt_counter := 0;
4755:
4756: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
4757: l_length := xmldom.getLength(l_nodeslist);
4758:
4759: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
4760:
4761: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE3_NAME);
4755:
4756: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
4757: l_length := xmldom.getLength(l_nodeslist);
4758:
4759: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
4760:
4761: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE3_NAME);
4762: l_node_view := get_User_Attribute(l_attribute_value, 'nodeView');
4763:
4764: set_View_Counter(l_node_view);
4765:
4766: FOR i IN 0 .. l_length - 1
4767: LOOP
4768: l_node := xmldom.item(l_nodeslist, i);
4769: l_attribute_value := get_Attribute_Value(l_node, G_USER_ATTRIBUTE3_NAME);
4770: l_node_view := get_User_Attribute(l_attribute_value, 'nodeView');
4771: set_View_Counter(l_node_view);
4772:
4785: END LOOP;
4786:
4787: END init_Page_View_Counters;
4788:
4789: PROCEDURE resolve_view_names(p_xml_node IN xmldom.DOMNode,
4790: p_ui_page_id IN NUMBER,
4791: p_counter IN OUT NOCOPY NUMBER,
4792: p_element_ids_table IN OUT NOCOPY varchar2_tbl_type) IS
4793:
4796:
4797: l_user_attribute VARCHAR2(32000);
4798: l_user_attribute_value VARCHAR2(32000);
4799: l_ind NUMBER;
4800: l_child_nodes_tbl xmldom.DOMNodeList;
4801: l_length NUMBER;
4802: l_child_xml_node xmldom.DOMNode;
4803: l_element_id VARCHAR2(255);
4804:
4798: l_user_attribute_value VARCHAR2(32000);
4799: l_ind NUMBER;
4800: l_child_nodes_tbl xmldom.DOMNodeList;
4801: l_length NUMBER;
4802: l_child_xml_node xmldom.DOMNode;
4803: l_element_id VARCHAR2(255);
4804:
4805: BEGIN
4806:
4849: l_user_attribute_value);
4850: END IF;
4851: END IF;
4852:
4853: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
4854: l_length := xmldom.getLength(l_child_nodes_tbl);
4855:
4856: FOR k IN 0 .. l_length - 1
4857: LOOP
4850: END IF;
4851: END IF;
4852:
4853: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
4854: l_length := xmldom.getLength(l_child_nodes_tbl);
4855:
4856: FOR k IN 0 .. l_length - 1
4857: LOOP
4858: --
4857: LOOP
4858: --
4859: -- get next child DOM node
4860: --
4861: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
4862:
4863: resolve_view_names(p_xml_node => l_child_xml_node,
4864: p_ui_page_id => p_ui_page_id,
4865: p_counter => p_counter,
4873:
4874: --
4875: -- set Attributes for Template
4876: --
4877: PROCEDURE set_Template_Attributes(p_xml_root_node xmldom.DOMNode,
4878: p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
4879: p_element_signature_id NUMBER DEFAULT NULL) IS
4880:
4881: l_xml_root_element_node xmldom.DOMElement := xmldom.makeElement(p_xml_root_node);
4877: PROCEDURE set_Template_Attributes(p_xml_root_node xmldom.DOMNode,
4878: p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
4879: p_element_signature_id NUMBER DEFAULT NULL) IS
4880:
4881: l_xml_root_element_node xmldom.DOMElement := xmldom.makeElement(p_xml_root_node);
4882: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
4883: l_ui_action_id NUMBER;
4884: l_drilldown_text_id NUMBER;
4885:
5070: 'GENERATED_BY_UI_GEN');
5071:
5072: END set_Template_Attributes;
5073:
5074: FUNCTION get_Element_XML_Path(p_xml_doc xmldom.DOMDocument,p_element_id VARCHAR2) RETURN VARCHAR2 IS
5075:
5076: l_xml_node xmldom.DOMNode;
5077: l_element_path VARCHAR2(32000);
5078:
5072: END set_Template_Attributes;
5073:
5074: FUNCTION get_Element_XML_Path(p_xml_doc xmldom.DOMDocument,p_element_id VARCHAR2) RETURN VARCHAR2 IS
5075:
5076: l_xml_node xmldom.DOMNode;
5077: l_element_path VARCHAR2(32000);
5078:
5079: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5080:
5075:
5076: l_xml_node xmldom.DOMNode;
5077: l_element_path VARCHAR2(32000);
5078:
5079: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5080:
5081: l_parent_node xmldom.DOMNode;
5082: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
5083: l_user_attribute4_value VARCHAR2(32000);
5077: l_element_path VARCHAR2(32000);
5078:
5079: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5080:
5081: l_parent_node xmldom.DOMNode;
5082: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
5083: l_user_attribute4_value VARCHAR2(32000);
5084: l_node_name VARCHAR2(32000);
5085:
5084: l_node_name VARCHAR2(32000);
5085:
5086: BEGIN
5087:
5088: IF xmldom.isNull(p_xml_node) THEN
5089: RETURN;
5090: END IF;
5091: l_parent_node := xmldom.getParentNode(p_xml_node);
5092: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5087:
5088: IF xmldom.isNull(p_xml_node) THEN
5089: RETURN;
5090: END IF;
5091: l_parent_node := xmldom.getParentNode(p_xml_node);
5092: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5093:
5094: IF l_element_id IS NOT NULL AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
5095:
5090: END IF;
5091: l_parent_node := xmldom.getParentNode(p_xml_node);
5092: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5093:
5094: IF l_element_id IS NOT NULL AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
5095:
5096: l_user_attribute4_value := get_Attribute_Value(p_xml_node, G_USER_ATTRIBUTE4_NAME);
5097: IF l_user_attribute4_value IS NOT NULL THEN
5098: l_node_name := get_User_Attribute(l_user_attribute4_value ,'name');
5105:
5106: END IF;
5107: END IF;
5108:
5109: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5110: IF NOT(xmldom.IsNull(l_parent_node)) THEN
5111: construct_XML_Path(l_parent_node);
5112: END IF;
5113: END IF;
5106: END IF;
5107: END IF;
5108:
5109: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5110: IF NOT(xmldom.IsNull(l_parent_node)) THEN
5111: construct_XML_Path(l_parent_node);
5112: END IF;
5113: END IF;
5114:
5117: BEGIN
5118:
5119: l_xml_node := find_XML_Node_By_Attribute(p_xml_doc, G_ID_ATTRIBUTE, p_element_id);
5120:
5121: IF NOT(xmldom.IsNull(l_xml_node)) THEN
5122: construct_XML_Path(l_xml_node);
5123: ELSE
5124: RETURN NULL;
5125: END IF;
5127: RETURN l_element_path;
5128:
5129: END get_Element_XML_Path;
5130:
5131: FUNCTION get_Element_XML_Path(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
5132:
5133: l_element_path VARCHAR2(32000);
5134:
5135: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5131: FUNCTION get_Element_XML_Path(p_xml_node xmldom.DOMNode) RETURN VARCHAR2 IS
5132:
5133: l_element_path VARCHAR2(32000);
5134:
5135: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5136:
5137: l_parent_node xmldom.DOMNode;
5138: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
5139: l_user_attribute4_value VARCHAR2(32000);
5133: l_element_path VARCHAR2(32000);
5134:
5135: PROCEDURE construct_XML_Path(p_xml_node xmldom.DOMNode) IS
5136:
5137: l_parent_node xmldom.DOMNode;
5138: l_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
5139: l_user_attribute4_value VARCHAR2(32000);
5140: l_node_name VARCHAR2(32000);
5141:
5140: l_node_name VARCHAR2(32000);
5141:
5142: BEGIN
5143:
5144: IF xmldom.isNull(p_xml_node) THEN
5145: RETURN;
5146: END IF;
5147: l_parent_node := xmldom.getParentNode(p_xml_node);
5148: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5143:
5144: IF xmldom.isNull(p_xml_node) THEN
5145: RETURN;
5146: END IF;
5147: l_parent_node := xmldom.getParentNode(p_xml_node);
5148: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5149:
5150: IF l_element_id IS NOT NULL AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
5151:
5146: END IF;
5147: l_parent_node := xmldom.getParentNode(p_xml_node);
5148: l_element_id := get_Attribute_Value(p_xml_node, G_ID_ATTRIBUTE);
5149:
5150: IF l_element_id IS NOT NULL AND xmldom.getNodeName(l_parent_node)<>'#document'THEN
5151:
5152: l_user_attribute4_value := get_Attribute_Value(p_xml_node, G_USER_ATTRIBUTE4_NAME);
5153: IF l_user_attribute4_value IS NOT NULL THEN
5154: l_node_name := get_User_Attribute(l_user_attribute4_value ,'name');
5161:
5162: END IF;
5163: END IF;
5164:
5165: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5166: IF NOT(xmldom.IsNull(l_parent_node)) THEN
5167: construct_XML_Path(l_parent_node);
5168: END IF;
5169: END IF;
5162: END IF;
5163: END IF;
5164:
5165: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5166: IF NOT(xmldom.IsNull(l_parent_node)) THEN
5167: construct_XML_Path(l_parent_node);
5168: END IF;
5169: END IF;
5170:
5171: END construct_XML_Path;
5172:
5173: BEGIN
5174:
5175: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5176: construct_XML_Path(p_xml_node);
5177: ELSE
5178: RETURN NULL;
5179: END IF;
5192: p_page_id IN NUMBER,
5193: p_element_id IN VARCHAR2,
5194: p_is_parser_open IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2 IS
5195:
5196: l_xmldoc xmldom.DOMDocument;
5197: l_page_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
5198: l_ui_name CZ_UI_DEFS.name%TYPE;
5199: l_page_name CZ_UI_PAGES.name%TYPE;
5200: l_element_path VARCHAR2(32000);
5212: -- create UI Template in JRAD repository
5213: --
5214: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_page_jrad_doc);
5215:
5216: IF xmldom.isNull(l_xmldoc) THEN
5217: -- UI page is already deleted
5218: RETURN NULL;
5219: END IF;
5220:
5245: p_ui_def_id IN NUMBER,
5246: p_ui_page_id IN NUMBER,
5247: p_ui_element_id IN VARCHAR2,
5248: p_source_ui_def_id IN NUMBER,
5249: p_xml_node IN xmldom.DOMNode DEFAULT g_Null_Xml_Node
5250: ) IS
5251:
5252: l_return_status VARCHAR2(255);
5253: l_msg_count NUMBER;
5303: x_run_id => l_run_id);
5304: END IF;
5305:
5306: IF l_run_id > 0 THEN
5307: IF NOT(xmldom.IsNull(p_xml_node)) THEN
5308: l_element_path := get_Element_XML_Path(p_xml_node => p_xml_node);
5309: ELSE -- UI rule on UI page level
5310: SELECT name INTO l_element_path FROM CZ_UI_PAGES
5311: WHERE page_id=p_ui_page_id AND ui_def_id=p_ui_def_id;
5459: p_target_ui_page_id IN NUMBER,
5460: p_new_element_id IN VARCHAR2,
5461: p_source_template_id IN NUMBER DEFAULT NULL,
5462: p_target_template_id IN NUMBER DEFAULT NULL,
5463: p_xml_node IN xmldom.DOMNode DEFAULT g_Null_Xml_Node) IS
5464:
5465: l_cached_elems_tbl number_tbl_type;
5466: l_cached_source_elems_tbl number_tbl_type;
5467: l_counter NUMBER := 0;
5752: p_source_ui_def_id IN NUMBER,
5753: p_source_template_id IN NUMBER,
5754: p_target_ui_def_id IN NUMBER,
5755: p_target_template_id IN NUMBER,
5756: p_xml_node IN xmldom.DOMNode DEFAULT g_Null_Xml_Node) IS
5757:
5758: l_cached_elems_tbl number_tbl_type;
5759: l_cached_source_elems_tbl number_tbl_type;
5760: l_counter NUMBER := 0;
5996: END handle_Template_Attributes;
5997:
5998: PROCEDURE copy_Node_Related_Entities(p_ui_def_id NUMBER,
5999: p_ui_page_id NUMBER,
6000: p_xml_node xmldom.DOMNode,
6001: p_target_ui_def_id NUMBER DEFAULT NULL,
6002: p_source_ui_page_id NUMBER DEFAULT NULL,
6003: p_source_ui_def_id NUMBER DEFAULT NULL) IS
6004:
6049:
6050: END copy_Node_Related_Entities;
6051:
6052:
6053: PROCEDURE handle_UI_CASE_Id(p_xml_node xmldom.DOMNode) IS
6054: l_user_attribute4 VARCHAR2(4000);
6055: BEGIN
6056: IF xmldom.getNodeName(p_xml_node)='ui:case' THEN
6057:
6052:
6053: PROCEDURE handle_UI_CASE_Id(p_xml_node xmldom.DOMNode) IS
6054: l_user_attribute4 VARCHAR2(4000);
6055: BEGIN
6056: IF xmldom.getNodeName(p_xml_node)='ui:case' THEN
6057:
6058: l_user_attribute4 := get_Attribute_Value(p_xml_node,
6059: G_USER_ATTRIBUTE4_NAME);
6060: IF l_user_attribute4 IS NOT NULL THEN
6068: END IF;
6069: END handle_UI_CASE_Id;
6070:
6071: PROCEDURE handle_USER_ATTRIBUTE10
6072: (p_xml_root_node xmldom.DOMNode,
6073: p_ui_def_id NUMBER,
6074: p_ui_page_id NUMBER,
6075: p_ui_element_id VARCHAR2) IS
6076:
6108:
6109: l_user_attribute3_value := l_user_attribute3_value||'|enabledCondnId='||TO_CHAR(l_new_refenabledCondnId)||
6110: '|enabledCondnComp=' || l_refenabledCondnComp || '|enabledCondnValue='||l_refenabledCondnValue;
6111:
6112: xmldom.removeAttribute(xmldom.makeElement(p_xml_root_node), G_USER_ATTRIBUTE10_NAME);
6113: set_Attribute(p_xml_root_node,G_USER_ATTRIBUTE3_NAME,l_user_attribute3_value);
6114:
6115: END IF; -- end of IF INSTR(l_user_attribute10_value,'refenabledCondnId')>0
6116:
6131: p_source_ui_def_id => p_ui_def_id);
6132:
6133: l_user_attribute3_value := l_user_attribute3_value||'|displayCondnId='||TO_CHAR(l_new_refdisplayCondnId)||
6134: '|displayCondnComp=' || l_refdisplayCondnComp || '|displayCondnValue='||l_refdisplayCondnValue;
6135: xmldom.removeAttribute(xmldom.makeElement(p_xml_root_node), G_USER_ATTRIBUTE10_NAME);
6136: set_Attribute(p_xml_root_node,G_USER_ATTRIBUTE3_NAME,l_user_attribute3_value);
6137:
6138: END IF; -- end of IF INSTR(l_user_attribute10_value,'refdisplayCondnId')>0
6139:
6140: END IF; -- end of IF INSTR(l_user_attribute10_value,'refdisplayCondnId')>0
6141:
6142: END handle_USER_ATTRIBUTE10;
6143:
6144: PROCEDURE create_wrapper_table_layout(x_xml_table_node OUT NOCOPY xmldom.DOMNode,
6145: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6146: p_target_subtree_xml_node xmldom.DOMNode) IS
6147:
6148: l_doc xmldom.DOMDocument;
6141:
6142: END handle_USER_ATTRIBUTE10;
6143:
6144: PROCEDURE create_wrapper_table_layout(x_xml_table_node OUT NOCOPY xmldom.DOMNode,
6145: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6146: p_target_subtree_xml_node xmldom.DOMNode) IS
6147:
6148: l_doc xmldom.DOMDocument;
6149: l_xml_table_node xmldom.DOMNode;
6142: END handle_USER_ATTRIBUTE10;
6143:
6144: PROCEDURE create_wrapper_table_layout(x_xml_table_node OUT NOCOPY xmldom.DOMNode,
6145: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6146: p_target_subtree_xml_node xmldom.DOMNode) IS
6147:
6148: l_doc xmldom.DOMDocument;
6149: l_xml_table_node xmldom.DOMNode;
6150:
6144: PROCEDURE create_wrapper_table_layout(x_xml_table_node OUT NOCOPY xmldom.DOMNode,
6145: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6146: p_target_subtree_xml_node xmldom.DOMNode) IS
6147:
6148: l_doc xmldom.DOMDocument;
6149: l_xml_table_node xmldom.DOMNode;
6150:
6151: BEGIN
6152: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
6145: x_xml_tabuicontent_node OUT NOCOPY xmldom.DOMNode,
6146: p_target_subtree_xml_node xmldom.DOMNode) IS
6147:
6148: l_doc xmldom.DOMDocument;
6149: l_xml_table_node xmldom.DOMNode;
6150:
6151: BEGIN
6152: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
6153:
6150:
6151: BEGIN
6152: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
6153:
6154: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
6155:
6156: remove_TopLevel_Attributes(l_xml_table_node);
6157:
6158: --x_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
6154: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
6155:
6156: remove_TopLevel_Attributes(l_xml_table_node);
6157:
6158: --x_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
6159: x_xml_table_node := cloneNode(l_xml_table_node, p_target_subtree_xml_node);
6160:
6161: set_Attribute(xmldom.makeElement(x_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
6162: set_Attribute(xmldom.makeElement(x_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
6157:
6158: --x_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
6159: x_xml_table_node := cloneNode(l_xml_table_node, p_target_subtree_xml_node);
6160:
6161: set_Attribute(xmldom.makeElement(x_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
6162: set_Attribute(xmldom.makeElement(x_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
6163:
6164: x_xml_tabuicontent_node := getUIContents(x_xml_table_node);
6165:
6158: --x_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
6159: x_xml_table_node := cloneNode(l_xml_table_node, p_target_subtree_xml_node);
6160:
6161: set_Attribute(xmldom.makeElement(x_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
6162: set_Attribute(xmldom.makeElement(x_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
6163:
6164: x_xml_tabuicontent_node := getUIContents(x_xml_table_node);
6165:
6166: END create_wrapper_table_layout;
6164: x_xml_tabuicontent_node := getUIContents(x_xml_table_node);
6165:
6166: END create_wrapper_table_layout;
6167:
6168: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6169: p_new_xml_node IN xmldom.DOMNode,
6170: p_ref_xml_node IN xmldom.DOMNode)
6171: RETURN xmldom.DOMNode IS
6172: l_new_xml_node xmldom.DOMNode;
6165:
6166: END create_wrapper_table_layout;
6167:
6168: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6169: p_new_xml_node IN xmldom.DOMNode,
6170: p_ref_xml_node IN xmldom.DOMNode)
6171: RETURN xmldom.DOMNode IS
6172: l_new_xml_node xmldom.DOMNode;
6173: BEGIN
6166: END create_wrapper_table_layout;
6167:
6168: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6169: p_new_xml_node IN xmldom.DOMNode,
6170: p_ref_xml_node IN xmldom.DOMNode)
6171: RETURN xmldom.DOMNode IS
6172: l_new_xml_node xmldom.DOMNode;
6173: BEGIN
6174:
6167:
6168: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6169: p_new_xml_node IN xmldom.DOMNode,
6170: p_ref_xml_node IN xmldom.DOMNode)
6171: RETURN xmldom.DOMNode IS
6172: l_new_xml_node xmldom.DOMNode;
6173: BEGIN
6174:
6175: IF xmldom.isNull(p_ref_xml_node) THEN
6168: FUNCTION insert_before(p_parent_xml_node IN xmldom.DOMNode,
6169: p_new_xml_node IN xmldom.DOMNode,
6170: p_ref_xml_node IN xmldom.DOMNode)
6171: RETURN xmldom.DOMNode IS
6172: l_new_xml_node xmldom.DOMNode;
6173: BEGIN
6174:
6175: IF xmldom.isNull(p_ref_xml_node) THEN
6176: l_new_xml_node := xmldom.appendChild(p_parent_xml_node, p_new_xml_node);
6171: RETURN xmldom.DOMNode IS
6172: l_new_xml_node xmldom.DOMNode;
6173: BEGIN
6174:
6175: IF xmldom.isNull(p_ref_xml_node) THEN
6176: l_new_xml_node := xmldom.appendChild(p_parent_xml_node, p_new_xml_node);
6177: ELSE
6178: l_new_xml_node := xmldom.insertBefore(p_parent_xml_node, p_new_xml_node, p_ref_xml_node);
6179: END IF;
6172: l_new_xml_node xmldom.DOMNode;
6173: BEGIN
6174:
6175: IF xmldom.isNull(p_ref_xml_node) THEN
6176: l_new_xml_node := xmldom.appendChild(p_parent_xml_node, p_new_xml_node);
6177: ELSE
6178: l_new_xml_node := xmldom.insertBefore(p_parent_xml_node, p_new_xml_node, p_ref_xml_node);
6179: END IF;
6180:
6174:
6175: IF xmldom.isNull(p_ref_xml_node) THEN
6176: l_new_xml_node := xmldom.appendChild(p_parent_xml_node, p_new_xml_node);
6177: ELSE
6178: l_new_xml_node := xmldom.insertBefore(p_parent_xml_node, p_new_xml_node, p_ref_xml_node);
6179: END IF;
6180:
6181: return l_new_xml_node;
6182: END insert_before;
6181: return l_new_xml_node;
6182: END insert_before;
6183:
6184: FUNCTION insert_node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6185: p_new_xml_node IN xmldom.DOMNode,
6186: p_parent_xml_node IN xmldom.DOMNode)
6187: RETURN xmldom.DOMNode IS
6188:
6189: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6182: END insert_before;
6183:
6184: FUNCTION insert_node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6185: p_new_xml_node IN xmldom.DOMNode,
6186: p_parent_xml_node IN xmldom.DOMNode)
6187: RETURN xmldom.DOMNode IS
6188:
6189: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6190: l_doc xmldom.DOMDocument;
6183:
6184: FUNCTION insert_node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6185: p_new_xml_node IN xmldom.DOMNode,
6186: p_parent_xml_node IN xmldom.DOMNode)
6187: RETURN xmldom.DOMNode IS
6188:
6189: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6190: l_doc xmldom.DOMDocument;
6191: l_anchor_doc xmldom.DOMDocument;
6186: p_parent_xml_node IN xmldom.DOMNode)
6187: RETURN xmldom.DOMNode IS
6188:
6189: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6190: l_doc xmldom.DOMDocument;
6191: l_anchor_doc xmldom.DOMDocument;
6192: l_subtree_doc xmldom.DOMDocument;
6193: l_xml_root_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6187: RETURN xmldom.DOMNode IS
6188:
6189: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6190: l_doc xmldom.DOMDocument;
6191: l_anchor_doc xmldom.DOMDocument;
6192: l_subtree_doc xmldom.DOMDocument;
6193: l_xml_root_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6188:
6189: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6190: l_doc xmldom.DOMDocument;
6191: l_anchor_doc xmldom.DOMDocument;
6192: l_subtree_doc xmldom.DOMDocument;
6193: l_xml_root_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6189: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6190: l_doc xmldom.DOMDocument;
6191: l_anchor_doc xmldom.DOMDocument;
6192: l_subtree_doc xmldom.DOMDocument;
6193: l_xml_root_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6190: l_doc xmldom.DOMDocument;
6191: l_anchor_doc xmldom.DOMDocument;
6192: l_subtree_doc xmldom.DOMDocument;
6193: l_xml_root_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6191: l_anchor_doc xmldom.DOMDocument;
6192: l_subtree_doc xmldom.DOMDocument;
6193: l_xml_root_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6192: l_subtree_doc xmldom.DOMDocument;
6193: l_xml_root_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6193: l_xml_root_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6194: l_new_xml_root_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6195: l_out_xml_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6196: l_xml_table_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6204: l_next_node xmldom.DOMNode;
6197: l_new_xml_table_node xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6204: l_next_node xmldom.DOMNode;
6205: l_prev_node_parent xmldom.DOMNode;
6198: l_xml_anchor_node xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6204: l_next_node xmldom.DOMNode;
6205: l_prev_node_parent xmldom.DOMNode;
6206: l_next_node_parent xmldom.DOMNode;
6199: l_new_xml_anchor_node xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6204: l_next_node xmldom.DOMNode;
6205: l_prev_node_parent xmldom.DOMNode;
6206: l_next_node_parent xmldom.DOMNode;
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6200: l_xml_node xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6204: l_next_node xmldom.DOMNode;
6205: l_prev_node_parent xmldom.DOMNode;
6206: l_next_node_parent xmldom.DOMNode;
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6208: l_next_node_parent_ui_cnt xmldom.DOMNode;
6201: l_xml_tabuicontent_node xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6204: l_next_node xmldom.DOMNode;
6205: l_prev_node_parent xmldom.DOMNode;
6206: l_next_node_parent xmldom.DOMNode;
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6208: l_next_node_parent_ui_cnt xmldom.DOMNode;
6209: l_grand_parent xmldom.DOMNode;
6202: l_ui_contents_xml_node xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6204: l_next_node xmldom.DOMNode;
6205: l_prev_node_parent xmldom.DOMNode;
6206: l_next_node_parent xmldom.DOMNode;
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6208: l_next_node_parent_ui_cnt xmldom.DOMNode;
6209: l_grand_parent xmldom.DOMNode;
6210: l_next_sibling_of_parent xmldom.DOMNode;
6203: l_prev_node xmldom.DOMNode;
6204: l_next_node xmldom.DOMNode;
6205: l_prev_node_parent xmldom.DOMNode;
6206: l_next_node_parent xmldom.DOMNode;
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6208: l_next_node_parent_ui_cnt xmldom.DOMNode;
6209: l_grand_parent xmldom.DOMNode;
6210: l_next_sibling_of_parent xmldom.DOMNode;
6211: l_child_nodes_tbl xmldom.DOMNodeList;
6204: l_next_node xmldom.DOMNode;
6205: l_prev_node_parent xmldom.DOMNode;
6206: l_next_node_parent xmldom.DOMNode;
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6208: l_next_node_parent_ui_cnt xmldom.DOMNode;
6209: l_grand_parent xmldom.DOMNode;
6210: l_next_sibling_of_parent xmldom.DOMNode;
6211: l_child_nodes_tbl xmldom.DOMNodeList;
6212: l_attribute_value VARCHAR2(4000);
6205: l_prev_node_parent xmldom.DOMNode;
6206: l_next_node_parent xmldom.DOMNode;
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6208: l_next_node_parent_ui_cnt xmldom.DOMNode;
6209: l_grand_parent xmldom.DOMNode;
6210: l_next_sibling_of_parent xmldom.DOMNode;
6211: l_child_nodes_tbl xmldom.DOMNodeList;
6212: l_attribute_value VARCHAR2(4000);
6213: l_attribute_source VARCHAR2(4000);
6206: l_next_node_parent xmldom.DOMNode;
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6208: l_next_node_parent_ui_cnt xmldom.DOMNode;
6209: l_grand_parent xmldom.DOMNode;
6210: l_next_sibling_of_parent xmldom.DOMNode;
6211: l_child_nodes_tbl xmldom.DOMNodeList;
6212: l_attribute_value VARCHAR2(4000);
6213: l_attribute_source VARCHAR2(4000);
6214: l_user_attribute VARCHAR2(4000);
6207: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6208: l_next_node_parent_ui_cnt xmldom.DOMNode;
6209: l_grand_parent xmldom.DOMNode;
6210: l_next_sibling_of_parent xmldom.DOMNode;
6211: l_child_nodes_tbl xmldom.DOMNodeList;
6212: l_attribute_value VARCHAR2(4000);
6213: l_attribute_source VARCHAR2(4000);
6214: l_user_attribute VARCHAR2(4000);
6215: l_user_attribute4 VARCHAR2(4000);
6296:
6297: IF l_prev_element_id IS NOT NULL THEN
6298: l_prev_node := g_dom_elements_tbl(TO_NUMBER(l_prev_element_id));
6299:
6300: l_prev_node_parent_ui_cnt := xmldom.getParentNode(l_prev_node);
6301: l_prev_node_parent := xmldom.getParentNode(l_prev_node_parent_ui_cnt);
6302: BEGIN
6303: SELECT layout_ui_style INTO l_prev_elt_lyt_ui_style
6304: FROM CZ_UI_TEMPLATES
6297: IF l_prev_element_id IS NOT NULL THEN
6298: l_prev_node := g_dom_elements_tbl(TO_NUMBER(l_prev_element_id));
6299:
6300: l_prev_node_parent_ui_cnt := xmldom.getParentNode(l_prev_node);
6301: l_prev_node_parent := xmldom.getParentNode(l_prev_node_parent_ui_cnt);
6302: BEGIN
6303: SELECT layout_ui_style INTO l_prev_elt_lyt_ui_style
6304: FROM CZ_UI_TEMPLATES
6305: WHERE template_id = l_prev_element_template_id
6315: --DEBUG('Here 3');
6316:
6317: IF l_next_element_id IS NOT NULL THEN
6318: l_next_node := g_dom_elements_tbl(TO_NUMBER(l_next_element_id));
6319: l_next_node_parent_ui_cnt := xmldom.getParentNode(l_next_node);
6320: l_next_node_parent := xmldom.getParentNode(l_next_node_parent_ui_cnt);
6321: BEGIN
6322: SELECT layout_ui_style INTO l_next_elt_lyt_ui_style
6323: FROM CZ_UI_TEMPLATES
6316:
6317: IF l_next_element_id IS NOT NULL THEN
6318: l_next_node := g_dom_elements_tbl(TO_NUMBER(l_next_element_id));
6319: l_next_node_parent_ui_cnt := xmldom.getParentNode(l_next_node);
6320: l_next_node_parent := xmldom.getParentNode(l_next_node_parent_ui_cnt);
6321: BEGIN
6322: SELECT layout_ui_style INTO l_next_elt_lyt_ui_style
6323: FROM CZ_UI_TEMPLATES
6324: WHERE template_id = l_next_element_template_id
6354: OR l_next_element_id IS NOT NULL THEN
6355: IF l_wrap_it THEN
6356: IF l_prev_element_id IS NOT NULL AND
6357: NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
6358: l_next_node := xmldom.getNextSibling(l_prev_node);
6359: l_new_xml_root_node := insert_before(l_prev_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6360: ELSIF l_next_element_id IS NOT NULL AND
6361: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
6362: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6361: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
6362: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6363: ELSE
6364: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6365: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6366: IF l_prev_element_id IS NOT NULL THEN
6367: l_next_node := xmldom.getNextSibling(l_prev_node);
6368: l_xml_table_node := insert_before(l_prev_node_parent_ui_cnt, l_xml_table_node, l_next_node);
6369: ELSIF l_next_element_id IS NOT NULL THEN
6363: ELSE
6364: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6365: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6366: IF l_prev_element_id IS NOT NULL THEN
6367: l_next_node := xmldom.getNextSibling(l_prev_node);
6368: l_xml_table_node := insert_before(l_prev_node_parent_ui_cnt, l_xml_table_node, l_next_node);
6369: ELSIF l_next_element_id IS NOT NULL THEN
6370: l_xml_table_node := insert_before(l_next_node_parent_ui_cnt, l_xml_table_node, l_next_node);
6371: ELSE
6369: ELSIF l_next_element_id IS NOT NULL THEN
6370: l_xml_table_node := insert_before(l_next_node_parent_ui_cnt, l_xml_table_node, l_next_node);
6371: ELSE
6372: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6373: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
6374: END IF;
6375: END IF;
6376: ELSE -- new element is not LABEL_DATA_PAIR
6377:
6380: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
6381:
6382:
6383: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
6384: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
6385: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6386: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6387: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6388: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6381:
6382:
6383: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
6384: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
6385: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6386: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6387: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6388: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6389: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6383: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
6384: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
6385: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6386: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6387: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6388: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6389: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6390: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
6391: l_next_node := l_xml_table_node;
6385: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6386: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6387: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6388: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6389: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6390: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
6391: l_next_node := l_xml_table_node;
6392: END IF;
6393: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6386: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6387: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6388: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
6389: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6390: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
6391: l_next_node := l_xml_table_node;
6392: END IF;
6393: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6394: ELSE
6389: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
6390: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
6391: l_next_node := l_xml_table_node;
6392: END IF;
6393: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6394: ELSE
6395: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6396: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6397: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6391: l_next_node := l_xml_table_node;
6392: END IF;
6393: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6394: ELSE
6395: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6396: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6397: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6398: END IF;
6399: 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
6392: END IF;
6393: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
6394: ELSE
6395: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6396: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6397: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6398: END IF;
6399: 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
6400: l_next_node := xmldom.getNextSibling(l_prev_node);
6396: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6397: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6398: END IF;
6399: 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
6400: l_next_node := xmldom.getNextSibling(l_prev_node);
6401: l_new_xml_root_node := insert_before(l_prev_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6402: ELSIF l_next_element_id IS NOT NULL AND
6403: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6404: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6402: ELSIF l_next_element_id IS NOT NULL AND
6403: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6404: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6405: ELSIF l_prev_element_id IS NOT NULL THEN
6406: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6407: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6408: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6409: ELSE
6410: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
6403: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
6404: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
6405: ELSIF l_prev_element_id IS NOT NULL THEN
6406: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6407: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6408: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6409: ELSE
6410: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
6411: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_node_parent);
6406: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
6407: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
6408: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
6409: ELSE
6410: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
6411: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_node_parent);
6412: END IF;
6413: END IF;
6414: ELSE
6418:
6419: IF l_wrap_it THEN
6420: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6421: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6422: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
6423: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6424: ELSE
6425: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6426: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
6419: IF l_wrap_it THEN
6420: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6421: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
6422: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
6423: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6424: ELSE
6425: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6426: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
6427: END IF;
6422: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
6423: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
6424: ELSE
6425: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
6426: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
6427: END IF;
6428: END IF;
6429:
6430: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
6434:
6435: FUNCTION pluck_XML_node(p_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE,
6436: p_page_id NUMBER,
6437: p_element_id VARCHAR2)
6438: RETURN xmldom.DOMNode IS
6439:
6440: l_xml_node_to_pluck xmldom.DOMNode;
6441: l_parent_xml_node xmldom.DOMNode;
6442: l_subtree_doc xmldom.DOMDocument;
6436: p_page_id NUMBER,
6437: p_element_id VARCHAR2)
6438: RETURN xmldom.DOMNode IS
6439:
6440: l_xml_node_to_pluck xmldom.DOMNode;
6441: l_parent_xml_node xmldom.DOMNode;
6442: l_subtree_doc xmldom.DOMDocument;
6443: l_element_id NUMBER;
6444:
6437: p_element_id VARCHAR2)
6438: RETURN xmldom.DOMNode IS
6439:
6440: l_xml_node_to_pluck xmldom.DOMNode;
6441: l_parent_xml_node xmldom.DOMNode;
6442: l_subtree_doc xmldom.DOMDocument;
6443: l_element_id NUMBER;
6444:
6445: BEGIN
6438: RETURN xmldom.DOMNode IS
6439:
6440: l_xml_node_to_pluck xmldom.DOMNode;
6441: l_parent_xml_node xmldom.DOMNode;
6442: l_subtree_doc xmldom.DOMDocument;
6443: l_element_id NUMBER;
6444:
6445: BEGIN
6446:
6456: G_ID_ATTRIBUTE,
6457: p_element_id,
6458: G_NO_FLAG);
6459:
6460: l_parent_xml_node := xmldom.getParentNode(l_xml_node_to_pluck);
6461:
6462: l_xml_node_to_pluck := xmldom.removeChild(l_parent_xml_node, l_xml_node_to_pluck);
6463:
6464: Save_Document(l_subtree_doc, p_jrad_doc);
6458: G_NO_FLAG);
6459:
6460: l_parent_xml_node := xmldom.getParentNode(l_xml_node_to_pluck);
6461:
6462: l_xml_node_to_pluck := xmldom.removeChild(l_parent_xml_node, l_xml_node_to_pluck);
6463:
6464: Save_Document(l_subtree_doc, p_jrad_doc);
6465: END IF;
6466:
6469: END pluck_XML_node;
6470:
6471:
6472: FUNCTION move_XML_Node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6473: p_parent_xml_node xmldom.DOMNode)
6474: RETURN xmldom.DOMNode IS
6475:
6476: l_src_page_id NUMBER;
6477: l_xml_node_to_move xmldom.DOMNode;
6470:
6471:
6472: FUNCTION move_XML_Node(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6473: p_parent_xml_node xmldom.DOMNode)
6474: RETURN xmldom.DOMNode IS
6475:
6476: l_src_page_id NUMBER;
6477: l_xml_node_to_move xmldom.DOMNode;
6478: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
6473: p_parent_xml_node xmldom.DOMNode)
6474: RETURN xmldom.DOMNode IS
6475:
6476: l_src_page_id NUMBER;
6477: l_xml_node_to_move xmldom.DOMNode;
6478: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
6479: l_counter NUMBER;
6480: l_element_ids_tbl varchar2_tbl_type;
6481: l_id VARCHAR2(255);
6585: END LOOP;
6586: END handle_JRAD_Id;
6587:
6588: FUNCTION create_UIXML_Element_new(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6589: p_parent_xml_node xmldom.DOMNode)
6590: RETURN xmldom.DOMNode IS
6591:
6592: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6593: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6586: END handle_JRAD_Id;
6587:
6588: FUNCTION create_UIXML_Element_new(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
6589: p_parent_xml_node xmldom.DOMNode)
6590: RETURN xmldom.DOMNode IS
6591:
6592: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6593: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6594: l_doc xmldom.DOMDocument;
6590: RETURN xmldom.DOMNode IS
6591:
6592: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6593: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6594: l_doc xmldom.DOMDocument;
6595: l_anchor_doc xmldom.DOMDocument;
6596: l_subtree_doc xmldom.DOMDocument;
6597: l_xml_root_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6591:
6592: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6593: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6594: l_doc xmldom.DOMDocument;
6595: l_anchor_doc xmldom.DOMDocument;
6596: l_subtree_doc xmldom.DOMDocument;
6597: l_xml_root_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6592: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
6593: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6594: l_doc xmldom.DOMDocument;
6595: l_anchor_doc xmldom.DOMDocument;
6596: l_subtree_doc xmldom.DOMDocument;
6597: l_xml_root_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6593: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
6594: l_doc xmldom.DOMDocument;
6595: l_anchor_doc xmldom.DOMDocument;
6596: l_subtree_doc xmldom.DOMDocument;
6597: l_xml_root_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6594: l_doc xmldom.DOMDocument;
6595: l_anchor_doc xmldom.DOMDocument;
6596: l_subtree_doc xmldom.DOMDocument;
6597: l_xml_root_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6595: l_anchor_doc xmldom.DOMDocument;
6596: l_subtree_doc xmldom.DOMDocument;
6597: l_xml_root_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6596: l_subtree_doc xmldom.DOMDocument;
6597: l_xml_root_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6597: l_xml_root_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6598: l_new_xml_root_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6599: l_out_xml_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6600: l_xml_table_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6608: l_next_node xmldom.DOMNode;
6601: l_new_xml_table_node xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6608: l_next_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6602: l_xml_anchor_node xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6608: l_next_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6610: l_next_node_parent xmldom.DOMNode;
6603: l_new_xml_anchor_node xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6608: l_next_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6610: l_next_node_parent xmldom.DOMNode;
6611: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6604: l_xml_node xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6608: l_next_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6610: l_next_node_parent xmldom.DOMNode;
6611: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6612: l_next_node_parent_ui_cnt xmldom.DOMNode;
6605: l_xml_tabuicontent_node xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6608: l_next_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6610: l_next_node_parent xmldom.DOMNode;
6611: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6612: l_next_node_parent_ui_cnt xmldom.DOMNode;
6613: l_grand_parent xmldom.DOMNode;
6606: l_ui_contents_xml_node xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6608: l_next_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6610: l_next_node_parent xmldom.DOMNode;
6611: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6612: l_next_node_parent_ui_cnt xmldom.DOMNode;
6613: l_grand_parent xmldom.DOMNode;
6614: l_next_sibling_of_parent xmldom.DOMNode;
6607: l_prev_node xmldom.DOMNode;
6608: l_next_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6610: l_next_node_parent xmldom.DOMNode;
6611: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6612: l_next_node_parent_ui_cnt xmldom.DOMNode;
6613: l_grand_parent xmldom.DOMNode;
6614: l_next_sibling_of_parent xmldom.DOMNode;
6615:
6608: l_next_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6610: l_next_node_parent xmldom.DOMNode;
6611: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6612: l_next_node_parent_ui_cnt xmldom.DOMNode;
6613: l_grand_parent xmldom.DOMNode;
6614: l_next_sibling_of_parent xmldom.DOMNode;
6615:
6616: l_curr_parent_xml_node xmldom.DOMNode;
6609: l_prev_node_parent xmldom.DOMNode;
6610: l_next_node_parent xmldom.DOMNode;
6611: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6612: l_next_node_parent_ui_cnt xmldom.DOMNode;
6613: l_grand_parent xmldom.DOMNode;
6614: l_next_sibling_of_parent xmldom.DOMNode;
6615:
6616: l_curr_parent_xml_node xmldom.DOMNode;
6617: l_xml_node_name VARCHAR2(255);
6610: l_next_node_parent xmldom.DOMNode;
6611: l_prev_node_parent_ui_cnt xmldom.DOMNode;
6612: l_next_node_parent_ui_cnt xmldom.DOMNode;
6613: l_grand_parent xmldom.DOMNode;
6614: l_next_sibling_of_parent xmldom.DOMNode;
6615:
6616: l_curr_parent_xml_node xmldom.DOMNode;
6617: l_xml_node_name VARCHAR2(255);
6618: l_new_attribute_value VARCHAR2(255);
6612: l_next_node_parent_ui_cnt xmldom.DOMNode;
6613: l_grand_parent xmldom.DOMNode;
6614: l_next_sibling_of_parent xmldom.DOMNode;
6615:
6616: l_curr_parent_xml_node xmldom.DOMNode;
6617: l_xml_node_name VARCHAR2(255);
6618: l_new_attribute_value VARCHAR2(255);
6619:
6620: l_child_nodes_tbl xmldom.DOMNodeList;
6616: l_curr_parent_xml_node xmldom.DOMNode;
6617: l_xml_node_name VARCHAR2(255);
6618: l_new_attribute_value VARCHAR2(255);
6619:
6620: l_child_nodes_tbl xmldom.DOMNodeList;
6621: l_attribute_value VARCHAR2(4000);
6622: l_attribute_source VARCHAR2(4000);
6623: l_user_attribute VARCHAR2(4000);
6624: l_user_attribute4 VARCHAR2(4000);
6737: -- parse document(template) which is going to be nested element
6738: --
6739: l_subtree_doc := parse_JRAD_Document(l_ctrl_template_name);
6740:
6741: IF xmldom.isNull(l_subtree_doc) THEN
6742: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
6743: p_token_name => 'UI_TEMPLATE',
6744: p_token_value => l_ctrl_template_name,
6745: p_fatal_error => TRUE);
6749:
6750: --
6751: -- get subdocument's root node
6752: --
6753: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
6754:
6755: --
6756: -- remove common attributes of container and subtree
6757: --
6774: --
6775: -- set a special attribute "blockSize" if it is Table control
6776: --
6777: /* commented out according to request from 8/12/2004
6778: IF xmldom.getNodeName(l_xml_root_node) IN('oa:table') THEN
6779: set_Attribute(l_xml_root_node,
6780: 'blockSize',
6781: TO_CHAR(g_UI_Context.ROWS_PER_TABLE));
6782: END IF;
6787:
6788: --
6789: -- returns cloned DOM subtree
6790: --
6791: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node,TRUE);
6792: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
6793:
6794: --DEBUG('asp:Adding ' || p_ui_node.element_id || ' to table');
6795: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
6800:
6801: --
6802: -- set "extends" attribute
6803: --
6804: xmldom.setAttribute(xmldom.makeElement(l_new_xml_root_node),'extends',l_ctrl_template_name);
6805:
6806: --
6807: -- remove content of template subtree
6808: --
6805:
6806: --
6807: -- remove content of template subtree
6808: --
6809: l_child_nodes_tbl:=xmldom.getChildNodes(l_new_xml_root_node);
6810:
6811: --
6812: -- we need to get length of array of child nodes
6813: -- to go through the array in loop
6811: --
6812: -- we need to get length of array of child nodes
6813: -- to go through the array in loop
6814: --
6815: l_length := xmldom.getLength(l_child_nodes_tbl);
6816: FOR k IN 0..l_length-1
6817: LOOP
6818: --
6819: -- get next child DOM node
6817: LOOP
6818: --
6819: -- get next child DOM node
6820: --
6821: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
6822: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
6823: END LOOP;
6824:
6825: ELSE -- use UI Template by Copy
6818: --
6819: -- get next child DOM node
6820: --
6821: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
6822: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
6823: END LOOP;
6824:
6825: ELSE -- use UI Template by Copy
6826:
6823: END LOOP;
6824:
6825: ELSE -- use UI Template by Copy
6826:
6827: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
6828:
6829: l_length := xmldom.getLength(l_child_nodes_tbl);
6830: IF (l_length > 0) THEN
6831: FOR k IN 0..l_length-1
6825: ELSE -- use UI Template by Copy
6826:
6827: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
6828:
6829: l_length := xmldom.getLength(l_child_nodes_tbl);
6830: IF (l_length > 0) THEN
6831: FOR k IN 0..l_length-1
6832: LOOP
6833: --
6832: LOOP
6833: --
6834: -- get next child DOM node
6835: --
6836: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
6837:
6838: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
6839:
6840: IF k > 0 THEN
6834: -- get next child DOM node
6835: --
6836: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
6837:
6838: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
6839:
6840: IF k > 0 THEN
6841: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
6842:
6839:
6840: IF k > 0 THEN
6841: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
6842:
6843: l_xml_node_name := xmldom.getNodeName(l_xml_node);
6844:
6845: IF l_attribute_value IS NOT NULL THEN
6846: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
6847: l_new_attribute_value := REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'), '_czc','_czn');
6844:
6845: IF l_attribute_value IS NOT NULL THEN
6846: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
6847: l_new_attribute_value := REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'), '_czc','_czn');
6848: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE, l_new_attribute_value);
6849: END IF;
6850:
6851: l_ancestor_node := get_Attribute_Value(l_xml_node,
6852: 'ancestorNode');
6855: SELECT jrad_doc INTO l_jrad_doc FROM CZ_UI_PAGES
6856: WHERE page_id=p_ui_node.page_id AND ui_def_id=p_ui_node.ui_def_id;
6857:
6858: l_hgrid_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:tree');
6859: IF NOT(xmldom.IsNull(l_xml_node)) THEN
6860: l_ancestor_node := l_jrad_doc||'.'||l_hgrid_element_id;
6861:
6862: set_Attribute(l_xml_node,
6863: 'ancestorNode',
6867:
6868: --
6869: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
6870: --
6871: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
6872: l_old_switcher_xml_id := l_attribute_value;
6873: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
6874: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
6875: l_switcher_casename := REPLACE(l_switcher_casename,l_attribute_value, l_new_attribute_value);
6885:
6886: --
6887: -- set value of attribute "name" of
6888: --
6889: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
6890: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
6891: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
6892: set_Attribute(xmldom.makeElement(l_xml_node),
6893: 'name',
6888: --
6889: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
6890: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
6891: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
6892: set_Attribute(xmldom.makeElement(l_xml_node),
6893: 'name',
6894: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'), '_czc', '_czn'));
6895: handle_UI_CASE_Id(l_xml_node);
6896: END IF;
6899: -- if current tag is
6900: -- then replace old id with new one
6901: --
6902: IF (l_xml_node_name='oa:stackLayout' AND
6903: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
6904: set_Attribute(xmldom.makeElement(l_xml_node),
6905: G_ID_ATTRIBUTE,
6906: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
6907: END IF;
6900: -- then replace old id with new one
6901: --
6902: IF (l_xml_node_name='oa:stackLayout' AND
6903: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
6904: set_Attribute(xmldom.makeElement(l_xml_node),
6905: G_ID_ATTRIBUTE,
6906: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
6907: END IF;
6908:
6983: END IF; -- end of IF k > 0 THEN
6984: END LOOP;
6985: END IF;
6986:
6987: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node, TRUE);
6988: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
6989:
6990: --DEBUG('asp:Adding ' || p_ui_node.element_id || ' to table 2');
6991: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
7002: -- last element of the given parent region
7003:
7004: IF l_prev_element_id IS NOT NULL THEN
7005: l_prev_node := g_dom_elements_tbl(TO_NUMBER(l_prev_element_id));
7006: l_prev_node_parent_ui_cnt := xmldom.getParentNode(l_prev_node);
7007: l_prev_node_parent := xmldom.getParentNode(l_prev_node_parent_ui_cnt);
7008: BEGIN
7009: SELECT layout_ui_style INTO l_prev_elt_lyt_ui_style
7010: FROM CZ_UI_TEMPLATES
7003:
7004: IF l_prev_element_id IS NOT NULL THEN
7005: l_prev_node := g_dom_elements_tbl(TO_NUMBER(l_prev_element_id));
7006: l_prev_node_parent_ui_cnt := xmldom.getParentNode(l_prev_node);
7007: l_prev_node_parent := xmldom.getParentNode(l_prev_node_parent_ui_cnt);
7008: BEGIN
7009: SELECT layout_ui_style INTO l_prev_elt_lyt_ui_style
7010: FROM CZ_UI_TEMPLATES
7011: WHERE template_id = l_prev_element_template_id
7022: --DEBUG('Here 8.11 ' || l_next_element_id);
7023: IF g_dom_elements_tbl.EXISTS(TO_NUMBER(l_next_element_id)) THEN
7024: l_next_node := g_dom_elements_tbl(TO_NUMBER(l_next_element_id));
7025: --DEBUG('Here 8.12');
7026: l_next_node_parent_ui_cnt := xmldom.getParentNode(l_next_node);
7027: --DEBUG('Here 8.13');
7028: l_next_node_parent := xmldom.getParentNode(l_next_node_parent_ui_cnt);
7029: --DEBUG('Here 8.14');
7030: BEGIN
7024: l_next_node := g_dom_elements_tbl(TO_NUMBER(l_next_element_id));
7025: --DEBUG('Here 8.12');
7026: l_next_node_parent_ui_cnt := xmldom.getParentNode(l_next_node);
7027: --DEBUG('Here 8.13');
7028: l_next_node_parent := xmldom.getParentNode(l_next_node_parent_ui_cnt);
7029: --DEBUG('Here 8.14');
7030: BEGIN
7031: SELECT layout_ui_style INTO l_next_elt_lyt_ui_style
7032: FROM CZ_UI_TEMPLATES
7088: OR l_next_element_id IS NOT NULL THEN
7089: IF l_wrap_it THEN
7090: IF l_prev_element_id IS NOT NULL AND
7091: NVL(l_prev_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
7092: l_next_node := xmldom.getNextSibling(l_prev_node);
7093: l_new_xml_root_node := insert_before(l_prev_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7094: ELSIF l_next_element_id IS NOT NULL AND
7095: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
7096: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7095: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
7096: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7097: ELSE
7098: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7099: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7100: IF l_prev_element_id IS NOT NULL THEN
7101: l_next_node := xmldom.getNextSibling(l_prev_node);
7102: l_xml_table_node := insert_before(l_prev_node_parent_ui_cnt, l_xml_table_node, l_next_node);
7103: ELSIF l_next_element_id IS NOT NULL THEN
7097: ELSE
7098: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7099: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7100: IF l_prev_element_id IS NOT NULL THEN
7101: l_next_node := xmldom.getNextSibling(l_prev_node);
7102: l_xml_table_node := insert_before(l_prev_node_parent_ui_cnt, l_xml_table_node, l_next_node);
7103: ELSIF l_next_element_id IS NOT NULL THEN
7104: l_xml_table_node := insert_before(l_next_node_parent_ui_cnt, l_xml_table_node, l_next_node);
7105: ELSE
7103: ELSIF l_next_element_id IS NOT NULL THEN
7104: l_xml_table_node := insert_before(l_next_node_parent_ui_cnt, l_xml_table_node, l_next_node);
7105: ELSE
7106: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7107: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7108: END IF;
7109: END IF;
7110: ELSE -- new element is not LABEL_DATA_PAIR
7111:
7114: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) = G_LABEL_PAIR_LAYOUT_STYLE THEN
7115:
7116:
7117: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
7118: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
7119: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7120: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7121: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7122: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7115:
7116:
7117: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
7118: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
7119: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7120: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7121: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7122: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7123: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7117: IF get_Attribute_Value(l_prev_node_parent, G_ID_ATTRIBUTE) = get_Attribute_Value(l_next_node_parent, G_ID_ATTRIBUTE) THEN
7118: IF xmldom.getNodeName(l_prev_node_parent) = 'oa:tableLayout' THEN
7119: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7120: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7121: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7122: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7123: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7124: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
7125: l_next_node := l_xml_table_node;
7119: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7120: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7121: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7122: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7123: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7124: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
7125: l_next_node := l_xml_table_node;
7126: END IF;
7127: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7120: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7121: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7122: l_xml_table_node := insert_before(l_grand_parent, l_xml_table_node, l_next_sibling_of_parent);
7123: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7124: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
7125: l_next_node := l_xml_table_node;
7126: END IF;
7127: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7128: ELSE
7123: l_next_node := xmldom.removeChild(l_prev_node_parent_ui_cnt, l_next_node);
7124: l_next_node := xmldom.appendChild(l_xml_tabuicontent_node, l_next_node);
7125: l_next_node := l_xml_table_node;
7126: END IF;
7127: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7128: ELSE
7129: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7130: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7131: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7125: l_next_node := l_xml_table_node;
7126: END IF;
7127: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7128: ELSE
7129: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7130: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7131: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7132: END IF;
7133: 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
7126: END IF;
7127: l_next_node := xmldom.insertBefore(l_grand_parent, l_new_xml_root_node, l_next_node);
7128: ELSE
7129: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7130: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7131: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7132: END IF;
7133: 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
7134: l_next_node := xmldom.getNextSibling(l_prev_node);
7130: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7131: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7132: END IF;
7133: 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
7134: l_next_node := xmldom.getNextSibling(l_prev_node);
7135: l_new_xml_root_node := insert_before(l_prev_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7136: ELSIF l_next_element_id IS NOT NULL AND
7137: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7138: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7136: ELSIF l_next_element_id IS NOT NULL AND
7137: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7138: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7139: ELSIF l_prev_element_id IS NOT NULL THEN
7140: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7141: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7142: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7143: ELSE
7144: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
7137: NVL(l_next_elt_lyt_ui_style, G_OTHER_LAYOUT_STYLE) <> G_LABEL_PAIR_LAYOUT_STYLE THEN
7138: l_new_xml_root_node := insert_before(l_next_node_parent_ui_cnt, l_new_xml_root_node, l_next_node);
7139: ELSIF l_prev_element_id IS NOT NULL THEN
7140: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7141: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7142: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7143: ELSE
7144: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
7145: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_node_parent);
7140: l_grand_parent := xmldom.getParentNode(l_prev_node_parent);
7141: l_next_sibling_of_parent := xmldom.getNextSibling(l_prev_node_parent);
7142: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_sibling_of_parent);
7143: ELSE
7144: l_grand_parent := xmldom.getParentNode(l_next_node_parent);
7145: l_new_xml_root_node := insert_before(l_grand_parent, l_new_xml_root_node, l_next_node_parent);
7146: END IF;
7147: END IF;
7148: ELSE
7150: -- Insert at the end
7151: --DEBUG('asp:Append at the end');
7152:
7153: IF l_wrap_it THEN
7154: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(p_parent_xml_node));
7155: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7156: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(l_ui_contents_xml_node));
7157: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7158: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7152:
7153: IF l_wrap_it THEN
7154: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(p_parent_xml_node));
7155: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7156: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(l_ui_contents_xml_node));
7157: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7158: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7159: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7160: ELSE
7154: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(p_parent_xml_node));
7155: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7156: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(l_ui_contents_xml_node));
7157: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7158: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7159: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7160: ELSE
7161: --DEBUG('Append at the end. Not wrapping');
7162: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7155: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7156: --DEBUG('Append at the end. Wrapping ' || xmldom.getNodeName(l_ui_contents_xml_node));
7157: create_wrapper_table_layout(l_xml_table_node, l_xml_tabuicontent_node, p_parent_xml_node);
7158: l_xml_table_node := xmldom.appendChild(l_ui_contents_xml_node, l_xml_table_node);
7159: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7160: ELSE
7161: --DEBUG('Append at the end. Not wrapping');
7162: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7163: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
7159: l_new_xml_root_node := xmldom.appendChild(l_xml_tabuicontent_node, l_new_xml_root_node);
7160: ELSE
7161: --DEBUG('Append at the end. Not wrapping');
7162: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7163: l_new_xml_root_node := xmldom.appendChild(l_ui_contents_xml_node, l_new_xml_root_node);
7164: END IF;
7165: END IF;
7166:
7167: RETURN l_new_xml_root_node;
7171: --
7172: -- create new XML JRAD element
7173: --
7174: FUNCTION create_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7175: p_parent_xml_node xmldom.DOMNode)
7176: RETURN xmldom.DOMNode IS
7177:
7178: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7179: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7172: -- create new XML JRAD element
7173: --
7174: FUNCTION create_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7175: p_parent_xml_node xmldom.DOMNode)
7176: RETURN xmldom.DOMNode IS
7177:
7178: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7179: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7180: l_doc xmldom.DOMDocument;
7176: RETURN xmldom.DOMNode IS
7177:
7178: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7179: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7180: l_doc xmldom.DOMDocument;
7181: l_anchor_doc xmldom.DOMDocument;
7182: l_subtree_doc xmldom.DOMDocument;
7183: l_xml_root_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7177:
7178: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7179: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7180: l_doc xmldom.DOMDocument;
7181: l_anchor_doc xmldom.DOMDocument;
7182: l_subtree_doc xmldom.DOMDocument;
7183: l_xml_root_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7178: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7179: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7180: l_doc xmldom.DOMDocument;
7181: l_anchor_doc xmldom.DOMDocument;
7182: l_subtree_doc xmldom.DOMDocument;
7183: l_xml_root_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7186: l_xml_table_node xmldom.DOMNode;
7179: l_ctrl_template_name CZ_UI_TEMPLATES.template_name%TYPE;
7180: l_doc xmldom.DOMDocument;
7181: l_anchor_doc xmldom.DOMDocument;
7182: l_subtree_doc xmldom.DOMDocument;
7183: l_xml_root_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7186: l_xml_table_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7180: l_doc xmldom.DOMDocument;
7181: l_anchor_doc xmldom.DOMDocument;
7182: l_subtree_doc xmldom.DOMDocument;
7183: l_xml_root_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7186: l_xml_table_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7188: l_xml_anchor_node xmldom.DOMNode;
7181: l_anchor_doc xmldom.DOMDocument;
7182: l_subtree_doc xmldom.DOMDocument;
7183: l_xml_root_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7186: l_xml_table_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7188: l_xml_anchor_node xmldom.DOMNode;
7189: l_new_xml_anchor_node xmldom.DOMNode;
7182: l_subtree_doc xmldom.DOMDocument;
7183: l_xml_root_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7186: l_xml_table_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7188: l_xml_anchor_node xmldom.DOMNode;
7189: l_new_xml_anchor_node xmldom.DOMNode;
7190: l_xml_node xmldom.DOMNode;
7183: l_xml_root_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7186: l_xml_table_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7188: l_xml_anchor_node xmldom.DOMNode;
7189: l_new_xml_anchor_node xmldom.DOMNode;
7190: l_xml_node xmldom.DOMNode;
7191: l_xml_tabuicontent_node xmldom.DOMNode;
7184: l_new_xml_root_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7186: l_xml_table_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7188: l_xml_anchor_node xmldom.DOMNode;
7189: l_new_xml_anchor_node xmldom.DOMNode;
7190: l_xml_node xmldom.DOMNode;
7191: l_xml_tabuicontent_node xmldom.DOMNode;
7192: l_ui_contents_xml_node xmldom.DOMNode;
7185: l_out_xml_node xmldom.DOMNode;
7186: l_xml_table_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7188: l_xml_anchor_node xmldom.DOMNode;
7189: l_new_xml_anchor_node xmldom.DOMNode;
7190: l_xml_node xmldom.DOMNode;
7191: l_xml_tabuicontent_node xmldom.DOMNode;
7192: l_ui_contents_xml_node xmldom.DOMNode;
7193:
7186: l_xml_table_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7188: l_xml_anchor_node xmldom.DOMNode;
7189: l_new_xml_anchor_node xmldom.DOMNode;
7190: l_xml_node xmldom.DOMNode;
7191: l_xml_tabuicontent_node xmldom.DOMNode;
7192: l_ui_contents_xml_node xmldom.DOMNode;
7193:
7194: l_curr_parent_xml_node xmldom.DOMNode;
7187: l_new_xml_table_node xmldom.DOMNode;
7188: l_xml_anchor_node xmldom.DOMNode;
7189: l_new_xml_anchor_node xmldom.DOMNode;
7190: l_xml_node xmldom.DOMNode;
7191: l_xml_tabuicontent_node xmldom.DOMNode;
7192: l_ui_contents_xml_node xmldom.DOMNode;
7193:
7194: l_curr_parent_xml_node xmldom.DOMNode;
7195: l_xml_node_name VARCHAR2(255);
7188: l_xml_anchor_node xmldom.DOMNode;
7189: l_new_xml_anchor_node xmldom.DOMNode;
7190: l_xml_node xmldom.DOMNode;
7191: l_xml_tabuicontent_node xmldom.DOMNode;
7192: l_ui_contents_xml_node xmldom.DOMNode;
7193:
7194: l_curr_parent_xml_node xmldom.DOMNode;
7195: l_xml_node_name VARCHAR2(255);
7196: l_new_attribute_value VARCHAR2(255);
7190: l_xml_node xmldom.DOMNode;
7191: l_xml_tabuicontent_node xmldom.DOMNode;
7192: l_ui_contents_xml_node xmldom.DOMNode;
7193:
7194: l_curr_parent_xml_node xmldom.DOMNode;
7195: l_xml_node_name VARCHAR2(255);
7196: l_new_attribute_value VARCHAR2(255);
7197:
7198: l_child_nodes_tbl xmldom.DOMNodeList;
7194: l_curr_parent_xml_node xmldom.DOMNode;
7195: l_xml_node_name VARCHAR2(255);
7196: l_new_attribute_value VARCHAR2(255);
7197:
7198: l_child_nodes_tbl xmldom.DOMNodeList;
7199: l_attribute_value VARCHAR2(4000);
7200: l_attribute_source VARCHAR2(4000);
7201: l_user_attribute VARCHAR2(4000);
7202: l_user_attribute4 VARCHAR2(4000);
7281:
7282: --
7283: -- add TableLayout
7284: --
7285: IF xmldom.isNull(l_xml_tabuicontent_node) THEN
7286:
7287: BEGIN
7288: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
7289:
7286:
7287: BEGIN
7288: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
7289:
7290: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7291:
7292: remove_TopLevel_Attributes(l_xml_table_node);
7293:
7294: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7290: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7291:
7292: remove_TopLevel_Attributes(l_xml_table_node);
7293:
7294: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7295: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7296:
7297: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7298: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7293:
7294: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7295: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7296:
7297: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7298: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7299:
7300: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7301:
7294: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7295: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7296:
7297: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7298: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7299:
7300: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7301:
7302: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7298: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7299:
7300: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7301:
7302: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7303: 'oa:flowLayout','oa:tableLayout') THEN
7304:
7305: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7306: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7302: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7303: 'oa:flowLayout','oa:tableLayout') THEN
7304:
7305: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7306: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7307: ELSE
7308: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,l_new_xml_table_node);
7309: END IF;
7310:
7304:
7305: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7306: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7307: ELSE
7308: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,l_new_xml_table_node);
7309: END IF;
7310:
7311: EXCEPTION
7312: WHEN OTHERS THEN
7330: l_node.detailed_type_id NOT IN(CZ_TYPES.UOPTIONAL_BOM_REF_TYPEID,CZ_TYPES.UMINMAX_BOM_REF_TYPEID) THEN
7331: --
7332: -- add TableLayout
7333: --
7334: IF xmldom.isNull(l_xml_tabuicontent_node) THEN
7335: BEGIN
7336: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
7337:
7338: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7334: IF xmldom.isNull(l_xml_tabuicontent_node) THEN
7335: BEGIN
7336: l_doc := parse_JRAD_Document(G_TABLELAYOUT_TEMPLATE);
7337:
7338: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7339:
7340: remove_TopLevel_Attributes(l_xml_table_node);
7341:
7342: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7338: l_xml_table_node :=xmldom.makeNode(xmldom.getDocumentElement(l_doc));
7339:
7340: remove_TopLevel_Attributes(l_xml_table_node);
7341:
7342: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7343: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7344:
7345: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7346: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7341:
7342: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7343: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7344:
7345: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7346: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7347:
7348: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7349:
7342: --l_new_xml_table_node := xmldom.cloneNode(l_xml_table_node,TRUE);
7343: l_new_xml_table_node := cloneNode(l_xml_table_node, p_parent_xml_node);
7344:
7345: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_ID_ATTRIBUTE,get_Element_Id());
7346: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7347:
7348: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7349:
7350: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7346: set_Attribute(xmldom.makeElement(l_new_xml_table_node),G_USER_ATTRIBUTE5_NAME,'TABLELAYOUT_FOR_UI_GEN');
7347:
7348: l_xml_tabuicontent_node := getUIContents(l_new_xml_table_node);
7349:
7350: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7351: 'oa:flowLayout','oa:tableLayout') THEN
7352:
7353: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7354:
7351: 'oa:flowLayout','oa:tableLayout') THEN
7352:
7353: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7354:
7355: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7356: ELSE
7357: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,l_new_xml_table_node);
7358: END IF;
7359: EXCEPTION
7353: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7354:
7355: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,l_new_xml_table_node);
7356: ELSE
7357: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,l_new_xml_table_node);
7358: END IF;
7359: EXCEPTION
7360: WHEN OTHERS THEN
7361: DEBUG('create_UIXML_Element : '||SQLERRM);
7384: -- parse document(template) which is going to be nested element
7385: --
7386: l_subtree_doc := parse_JRAD_Document(l_ctrl_template_name);
7387:
7388: IF xmldom.isNull(l_subtree_doc) THEN
7389: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
7390: p_token_name => 'UI_TEMPLATE',
7391: p_token_value => l_ctrl_template_name,
7392: p_fatal_error => TRUE);
7396:
7397: --
7398: -- get subdocument's root node
7399: --
7400: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
7401:
7402: IF l_template_is_used_by_ref=FALSE THEN
7403: handle_USER_ATTRIBUTE10(p_xml_root_node => l_xml_root_node,
7404: p_ui_def_id => p_ui_node.ui_def_id,
7427: --
7428: -- set a special attribute "blockSize" if it is Table control
7429: --
7430: /* commented out according to request from 8/12/2004
7431: IF xmldom.getNodeName(l_xml_root_node) IN('oa:table') THEN
7432: set_Attribute(l_xml_root_node,
7433: 'blockSize',
7434: TO_CHAR(g_UI_Context.ROWS_PER_TABLE));
7435: END IF;
7438:
7439: --
7440: -- returns cloned DOM subtree
7441: --
7442: -- l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node,TRUE);
7443: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7444:
7445: --
7446: -- remove non user attributes from top tag
7449:
7450: --
7451: -- set "extends" attribute
7452: --
7453: xmldom.setAttribute(xmldom.makeElement(l_new_xml_root_node),'extends',l_ctrl_template_name);
7454:
7455: --
7456: -- remove content of template subtree
7457: --
7454:
7455: --
7456: -- remove content of template subtree
7457: --
7458: l_child_nodes_tbl:=xmldom.getChildNodes(l_new_xml_root_node);
7459:
7460: --
7461: -- we need to get length of array of child nodes
7462: -- to go through the array in loop
7460: --
7461: -- we need to get length of array of child nodes
7462: -- to go through the array in loop
7463: --
7464: l_length := xmldom.getLength(l_child_nodes_tbl);
7465: FOR k IN 0..l_length-1
7466: LOOP
7467: --
7468: -- get next child DOM node
7466: LOOP
7467: --
7468: -- get next child DOM node
7469: --
7470: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7471: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7472: END LOOP;
7473:
7474: ELSE -- use UI Template by Copy
7467: --
7468: -- get next child DOM node
7469: --
7470: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7471: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7472: END LOOP;
7473:
7474: ELSE -- use UI Template by Copy
7475:
7472: END LOOP;
7473:
7474: ELSE -- use UI Template by Copy
7475:
7476: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
7477:
7478: l_length := xmldom.getLength(l_child_nodes_tbl);
7479: IF (l_length > 0) THEN
7480: FOR k IN 0..l_length-1
7474: ELSE -- use UI Template by Copy
7475:
7476: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
7477:
7478: l_length := xmldom.getLength(l_child_nodes_tbl);
7479: IF (l_length > 0) THEN
7480: FOR k IN 0..l_length-1
7481: LOOP
7482: --
7481: LOOP
7482: --
7483: -- get next child DOM node
7484: --
7485: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7486: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
7487:
7488: IF k > 0 THEN
7489: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
7482: --
7483: -- get next child DOM node
7484: --
7485: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7486: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
7487:
7488: IF k > 0 THEN
7489: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
7490:
7487:
7488: IF k > 0 THEN
7489: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
7490:
7491: l_xml_node_name := xmldom.getNodeName(l_xml_node);
7492:
7493: IF l_attribute_value IS NOT NULL THEN
7494: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
7495: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'),'_czc','_czn'));
7491: l_xml_node_name := xmldom.getNodeName(l_xml_node);
7492:
7493: IF l_attribute_value IS NOT NULL THEN
7494: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
7495: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'),'_czc','_czn'));
7496: END IF;
7497:
7498: l_ancestor_node := get_Attribute_Value(l_xml_node,
7499: 'ancestorNode');
7502: SELECT jrad_doc INTO l_jrad_doc FROM CZ_UI_PAGES
7503: WHERE page_id=p_ui_node.page_id AND ui_def_id=p_ui_node.ui_def_id;
7504:
7505: l_hgrid_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:tree');
7506: IF NOT(xmldom.IsNull(l_xml_node)) THEN
7507: l_ancestor_node := l_jrad_doc||'.'||l_hgrid_element_id;
7508:
7509: set_Attribute(l_xml_node,
7510: 'ancestorNode',
7514:
7515: --
7516: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
7517: --
7518: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
7519: l_old_switcher_xml_id := l_attribute_value;
7520: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
7521: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
7522: l_switcher_casename := REPLACE(REPLACE(REPLACE(l_switcher_casename,l_attribute_value, l_new_attribute_value),'_czt','_czn'),'_czc','_czn');
7531:
7532: --
7533: -- set value of attribute "name" of
7534: --
7535: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
7536: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
7537: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
7538: set_Attribute(xmldom.makeElement(l_xml_node),
7539: 'name',
7534: --
7535: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
7536: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
7537: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
7538: set_Attribute(xmldom.makeElement(l_xml_node),
7539: 'name',
7540: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'),'_czc','_czn'));
7541: handle_UI_CASE_Id(l_xml_node);
7542: END IF;
7545: -- if current tag is
7546: -- then replace old id with new one
7547: --
7548: IF (l_xml_node_name='oa:stackLayout' AND
7549: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
7550: set_Attribute(xmldom.makeElement(l_xml_node),
7551: G_ID_ATTRIBUTE,
7552: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
7553: END IF;
7546: -- then replace old id with new one
7547: --
7548: IF (l_xml_node_name='oa:stackLayout' AND
7549: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
7550: set_Attribute(xmldom.makeElement(l_xml_node),
7551: G_ID_ATTRIBUTE,
7552: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
7553: END IF;
7554:
7629: END IF; -- end of IF k > 0 THEN
7630: END LOOP;
7631: END IF;
7632:
7633: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node, TRUE);
7634: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7635:
7636: END IF;
7637:
7641:
7642: BEGIN
7643: l_anchor_doc := parse_JRAD_Document(G_ANCHOR_TEMPLATE);
7644:
7645: l_xml_anchor_node :=xmldom.makeNode(xmldom.getDocumentElement(l_anchor_doc));
7646:
7647: remove_TopLevel_Attributes(l_xml_anchor_node);
7648:
7649: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7645: l_xml_anchor_node :=xmldom.makeNode(xmldom.getDocumentElement(l_anchor_doc));
7646:
7647: remove_TopLevel_Attributes(l_xml_anchor_node);
7648:
7649: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7650: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7651:
7652: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,get_Element_Id());
7653: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'ANCHOR_GENERATED_BY_UI_GEN');
7648:
7649: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7650: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7651:
7652: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,get_Element_Id());
7653: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'ANCHOR_GENERATED_BY_UI_GEN');
7654:
7655: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7656: l_new_xml_anchor_node);
7649: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7650: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7651:
7652: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,get_Element_Id());
7653: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'ANCHOR_GENERATED_BY_UI_GEN');
7654:
7655: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7656: l_new_xml_anchor_node);
7657:
7651:
7652: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,get_Element_Id());
7653: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'ANCHOR_GENERATED_BY_UI_GEN');
7654:
7655: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7656: l_new_xml_anchor_node);
7657:
7658: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7659: l_new_xml_root_node);
7654:
7655: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7656: l_new_xml_anchor_node);
7657:
7658: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7659: l_new_xml_root_node);
7660:
7661: EXCEPTION
7662: WHEN OTHERS THEN
7664: END;
7665:
7666: ELSE -- don't wrap it with rowLayout+Link
7667:
7668: l_out_xml_node := xmldom.appendChild(l_xml_tabuicontent_node,
7669: l_new_xml_root_node);
7670:
7671: END IF;
7672:
7677: IF l_wrap_with_links THEN
7678: BEGIN
7679: l_anchor_doc := parse_JRAD_Document(G_LINK_TEMPLATE);
7680:
7681: l_xml_anchor_node :=xmldom.makeNode(xmldom.getDocumentElement(l_anchor_doc));
7682:
7683: remove_TopLevel_Attributes(l_xml_anchor_node);
7684:
7685: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7681: l_xml_anchor_node :=xmldom.makeNode(xmldom.getDocumentElement(l_anchor_doc));
7682:
7683: remove_TopLevel_Attributes(l_xml_anchor_node);
7684:
7685: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7686: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7687:
7688: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,
7689: '_czt'||to_char(p_ui_node.persistent_node_id)); -- fix for bug #4047136
7684:
7685: --l_new_xml_anchor_node := xmldom.cloneNode(l_xml_anchor_node,TRUE);
7686: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7687:
7688: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,
7689: '_czt'||to_char(p_ui_node.persistent_node_id)); -- fix for bug #4047136
7690: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'LINK_GENERATED_BY_UI_GEN');
7691: EXCEPTION
7692: WHEN OTHERS THEN
7686: l_new_xml_anchor_node := cloneNode(l_xml_anchor_node, p_parent_xml_node);
7687:
7688: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_ID_ATTRIBUTE,
7689: '_czt'||to_char(p_ui_node.persistent_node_id)); -- fix for bug #4047136
7690: set_Attribute(xmldom.makeElement(l_new_xml_anchor_node),G_USER_ATTRIBUTE5_NAME,'LINK_GENERATED_BY_UI_GEN');
7691: EXCEPTION
7692: WHEN OTHERS THEN
7693: DEBUG('create_UIXML_Element() : '||SQLERRM);
7694: END;
7693: DEBUG('create_UIXML_Element() : '||SQLERRM);
7694: END;
7695: END IF;
7696:
7697: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7698: 'oa:flowLayout','oa:tableLayout') THEN
7699:
7700:
7701: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7700:
7701: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7702:
7703: IF l_wrap_with_links THEN
7704: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7705: l_new_xml_anchor_node);
7706: END IF;
7707: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7708: l_new_xml_root_node);
7703: IF l_wrap_with_links THEN
7704: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7705: l_new_xml_anchor_node);
7706: END IF;
7707: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7708: l_new_xml_root_node);
7709: ELSE
7710:
7711: IF l_wrap_with_links THEN
7708: l_new_xml_root_node);
7709: ELSE
7710:
7711: IF l_wrap_with_links THEN
7712: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
7713: l_new_xml_anchor_node);
7714: END IF;
7715:
7716: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
7712: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
7713: l_new_xml_anchor_node);
7714: END IF;
7715:
7716: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
7717: l_new_xml_root_node);
7718: END IF;
7719: RETURN l_out_xml_node;
7720: END IF;
7724: --
7725: -- add new XML region
7726: --
7727: FUNCTION create_UIXML_Region(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7728: p_parent_xml_node xmldom.DOMNode)
7729: RETURN xmldom.DOMNode IS
7730:
7731: l_subtree_doc xmldom.DOMDocument;
7732: l_xml_root_node xmldom.DOMNode;
7725: -- add new XML region
7726: --
7727: FUNCTION create_UIXML_Region(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7728: p_parent_xml_node xmldom.DOMNode)
7729: RETURN xmldom.DOMNode IS
7730:
7731: l_subtree_doc xmldom.DOMDocument;
7732: l_xml_root_node xmldom.DOMNode;
7733: l_new_xml_root_node xmldom.DOMNode;
7727: FUNCTION create_UIXML_Region(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7728: p_parent_xml_node xmldom.DOMNode)
7729: RETURN xmldom.DOMNode IS
7730:
7731: l_subtree_doc xmldom.DOMDocument;
7732: l_xml_root_node xmldom.DOMNode;
7733: l_new_xml_root_node xmldom.DOMNode;
7734: l_out_xml_node xmldom.DOMNode;
7735: l_ui_contents_xml_node xmldom.DOMNode;
7728: p_parent_xml_node xmldom.DOMNode)
7729: RETURN xmldom.DOMNode IS
7730:
7731: l_subtree_doc xmldom.DOMDocument;
7732: l_xml_root_node xmldom.DOMNode;
7733: l_new_xml_root_node xmldom.DOMNode;
7734: l_out_xml_node xmldom.DOMNode;
7735: l_ui_contents_xml_node xmldom.DOMNode;
7736: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
7729: RETURN xmldom.DOMNode IS
7730:
7731: l_subtree_doc xmldom.DOMDocument;
7732: l_xml_root_node xmldom.DOMNode;
7733: l_new_xml_root_node xmldom.DOMNode;
7734: l_out_xml_node xmldom.DOMNode;
7735: l_ui_contents_xml_node xmldom.DOMNode;
7736: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
7737:
7730:
7731: l_subtree_doc xmldom.DOMDocument;
7732: l_xml_root_node xmldom.DOMNode;
7733: l_new_xml_root_node xmldom.DOMNode;
7734: l_out_xml_node xmldom.DOMNode;
7735: l_ui_contents_xml_node xmldom.DOMNode;
7736: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
7737:
7738: BEGIN
7731: l_subtree_doc xmldom.DOMDocument;
7732: l_xml_root_node xmldom.DOMNode;
7733: l_new_xml_root_node xmldom.DOMNode;
7734: l_out_xml_node xmldom.DOMNode;
7735: l_ui_contents_xml_node xmldom.DOMNode;
7736: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
7737:
7738: BEGIN
7739:
7743: -- parse document(template) which is going to be nested element
7744: --
7745: l_subtree_doc := parse_JRAD_Document(l_jrad_doc);
7746:
7747: IF xmldom.isNull(l_subtree_doc) THEN
7748: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
7749: p_token_name => 'UI_TEMPLATE',
7750: p_token_value => l_jrad_doc,
7751: p_fatal_error => TRUE);
7754:
7755: --
7756: -- get subdocument's root node
7757: --
7758: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
7759:
7760: --
7761: -- remove common attributes of container and subtree
7762: --
7775:
7776: --
7777: -- returns cloned DOM subtree
7778: --
7779: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node, TRUE);
7780: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7781:
7782: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
7783:
7780: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7781:
7782: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
7783:
7784: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7785: 'oa:flowLayout','oa:tableLayout','oa:rowLayout') THEN
7786:
7787: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7788: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7784: IF xmldom.getNodeName(p_parent_xml_node) IN('oa:header','oa:stackLayout',
7785: 'oa:flowLayout','oa:tableLayout','oa:rowLayout') THEN
7786:
7787: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7788: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7789: l_new_xml_root_node);
7790: ELSE
7791: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
7792: l_new_xml_root_node);
7787: l_ui_contents_xml_node := getUIContents(p_parent_xml_node);
7788: l_out_xml_node := xmldom.appendChild(l_ui_contents_xml_node,
7789: l_new_xml_root_node);
7790: ELSE
7791: l_out_xml_node := xmldom.appendChild(p_parent_xml_node,
7792: l_new_xml_root_node);
7793: END IF;
7794:
7795: RETURN l_out_xml_node;
7799: --
7800: -- replace XML JRAD element
7801: --
7802: FUNCTION replace_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7803: p_parent_xml_node xmldom.DOMNode,
7804: p_xml_node_to_replace xmldom.DOMNode)
7805: RETURN xmldom.DOMNode IS
7806:
7807: l_subtree_doc xmldom.DOMDocument;
7800: -- replace XML JRAD element
7801: --
7802: FUNCTION replace_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7803: p_parent_xml_node xmldom.DOMNode,
7804: p_xml_node_to_replace xmldom.DOMNode)
7805: RETURN xmldom.DOMNode IS
7806:
7807: l_subtree_doc xmldom.DOMDocument;
7808: l_xml_root_node xmldom.DOMNode;
7801: --
7802: FUNCTION replace_UIXML_Element(p_ui_node IN CZ_UI_PAGE_ELEMENTS%ROWTYPE,
7803: p_parent_xml_node xmldom.DOMNode,
7804: p_xml_node_to_replace xmldom.DOMNode)
7805: RETURN xmldom.DOMNode IS
7806:
7807: l_subtree_doc xmldom.DOMDocument;
7808: l_xml_root_node xmldom.DOMNode;
7809: l_new_xml_root_node xmldom.DOMNode;
7803: p_parent_xml_node xmldom.DOMNode,
7804: p_xml_node_to_replace xmldom.DOMNode)
7805: RETURN xmldom.DOMNode IS
7806:
7807: l_subtree_doc xmldom.DOMDocument;
7808: l_xml_root_node xmldom.DOMNode;
7809: l_new_xml_root_node xmldom.DOMNode;
7810: l_out_xml_node xmldom.DOMNode;
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7804: p_xml_node_to_replace xmldom.DOMNode)
7805: RETURN xmldom.DOMNode IS
7806:
7807: l_subtree_doc xmldom.DOMDocument;
7808: l_xml_root_node xmldom.DOMNode;
7809: l_new_xml_root_node xmldom.DOMNode;
7810: l_out_xml_node xmldom.DOMNode;
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7812: l_tabxml_node xmldom.DOMNode;
7805: RETURN xmldom.DOMNode IS
7806:
7807: l_subtree_doc xmldom.DOMDocument;
7808: l_xml_root_node xmldom.DOMNode;
7809: l_new_xml_root_node xmldom.DOMNode;
7810: l_out_xml_node xmldom.DOMNode;
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7812: l_tabxml_node xmldom.DOMNode;
7813: l_xml_node xmldom.DOMNode;
7806:
7807: l_subtree_doc xmldom.DOMDocument;
7808: l_xml_root_node xmldom.DOMNode;
7809: l_new_xml_root_node xmldom.DOMNode;
7810: l_out_xml_node xmldom.DOMNode;
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7812: l_tabxml_node xmldom.DOMNode;
7813: l_xml_node xmldom.DOMNode;
7814: l_parent_xml_node xmldom.DOMNode;
7807: l_subtree_doc xmldom.DOMDocument;
7808: l_xml_root_node xmldom.DOMNode;
7809: l_new_xml_root_node xmldom.DOMNode;
7810: l_out_xml_node xmldom.DOMNode;
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7812: l_tabxml_node xmldom.DOMNode;
7813: l_xml_node xmldom.DOMNode;
7814: l_parent_xml_node xmldom.DOMNode;
7815: l_child_nodes_tbl xmldom.DOMNodeList;
7808: l_xml_root_node xmldom.DOMNode;
7809: l_new_xml_root_node xmldom.DOMNode;
7810: l_out_xml_node xmldom.DOMNode;
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7812: l_tabxml_node xmldom.DOMNode;
7813: l_xml_node xmldom.DOMNode;
7814: l_parent_xml_node xmldom.DOMNode;
7815: l_child_nodes_tbl xmldom.DOMNodeList;
7816: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
7809: l_new_xml_root_node xmldom.DOMNode;
7810: l_out_xml_node xmldom.DOMNode;
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7812: l_tabxml_node xmldom.DOMNode;
7813: l_xml_node xmldom.DOMNode;
7814: l_parent_xml_node xmldom.DOMNode;
7815: l_child_nodes_tbl xmldom.DOMNodeList;
7816: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
7817: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7810: l_out_xml_node xmldom.DOMNode;
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7812: l_tabxml_node xmldom.DOMNode;
7813: l_xml_node xmldom.DOMNode;
7814: l_parent_xml_node xmldom.DOMNode;
7815: l_child_nodes_tbl xmldom.DOMNodeList;
7816: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
7817: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7818: l_user_attribute4 VARCHAR2(4000);
7811: l_tabxml_uicontens_node xmldom.DOMNode;
7812: l_tabxml_node xmldom.DOMNode;
7813: l_xml_node xmldom.DOMNode;
7814: l_parent_xml_node xmldom.DOMNode;
7815: l_child_nodes_tbl xmldom.DOMNodeList;
7816: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
7817: l_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
7818: l_user_attribute4 VARCHAR2(4000);
7819: l_user_attribute VARCHAR2(4000);
7820: l_drilldown_text_id NUMBER;
7821: l_ui_action_id NUMBER;
7822: l_length NUMBER;
7823: l_use_by_reference BOOLEAN;
7824: l_curr_parent_xml_node xmldom.DOMNode;
7825: l_attribute_value VARCHAR2(32000);
7826: l_xml_node_name VARCHAR2(4000);
7827: l_old_switcher_xml_id VARCHAR2(4000);
7828: l_user_attribute3_value VARCHAR2(32000);
7837: l_node := get_Model_Node_By_Persist_Id(p_ui_node.persistent_node_id,g_UI_Context.devl_project_id);
7838:
7839: IF p_ui_node.ctrl_template_id IS NULL AND p_ui_node.element_type=G_UI_DRILLDOWN_NODE_TYPE THEN
7840: BEGIN
7841: l_new_xml_root_node := xmldom.removeChild(p_parent_xml_node,p_xml_node_to_replace);
7842: EXCEPTION
7843: WHEN OTHERS THEN
7844: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
7845: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
7841: l_new_xml_root_node := xmldom.removeChild(p_parent_xml_node,p_xml_node_to_replace);
7842: EXCEPTION
7843: WHEN OTHERS THEN
7844: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
7845: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
7846: l_tabxml_uicontens_node := getUIContents(l_tabxml_node);
7847: l_new_xml_root_node := xmldom.removeChild(l_tabxml_uicontens_node,p_xml_node_to_replace);
7848: END IF;
7849: END;
7843: WHEN OTHERS THEN
7844: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
7845: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
7846: l_tabxml_uicontens_node := getUIContents(l_tabxml_node);
7847: l_new_xml_root_node := xmldom.removeChild(l_tabxml_uicontens_node,p_xml_node_to_replace);
7848: END IF;
7849: END;
7850: RETURN p_parent_xml_node;
7851: END IF;
7863: l_jrad_doc := get_JRAD_Name(p_template_id => p_ui_node.ctrl_template_id);
7864:
7865: l_subtree_doc := parse_JRAD_Document(l_jrad_doc);
7866:
7867: IF xmldom.isNull(l_subtree_doc) THEN
7868: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
7869: p_token_name => 'UI_TEMPLATE',
7870: p_token_value => l_jrad_doc,
7871: p_fatal_error => TRUE);
7874:
7875: --
7876: -- get subdocument's root node
7877: --
7878: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
7879:
7880: --
7881: -- remove common attributes of container and subtree
7882: --
7891: IF l_use_by_reference THEN
7892: --
7893: -- returns cloned DOM subtree
7894: --
7895: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node,TRUE);
7896: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
7897:
7898:
7899: --
7898:
7899: --
7900: -- set "extends" attribute
7901: --
7902: xmldom.setAttribute(xmldom.makeElement(l_new_xml_root_node),'extends',l_jrad_doc);
7903:
7904: l_user_attribute4 := get_Attribute_Value(l_new_xml_root_node,
7905: G_USER_ATTRIBUTE4_NAME);
7906: IF l_user_attribute4 IS NOT NULL THEN
7921:
7922: --
7923: -- remove content of template subtree
7924: --
7925: l_child_nodes_tbl:=xmldom.getChildNodes(l_new_xml_root_node);
7926:
7927: --
7928: -- we need to get length of array of child nodes
7929: -- to go through the array in loop
7927: --
7928: -- we need to get length of array of child nodes
7929: -- to go through the array in loop
7930: --
7931: l_length := xmldom.getLength(l_child_nodes_tbl);
7932: FOR k IN 0..l_length-1
7933: LOOP
7934: --
7935: -- get next child DOM node
7933: LOOP
7934: --
7935: -- get next child DOM node
7936: --
7937: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7938: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7939: END LOOP;
7940:
7941: ELSE -- use by Copy
7934: --
7935: -- get next child DOM node
7936: --
7937: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7938: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7939: END LOOP;
7940:
7941: ELSE -- use by Copy
7942: l_child_nodes_tbl := xmldom.getElementsByTagName(xmldom.makeElement(l_xml_root_node), '*');
7938: l_out_xml_node:=xmldom.removeChild(l_new_xml_root_node,l_xml_node);
7939: END LOOP;
7940:
7941: ELSE -- use by Copy
7942: l_child_nodes_tbl := xmldom.getElementsByTagName(xmldom.makeElement(l_xml_root_node), '*');
7943: l_length := xmldom.getLength(l_child_nodes_tbl);
7944: IF (l_length > 0) THEN
7945: FOR k IN 0..l_length-1
7946: LOOP
7939: END LOOP;
7940:
7941: ELSE -- use by Copy
7942: l_child_nodes_tbl := xmldom.getElementsByTagName(xmldom.makeElement(l_xml_root_node), '*');
7943: l_length := xmldom.getLength(l_child_nodes_tbl);
7944: IF (l_length > 0) THEN
7945: FOR k IN 0..l_length-1
7946: LOOP
7947: --
7946: LOOP
7947: --
7948: -- get next child DOM node
7949: --
7950: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
7951:
7952: IF p_ui_node.ctrl_template_id=g_DRILLDOWN_TEMPLATE_ID THEN
7953:
7954: IF attribute_Value(l_xml_node, 'source') IS NULL AND
8001: END IF; -- end of IF p_ui_node.ctrl_template_id=g_DRILLDOWN_TEMPLATE_ID THEN
8002:
8003: IF k > 0 THEN
8004:
8005: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
8006:
8007: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
8008:
8009: l_xml_node_name := xmldom.getNodeName(l_xml_node);
8005: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
8006:
8007: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
8008:
8009: l_xml_node_name := xmldom.getNodeName(l_xml_node);
8010:
8011: IF l_attribute_value IS NOT NULL THEN
8012: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
8013: l_new_attribute_value := REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'), '_czc','_czn');
8010:
8011: IF l_attribute_value IS NOT NULL THEN
8012: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,p_ui_node.element_id);
8013: l_new_attribute_value := REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'), '_czc','_czn');
8014: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE, l_new_attribute_value);
8015: END IF;
8016:
8017: --
8018: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
8016:
8017: --
8018: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
8019: --
8020: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
8021: l_old_switcher_xml_id := l_attribute_value;
8022: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
8023: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
8024: l_switcher_casename := REPLACE(l_switcher_casename,l_attribute_value, l_new_attribute_value);
8034:
8035: --
8036: -- set value of attribute "name" of
8037: --
8038: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
8039: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
8040: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
8041: set_Attribute(xmldom.makeElement(l_xml_node),
8042: 'name',
8037: --
8038: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
8039: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
8040: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
8041: set_Attribute(xmldom.makeElement(l_xml_node),
8042: 'name',
8043: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'), '_czc', '_czn'));
8044: handle_UI_CASE_Id(l_xml_node);
8045: END IF;
8048: -- if current tag is
8049: -- then replace old id with new one
8050: --
8051: IF (l_xml_node_name='oa:stackLayout' AND
8052: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
8053: set_Attribute(xmldom.makeElement(l_xml_node),
8054: G_ID_ATTRIBUTE,
8055: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
8056: END IF;
8049: -- then replace old id with new one
8050: --
8051: IF (l_xml_node_name='oa:stackLayout' AND
8052: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
8053: set_Attribute(xmldom.makeElement(l_xml_node),
8054: G_ID_ATTRIBUTE,
8055: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
8056: END IF;
8057: END IF; -- end of IF k > 0 THEN
8058:
8059: END LOOP;
8060: END IF; -- end of IF (l_length > 0) THEN
8061:
8062: --l_new_xml_root_node := xmldom.cloneNode(l_xml_root_node, TRUE);
8063: l_new_xml_root_node := cloneNode(l_xml_root_node, p_parent_xml_node);
8064:
8065:
8066: l_user_attribute4 := get_Attribute_Value(l_new_xml_root_node,
8085: END IF;
8086:
8087: END IF; -- end of use by Copy
8088:
8089: l_parent_xml_node := xmldom.getParentNode(p_xml_node_to_replace);
8090: IF g_using_new_UI_refresh THEN
8091: g_dom_elements_tbl.DELETE(TO_NUMBER(p_ui_node.element_id));
8092: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
8093: l_new_xml_root_node := xmldom.replaceChild(l_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8089: l_parent_xml_node := xmldom.getParentNode(p_xml_node_to_replace);
8090: IF g_using_new_UI_refresh THEN
8091: g_dom_elements_tbl.DELETE(TO_NUMBER(p_ui_node.element_id));
8092: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
8093: l_new_xml_root_node := xmldom.replaceChild(l_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8094: ELSE
8095: BEGIN
8096: l_new_xml_root_node := xmldom.replaceChild(p_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8097: EXCEPTION
8092: g_dom_elements_tbl(TO_NUMBER(p_ui_node.element_id)) := l_new_xml_root_node;
8093: l_new_xml_root_node := xmldom.replaceChild(l_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8094: ELSE
8095: BEGIN
8096: l_new_xml_root_node := xmldom.replaceChild(p_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8097: EXCEPTION
8098: WHEN OTHERS THEN
8099: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8100: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8096: l_new_xml_root_node := xmldom.replaceChild(p_parent_xml_node,l_new_xml_root_node, p_xml_node_to_replace);
8097: EXCEPTION
8098: WHEN OTHERS THEN
8099: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8100: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8101: l_tabxml_uicontens_node := getUIContents(l_tabxml_node);
8102: l_new_xml_root_node := xmldom.replaceChild(l_tabxml_uicontens_node, l_new_xml_root_node, p_xml_node_to_replace);
8103: END IF;
8104: END;
8098: WHEN OTHERS THEN
8099: l_tabxml_node := find_Table_Of_XML_Node(p_parent_xml_node, p_ui_node.element_id);
8100: IF NOT(xmldom.IsNull(l_tabxml_node)) THEN
8101: l_tabxml_uicontens_node := getUIContents(l_tabxml_node);
8102: l_new_xml_root_node := xmldom.replaceChild(l_tabxml_uicontens_node, l_new_xml_root_node, p_xml_node_to_replace);
8103: END IF;
8104: END;
8105: END IF;
8106: RETURN p_parent_xml_node;
8114:
8115: PROCEDURE refresh_Model_Path(p_ui_element_id VARCHAR2,
8116: p_ui_page_id NUMBER,
8117: p_persistent_node_id NUMBER,
8118: p_xml_node_to_refresh xmldom.DOMNode) IS
8119:
8120: l_new_model_path VARCHAR2(32000);
8121: l_current_model_path VARCHAR2(32000);
8122: l_user_attribute3 VARCHAR2(32000);
8196: WHEN OTHERS THEN
8197: NULL;
8198: END refresh_Model_Path;
8199:
8200: PROCEDURE refresh_All_Model_Paths(p_xml_doc xmldom.DOMDocument,
8201: p_page_id NUMBER) IS
8202:
8203: l_node xmldom.DOMNode;
8204: l_nodeslist xmldom.DOMNodeList;
8199:
8200: PROCEDURE refresh_All_Model_Paths(p_xml_doc xmldom.DOMDocument,
8201: p_page_id NUMBER) IS
8202:
8203: l_node xmldom.DOMNode;
8204: l_nodeslist xmldom.DOMNodeList;
8205: l_empty_xml_node xmldom.DOMNode;
8206: l_length NUMBER;
8207: l_element_id VARCHAR2(32000);
8200: PROCEDURE refresh_All_Model_Paths(p_xml_doc xmldom.DOMDocument,
8201: p_page_id NUMBER) IS
8202:
8203: l_node xmldom.DOMNode;
8204: l_nodeslist xmldom.DOMNodeList;
8205: l_empty_xml_node xmldom.DOMNode;
8206: l_length NUMBER;
8207: l_element_id VARCHAR2(32000);
8208: l_persistent_node_id NUMBER;
8201: p_page_id NUMBER) IS
8202:
8203: l_node xmldom.DOMNode;
8204: l_nodeslist xmldom.DOMNodeList;
8205: l_empty_xml_node xmldom.DOMNode;
8206: l_length NUMBER;
8207: l_element_id VARCHAR2(32000);
8208: l_persistent_node_id NUMBER;
8209: l_exists_in_page_elem BOOLEAN;
8209: l_exists_in_page_elem BOOLEAN;
8210:
8211: BEGIN
8212:
8213: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
8214: l_length := xmldom.getLength(l_nodeslist);
8215:
8216: --
8217: -- delete XML elements
8210:
8211: BEGIN
8212:
8213: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
8214: l_length := xmldom.getLength(l_nodeslist);
8215:
8216: --
8217: -- delete XML elements
8218: --
8217: -- delete XML elements
8218: --
8219: FOR i IN 0..l_length-1
8220: LOOP
8221: l_node := xmldom.item(l_nodeslist, i);
8222: l_element_id := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
8223: IF l_element_id IS NOT NULL THEN
8224: BEGIN
8225: SELECT persistent_node_id INTO l_persistent_node_id FROM CZ_UI_PAGE_ELEMENTS
8253: -- get attributes of a given DOM node
8254: -- Parameters : p_node - DOM node
8255: -- Return : array of attributes in format of attributes_tbl_type array
8256: --
8257: FUNCTION get_Attributes(p_node IN xmldom.DOMNode)
8258: RETURN attributes_tbl_type IS
8259:
8260: l_attr_tbl attributes_tbl_type;
8261: l_node_map_tbl xmldom.DOMNamedNodeMap;
8257: FUNCTION get_Attributes(p_node IN xmldom.DOMNode)
8258: RETURN attributes_tbl_type IS
8259:
8260: l_attr_tbl attributes_tbl_type;
8261: l_node_map_tbl xmldom.DOMNamedNodeMap;
8262: l_node_attr xmldom.DOMNode;
8263: l_index NUMBER;
8264: l_length NUMBER;
8265:
8258: RETURN attributes_tbl_type IS
8259:
8260: l_attr_tbl attributes_tbl_type;
8261: l_node_map_tbl xmldom.DOMNamedNodeMap;
8262: l_node_attr xmldom.DOMNode;
8263: l_index NUMBER;
8264: l_length NUMBER;
8265:
8266: BEGIN
8263: l_index NUMBER;
8264: l_length NUMBER;
8265:
8266: BEGIN
8267: l_node_map_tbl := xmldom.getAttributes(p_node);
8268: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
8269: l_length := xmldom.getLength(l_node_map_tbl);
8270: --
8271: -- loop through attributes
8264: l_length NUMBER;
8265:
8266: BEGIN
8267: l_node_map_tbl := xmldom.getAttributes(p_node);
8268: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
8269: l_length := xmldom.getLength(l_node_map_tbl);
8270: --
8271: -- loop through attributes
8272: --
8265:
8266: BEGIN
8267: l_node_map_tbl := xmldom.getAttributes(p_node);
8268: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
8269: l_length := xmldom.getLength(l_node_map_tbl);
8270: --
8271: -- loop through attributes
8272: --
8273: l_index := 1;
8272: --
8273: l_index := 1;
8274: FOR i IN 0 .. l_length - 1
8275: LOOP
8276: l_node_attr := xmldom.item(l_node_map_tbl, i);
8277: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
8278: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
8279: l_index := l_index + 1;
8280: END LOOP;
8273: l_index := 1;
8274: FOR i IN 0 .. l_length - 1
8275: LOOP
8276: l_node_attr := xmldom.item(l_node_map_tbl, i);
8277: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
8278: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
8279: l_index := l_index + 1;
8280: END LOOP;
8281: END IF;
8274: FOR i IN 0 .. l_length - 1
8275: LOOP
8276: l_node_attr := xmldom.item(l_node_map_tbl, i);
8277: l_attr_tbl(l_index).NAME := xmldom.getNodeName(l_node_attr);
8278: l_attr_tbl(l_index).VALUE := xmldom.getNodeValue(l_node_attr);
8279: l_index := l_index + 1;
8280: END LOOP;
8281: END IF;
8282: RETURN l_attr_tbl;
8291: -- Parameters : p_node - DOM node
8292: -- p_jraddoc_node - JRAD doc builder element
8293: -- Notes : it is not used in UI Generation/UI Refresh process directly
8294: --
8295: PROCEDURE set_Attributes(p_node xmldom.DOMNode,
8296: p_jraddoc_node jdr_docbuilder.Element) IS
8297:
8298: l_attr_tbl attributes_tbl_type;
8299:
8339: -- p_nodeList - list of DOM nodes of the current level in DOM tree
8340: -- p_groupingTag - identifies XML grouping tag
8341: -- p_parent - identifes parent JRAD docbuilder element
8342: --
8343: PROCEDURE traverse_DOM_Tree(p_nodeList xmldom.DOMNodeList,
8344: p_groupingTag VARCHAR2,
8345: p_parent jdr_docbuilder.Element) IS
8346:
8347: l_next_level_tbl xmldom.DOMNodeList;
8343: PROCEDURE traverse_DOM_Tree(p_nodeList xmldom.DOMNodeList,
8344: p_groupingTag VARCHAR2,
8345: p_parent jdr_docbuilder.Element) IS
8346:
8347: l_next_level_tbl xmldom.DOMNodeList;
8348: l_node xmldom.DOMNode;
8349: l_parent_xml_node xmldom.DOMNode;
8350: l_attr_tbl attributes_tbl_type;
8351: l_child jdr_docbuilder.Element;
8344: p_groupingTag VARCHAR2,
8345: p_parent jdr_docbuilder.Element) IS
8346:
8347: l_next_level_tbl xmldom.DOMNodeList;
8348: l_node xmldom.DOMNode;
8349: l_parent_xml_node xmldom.DOMNode;
8350: l_attr_tbl attributes_tbl_type;
8351: l_child jdr_docbuilder.Element;
8352: l_tag_name VARCHAR2(255);
8345: p_parent jdr_docbuilder.Element) IS
8346:
8347: l_next_level_tbl xmldom.DOMNodeList;
8348: l_node xmldom.DOMNode;
8349: l_parent_xml_node xmldom.DOMNode;
8350: l_attr_tbl attributes_tbl_type;
8351: l_child jdr_docbuilder.Element;
8352: l_tag_name VARCHAR2(255);
8353: l_parent_tag_name VARCHAR2(255);
8363: --
8364: -- now we have a DOM tree of the target JRAD document
8365: -- and we need to populate JRAD tables by using jdr_docbuilder API
8366: --
8367: l_length := xmldom.getLength(p_nodeList);
8368:
8369: FOR i IN 0 .. l_length - 1
8370: LOOP
8371: l_node := xmldom.item(p_nodeList, i);
8367: l_length := xmldom.getLength(p_nodeList);
8368:
8369: FOR i IN 0 .. l_length - 1
8370: LOOP
8371: l_node := xmldom.item(p_nodeList, i);
8372:
8373: l_tag_name := xmldom.getNodeName(l_node);
8374:
8375: l_parent_xml_node := xmldom.getParentNode(l_node);
8369: FOR i IN 0 .. l_length - 1
8370: LOOP
8371: l_node := xmldom.item(p_nodeList, i);
8372:
8373: l_tag_name := xmldom.getNodeName(l_node);
8374:
8375: l_parent_xml_node := xmldom.getParentNode(l_node);
8376:
8377: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
8371: l_node := xmldom.item(p_nodeList, i);
8372:
8373: l_tag_name := xmldom.getNodeName(l_node);
8374:
8375: l_parent_xml_node := xmldom.getParentNode(l_node);
8376:
8377: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
8378: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
8379: END IF;
8373: l_tag_name := xmldom.getNodeName(l_node);
8374:
8375: l_parent_xml_node := xmldom.getParentNode(l_node);
8376:
8377: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
8378: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
8379: END IF;
8380:
8381: l_grouping_tag := '';
8374:
8375: l_parent_xml_node := xmldom.getParentNode(l_node);
8376:
8377: IF NOT(xmldom.isNull(l_parent_xml_node)) THEN
8378: l_parent_tag_name := xmldom.getNodeName(l_parent_xml_node);
8379: END IF;
8380:
8381: l_grouping_tag := '';
8382:
8460:
8461: NULL;
8462: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
8463:
8464: l_next_level_tbl := xmldom.getChildNodes(l_node);
8465: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
8466: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
8467:
8468: IF l_st IS NULL THEN
8461: NULL;
8462: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
8463:
8464: l_next_level_tbl := xmldom.getChildNodes(l_node);
8465: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
8466: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
8467:
8468: IF l_st IS NULL THEN
8469: traverse_DOM_Tree(l_next_level_tbl,
8462: END IF; -- end of IF p_groupingTag IS NOT NULL THEN
8463:
8464: l_next_level_tbl := xmldom.getChildNodes(l_node);
8465: IF NOT(xmldom.isNull(l_next_level_tbl)) AND
8466: xmldom.getLENGTH(l_next_level_tbl) <> 0 THEN
8467:
8468: IF l_st IS NULL THEN
8469: traverse_DOM_Tree(l_next_level_tbl,
8470: l_grouping_tag,
8500: -- Parameters : p_jrad_doc_name - specifies full JRAD name of
8501: -- document that will be created from DOM tree
8502: -- which is identified by global DOM Document variable g_DOC
8503: --
8504: PROCEDURE convert_DOM_to_JRAD(p_doc xmldom.DOMDocument,
8505: p_jrad_doc_name IN VARCHAR2) IS
8506:
8507: l_dom_root_node xmldom.DOMNode;
8508: l_topLevel jdr_docbuilder.Element;
8503: --
8504: PROCEDURE convert_DOM_to_JRAD(p_doc xmldom.DOMDocument,
8505: p_jrad_doc_name IN VARCHAR2) IS
8506:
8507: l_dom_root_node xmldom.DOMNode;
8508: l_topLevel jdr_docbuilder.Element;
8509: l_status PLS_INTEGER;
8510: l_lang VARCHAR2(255);
8511: BEGIN
8519:
8520: --
8521: -- get Document's root node
8522: --
8523: l_dom_root_node := xmldom.makeNode(xmldom.getDocumentElement(g_DOC));
8524:
8525: --
8526: -- remove top level xml attributes - jdrdocbuilder always adds these attributes
8527: -- so we don't need to have a duplicates
8536:
8537: --
8538: -- create root element of the target JRAD document
8539: --
8540: l_topLevel := createElement(xmldom.getNodeName(l_dom_root_node));
8541:
8542: --
8543: -- set top level attributes
8544: --
8552: --
8553: -- modify the source DOM tree and create the target JRAD document
8554: -- traverse_DOM_Tree() is recursive procedure
8555: --
8556: traverse_DOM_Tree(xmldom.getChildNodes(l_dom_root_node),
8557: '',
8558: l_topLevel);
8559:
8560: --
8566:
8567: --
8568: -- save JRAD document
8569: --
8570: PROCEDURE Save_Document(p_xml_doc xmldom.DOMDocument,
8571: p_doc_name IN VARCHAR2) IS
8572: BEGIN
8573: convert_DOM_to_JRAD(p_doc => p_xml_doc, p_jrad_doc_name => p_doc_name);
8574: END Save_Document;
13425: -- reorder UI elements on UI page in case of Single Page
13426: --
13427: PROCEDURE handle_Page_Flows IS
13428:
13429: l_xmldoc xmldom.DOMDocument;
13430: l_counter NUMBER:=0;
13431: l_seq_nbr NUMBER;
13432: l_show_train BOOLEAN := FALSE;
13433: l_target_path CZ_UI_PAGE_REFS.target_path%TYPE;
15326: PROCEDURE backup_nodes_to_move(p_page_id IN NUMBER) IS
15327:
15328: l_node_ids_table number_tbl_type;
15329: l_id NUMBER;
15330: l_parent_node xmldom.DOMNode;
15331: l_node xmldom.DOMNode;
15332:
15333: BEGIN
15334:
15327:
15328: l_node_ids_table number_tbl_type;
15329: l_id NUMBER;
15330: l_parent_node xmldom.DOMNode;
15331: l_node xmldom.DOMNode;
15332:
15333: BEGIN
15334:
15335: IF g_elements_to_move.EXISTS(p_page_Id) THEN
15341: DEBUG('asp: Backing up nested element_id ' || l_id || ' on page ' || l_node_ids_table(l_id));
15342: IF g_dom_elements_tbl.EXISTS(l_id) THEN
15343: l_node := g_dom_elements_tbl(l_id);
15344: g_dom_elements_to_move(l_id) := l_node;
15345: l_parent_node:=xmldom.getParentNode(l_node);
15346: l_node:=xmldom.removeChild(l_parent_node, l_node);
15347: END IF;
15348: -- ELSE the node has already been moved
15349: l_id := l_node_ids_table.NEXT(l_id);
15342: IF g_dom_elements_tbl.EXISTS(l_id) THEN
15343: l_node := g_dom_elements_tbl(l_id);
15344: g_dom_elements_to_move(l_id) := l_node;
15345: l_parent_node:=xmldom.getParentNode(l_node);
15346: l_node:=xmldom.removeChild(l_parent_node, l_node);
15347: END IF;
15348: -- ELSE the node has already been moved
15349: l_id := l_node_ids_table.NEXT(l_id);
15350: END LOOP;
15356: --
15357: -- delete UI XML elements from UI page
15358: --
15359: PROCEDURE delete_UIXML_Elements(p_page_id IN NUMBER,
15360: p_xml_doc xmldom.DOMDocument) IS
15361:
15362: l_deleted_nodes_tbl varchar2_tbl_type;
15363: l_node xmldom.DOMNode;
15364: l_out_node xmldom.DOMNode;
15359: PROCEDURE delete_UIXML_Elements(p_page_id IN NUMBER,
15360: p_xml_doc xmldom.DOMDocument) IS
15361:
15362: l_deleted_nodes_tbl varchar2_tbl_type;
15363: l_node xmldom.DOMNode;
15364: l_out_node xmldom.DOMNode;
15365: l_parent_node xmldom.DOMNode;
15366: l_nodeslist xmldom.DOMNodeList;
15367: l_length NUMBER;
15360: p_xml_doc xmldom.DOMDocument) IS
15361:
15362: l_deleted_nodes_tbl varchar2_tbl_type;
15363: l_node xmldom.DOMNode;
15364: l_out_node xmldom.DOMNode;
15365: l_parent_node xmldom.DOMNode;
15366: l_nodeslist xmldom.DOMNodeList;
15367: l_length NUMBER;
15368: l_element_id VARCHAR2(255);
15361:
15362: l_deleted_nodes_tbl varchar2_tbl_type;
15363: l_node xmldom.DOMNode;
15364: l_out_node xmldom.DOMNode;
15365: l_parent_node xmldom.DOMNode;
15366: l_nodeslist xmldom.DOMNodeList;
15367: l_length NUMBER;
15368: l_element_id VARCHAR2(255);
15369: l_deleted_nodes_exist BOOLEAN := FALSE;
15362: l_deleted_nodes_tbl varchar2_tbl_type;
15363: l_node xmldom.DOMNode;
15364: l_out_node xmldom.DOMNode;
15365: l_parent_node xmldom.DOMNode;
15366: l_nodeslist xmldom.DOMNodeList;
15367: l_length NUMBER;
15368: l_element_id VARCHAR2(255);
15369: l_deleted_nodes_exist BOOLEAN := FALSE;
15370: l_deassociated_nodes_exist BOOLEAN := FALSE;
15388: --
15389: -- here we don't need to know about hierachy of nodes
15390: -- so we just need to get list of all nodes of XML subtree
15391: --
15392: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
15393: l_length := xmldom.getLength(l_nodeslist);
15394:
15395: --
15396: -- delete XML elements
15389: -- here we don't need to know about hierachy of nodes
15390: -- so we just need to get list of all nodes of XML subtree
15391: --
15392: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
15393: l_length := xmldom.getLength(l_nodeslist);
15394:
15395: --
15396: -- delete XML elements
15397: --
15396: -- delete XML elements
15397: --
15398: FOR i IN 0..l_length-1
15399: LOOP
15400: l_node := xmldom.item(l_nodeslist, i);
15401: l_element_id := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
15402: BEGIN
15403: IF l_deleted_nodes_tbl.EXISTS(l_element_id) THEN
15404:
15402: BEGIN
15403: IF l_deleted_nodes_tbl.EXISTS(l_element_id) THEN
15404:
15405: IF l_deleted_nodes_tbl(l_element_id)=G_MARK_TO_DELETE THEN
15406: l_parent_node:=xmldom.getParentNode(l_node);
15407: l_out_node:=xmldom.removeChild(l_parent_node,l_node);
15408: l_deleted_nodes_exist := TRUE;
15409: ELSE -- deassociate this node
15410: set_Attribute(l_node, G_USER_ATTRIBUTE1_NAME, 'model_path=*');
15403: IF l_deleted_nodes_tbl.EXISTS(l_element_id) THEN
15404:
15405: IF l_deleted_nodes_tbl(l_element_id)=G_MARK_TO_DELETE THEN
15406: l_parent_node:=xmldom.getParentNode(l_node);
15407: l_out_node:=xmldom.removeChild(l_parent_node,l_node);
15408: l_deleted_nodes_exist := TRUE;
15409: ELSE -- deassociate this node
15410: set_Attribute(l_node, G_USER_ATTRIBUTE1_NAME, 'model_path=*');
15411: set_Attribute(l_node, G_USER_ATTRIBUTE2_NAME, '0');
15448: --
15449: PROCEDURE delete_UIXML_Page(p_page_id IN NUMBER,
15450: p_jrad_doc IN VARCHAR2) IS
15451:
15452: l_subtree_doc xmldom.DOMDocument;
15453:
15454: BEGIN
15455: BEGIN
15456: IF g_elements_to_move.EXISTS(p_page_Id) THEN
15455: BEGIN
15456: IF g_elements_to_move.EXISTS(p_page_Id) THEN
15457: l_subtree_doc := parse_JRAD_Document(p_jrad_doc);
15458:
15459: IF xmldom.isNull(l_subtree_doc) THEN
15460: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
15461: p_token_name => 'UI_TEMPLATE',
15462: p_token_value => p_jrad_doc,
15463: p_fatal_error => TRUE);
15467: init_Page_View_Counters(l_subtree_doc);
15468: backup_nodes_to_move(p_page_Id);
15469: ELSE
15470: l_subtree_doc := parse_JRAD_Document(p_jrad_doc);
15471: IF xmldom.isNull(l_subtree_doc) THEN
15472: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
15473: p_token_name => 'UI_TEMPLATE',
15474: p_token_value => p_jrad_doc,
15475: p_fatal_error => TRUE);
15514: -- refresh CXs on UI Page
15515: --
15516: PROCEDURE refresh_CXs_On_UI_Page
15517: (p_ui_page_id NUMBER,
15518: p_subtree_doc xmldom.DOMDocument) IS
15519:
15520: l_node xmldom.DOMNode;
15521: l_parent_node xmldom.DOMNode;
15522: l_out_node xmldom.DOMNode;
15516: PROCEDURE refresh_CXs_On_UI_Page
15517: (p_ui_page_id NUMBER,
15518: p_subtree_doc xmldom.DOMDocument) IS
15519:
15520: l_node xmldom.DOMNode;
15521: l_parent_node xmldom.DOMNode;
15522: l_out_node xmldom.DOMNode;
15523: l_nodeslist xmldom.DOMNodeList;
15524: l_length NUMBER;
15517: (p_ui_page_id NUMBER,
15518: p_subtree_doc xmldom.DOMDocument) IS
15519:
15520: l_node xmldom.DOMNode;
15521: l_parent_node xmldom.DOMNode;
15522: l_out_node xmldom.DOMNode;
15523: l_nodeslist xmldom.DOMNodeList;
15524: l_length NUMBER;
15525: l_element_id NUMBER;
15518: p_subtree_doc xmldom.DOMDocument) IS
15519:
15520: l_node xmldom.DOMNode;
15521: l_parent_node xmldom.DOMNode;
15522: l_out_node xmldom.DOMNode;
15523: l_nodeslist xmldom.DOMNodeList;
15524: l_length NUMBER;
15525: l_element_id NUMBER;
15526: l_attribute_value VARCHAR2(32000);
15519:
15520: l_node xmldom.DOMNode;
15521: l_parent_node xmldom.DOMNode;
15522: l_out_node xmldom.DOMNode;
15523: l_nodeslist xmldom.DOMNodeList;
15524: l_length NUMBER;
15525: l_element_id NUMBER;
15526: l_attribute_value VARCHAR2(32000);
15527: l_cx_elements_tbl varchar_tbl_type;
15558: --
15559: -- here we don't need to know about hierachy of nodes
15560: -- so we just need to get list of all nodes of XML subtree
15561: --
15562: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
15563: l_length := xmldom.getLength(l_nodeslist);
15564:
15565: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
15566:
15559: -- here we don't need to know about hierachy of nodes
15560: -- so we just need to get list of all nodes of XML subtree
15561: --
15562: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
15563: l_length := xmldom.getLength(l_nodeslist);
15564:
15565: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
15566:
15567: --
15561: --
15562: l_nodeslist := xmldom.getElementsByTagName(p_subtree_doc, '*');
15563: l_length := xmldom.getLength(l_nodeslist);
15564:
15565: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_subtree_doc));
15566:
15567: --
15568: -- scan subtree and substitute macros "%" to real values
15569: --
15570: FOR i IN 0 .. l_length - 1
15571: LOOP
15572: l_delete_node := FALSE;
15573: l_deassociate_cx := FALSE;
15574: l_node := xmldom.item(l_nodeslist, i);
15575: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE );
15576: l_element_id := NULL;
15577: BEGIN
15578: l_element_id := TO_NUMBER(l_attribute_value);
15580:
15581: IF l_cx_elements_tbl(l_element_id) IN (G_CX_VALID) AND
15582: l_suppress_refresh_tbl(l_element_id)=G_NO_FLAG AND
15583: l_suppress_el_flag_tbl(l_element_id)=G_NO_FLAG THEN
15584: set_Attribute(xmldom.makeElement(l_node), 'rendered', 'true');
15585: ELSIF l_cx_elements_tbl(l_element_id) IN (G_CX_INVALID) AND
15586: l_suppress_refresh_tbl(l_element_id)=G_NO_FLAG AND
15587: l_suppress_el_flag_tbl(l_element_id)=G_NO_FLAG THEN
15588: set_Attribute(xmldom.makeElement(l_node), 'rendered', 'false');
15584: set_Attribute(xmldom.makeElement(l_node), 'rendered', 'true');
15585: ELSIF l_cx_elements_tbl(l_element_id) IN (G_CX_INVALID) AND
15586: l_suppress_refresh_tbl(l_element_id)=G_NO_FLAG AND
15587: l_suppress_el_flag_tbl(l_element_id)=G_NO_FLAG THEN
15588: set_Attribute(xmldom.makeElement(l_node), 'rendered', 'false');
15589: ELSIF l_cx_elements_tbl(l_element_id) IN (G_CX_MUST_BE_DELETED) THEN
15590: l_delete_node := TRUE;
15591: IF l_suppress_refresh_tbl(l_element_id)=G_YES_FLAG OR
15592: l_suppress_el_flag_tbl(l_element_id)=G_YES_FLAG THEN
15609: WHERE ui_def_id=g_UI_Context.ui_def_id AND
15610: page_id=p_ui_page_id AND
15611: element_id=l_attribute_value;
15612: ELSE
15613: l_parent_node:=xmldom.getParentNode(l_node);
15614: l_out_node:=xmldom.removeChild(l_parent_node,l_node);
15615: UPDATE CZ_UI_PAGE_ELEMENTS
15616: SET deleted_flag=G_YES_FLAG
15617: WHERE ui_def_id=g_UI_Context.ui_def_id AND
15610: page_id=p_ui_page_id AND
15611: element_id=l_attribute_value;
15612: ELSE
15613: l_parent_node:=xmldom.getParentNode(l_node);
15614: l_out_node:=xmldom.removeChild(l_parent_node,l_node);
15615: UPDATE CZ_UI_PAGE_ELEMENTS
15616: SET deleted_flag=G_YES_FLAG
15617: WHERE ui_def_id=g_UI_Context.ui_def_id AND
15618: page_id=p_ui_page_id AND
15631:
15632: --
15633: -- populate cache of xml nodes for a given XML page
15634: --
15635: PROCEDURE cache_UI_Page(p_xml_doc xmldom.DOMDocument) IS
15636: l_node xmldom.DOMNode;
15637: l_nodeslist xmldom.DOMNodeList;
15638: l_empty_xml_node xmldom.DOMNode;
15639: l_length NUMBER;
15632: --
15633: -- populate cache of xml nodes for a given XML page
15634: --
15635: PROCEDURE cache_UI_Page(p_xml_doc xmldom.DOMDocument) IS
15636: l_node xmldom.DOMNode;
15637: l_nodeslist xmldom.DOMNodeList;
15638: l_empty_xml_node xmldom.DOMNode;
15639: l_length NUMBER;
15640: l_attribute_value VARCHAR2(32000);
15633: -- populate cache of xml nodes for a given XML page
15634: --
15635: PROCEDURE cache_UI_Page(p_xml_doc xmldom.DOMDocument) IS
15636: l_node xmldom.DOMNode;
15637: l_nodeslist xmldom.DOMNodeList;
15638: l_empty_xml_node xmldom.DOMNode;
15639: l_length NUMBER;
15640: l_attribute_value VARCHAR2(32000);
15641:
15634: --
15635: PROCEDURE cache_UI_Page(p_xml_doc xmldom.DOMDocument) IS
15636: l_node xmldom.DOMNode;
15637: l_nodeslist xmldom.DOMNodeList;
15638: l_empty_xml_node xmldom.DOMNode;
15639: l_length NUMBER;
15640: l_attribute_value VARCHAR2(32000);
15641:
15642: BEGIN
15642: BEGIN
15643:
15644: g_page_elements_tbl.DELETE;
15645:
15646: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
15647: l_length := xmldom.getLength(l_nodeslist);
15648:
15649: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_xml_doc));
15650:
15643:
15644: g_page_elements_tbl.DELETE;
15645:
15646: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
15647: l_length := xmldom.getLength(l_nodeslist);
15648:
15649: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_xml_doc));
15650:
15651: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
15645:
15646: l_nodeslist := xmldom.getElementsByTagName(p_xml_doc, '*');
15647: l_length := xmldom.getLength(l_nodeslist);
15648:
15649: l_node := xmldom.makeNode(xmldom.getDocumentElement(p_xml_doc));
15650:
15651: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
15652:
15653: IF l_attribute_value IS NOT NULL THEN
15655: END IF;
15656:
15657: FOR i IN 0 .. l_length - 1
15658: LOOP
15659: l_node := xmldom.item(l_nodeslist, i);
15660:
15661: l_attribute_value := get_Attribute_Value(l_node, G_ID_ATTRIBUTE);
15662:
15663: IF l_attribute_value IS NOT NULL THEN
15672: -- refresh UI XML page
15673: --
15674: PROCEDURE refresh_UIXML_Page(p_page_id IN NUMBER) IS
15675:
15676: l_subtree_doc xmldom.DOMDocument;
15677: l_xml_root_node xmldom.DOMNode;
15678: l_xml_uicontent_node xmldom.DOMNode;
15679: l_xml_node_to_refresh xmldom.DOMNode;
15680: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15673: --
15674: PROCEDURE refresh_UIXML_Page(p_page_id IN NUMBER) IS
15675:
15676: l_subtree_doc xmldom.DOMDocument;
15677: l_xml_root_node xmldom.DOMNode;
15678: l_xml_uicontent_node xmldom.DOMNode;
15679: l_xml_node_to_refresh xmldom.DOMNode;
15680: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15681: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15674: PROCEDURE refresh_UIXML_Page(p_page_id IN NUMBER) IS
15675:
15676: l_subtree_doc xmldom.DOMDocument;
15677: l_xml_root_node xmldom.DOMNode;
15678: l_xml_uicontent_node xmldom.DOMNode;
15679: l_xml_node_to_refresh xmldom.DOMNode;
15680: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15681: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15682: l_col_number NUMBER := 0;
15675:
15676: l_subtree_doc xmldom.DOMDocument;
15677: l_xml_root_node xmldom.DOMNode;
15678: l_xml_uicontent_node xmldom.DOMNode;
15679: l_xml_node_to_refresh xmldom.DOMNode;
15680: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15681: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15682: l_col_number NUMBER := 0;
15683:
15681: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15682: l_col_number NUMBER := 0;
15683:
15684: PROCEDURE create_Next_XML_Level(p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
15685: p_parent_xml_node xmldom.DOMNode) IS
15686:
15687: l_new_xml_node xmldom.DOMNode;
15688: l_new_opt_xml_node xmldom.DOMNode;
15689: l_xml_node_to_replace xmldom.DOMNode;
15683:
15684: PROCEDURE create_Next_XML_Level(p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
15685: p_parent_xml_node xmldom.DOMNode) IS
15686:
15687: l_new_xml_node xmldom.DOMNode;
15688: l_new_opt_xml_node xmldom.DOMNode;
15689: l_xml_node_to_replace xmldom.DOMNode;
15690: l_opt_model_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
15691: l_element_type NUMBER;
15684: PROCEDURE create_Next_XML_Level(p_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
15685: p_parent_xml_node xmldom.DOMNode) IS
15686:
15687: l_new_xml_node xmldom.DOMNode;
15688: l_new_opt_xml_node xmldom.DOMNode;
15689: l_xml_node_to_replace xmldom.DOMNode;
15690: l_opt_model_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
15691: l_element_type NUMBER;
15692:
15685: p_parent_xml_node xmldom.DOMNode) IS
15686:
15687: l_new_xml_node xmldom.DOMNode;
15688: l_new_opt_xml_node xmldom.DOMNode;
15689: l_xml_node_to_replace xmldom.DOMNode;
15690: l_opt_model_node CZ_UITEMPLS_FOR_PSNODES_V%ROWTYPE;
15691: l_element_type NUMBER;
15692:
15693: BEGIN
15730: IF i.element_type=G_UI_CX_BUTTON_NODE_TYPE THEN
15731: l_opt_model_node := get_Model_Node_By_Persist_Id(i.persistent_node_id, g_UI_Context.devl_project_id);
15732: IF l_opt_model_node.ps_node_type IN(G_OPTION_TYPE) THEN
15733: l_new_xml_node := create_UIXML_Element(p_ui_node => i,
15734: p_parent_xml_node => xmldom.getParentNode(p_parent_xml_node));
15735:
15736: END IF;
15737: END IF;
15738: END IF; -- end of IF p_ui_node.element_type IN(G_UI_PAGE_NODE_TYPE,G_UI_REGION_NODE_TYPE) ...
15742: l_xml_node_to_replace := find_XML_Node_By_Attribute(p_subtree_doc => l_subtree_doc ,
15743: p_attribute_name => G_ID_ATTRIBUTE,
15744: p_attribute_value => i.element_id);
15745:
15746: IF NOT(xmldom.isNull(l_xml_node_to_replace)) THEN
15747:
15748: --
15749: -- create new JRAD element
15750: --
15772:
15773: END create_Next_XML_Level;
15774:
15775: PROCEDURE refresh_UI_Node(p_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
15776: p_xml_parent_node xmldom.DOMNode) IS
15777:
15778: l_xml_node_to_replace xmldom.DOMNode;
15779: l_new_xml_node xmldom.DOMNode;
15780:
15774:
15775: PROCEDURE refresh_UI_Node(p_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
15776: p_xml_parent_node xmldom.DOMNode) IS
15777:
15778: l_xml_node_to_replace xmldom.DOMNode;
15779: l_new_xml_node xmldom.DOMNode;
15780:
15781: BEGIN
15782:
15775: PROCEDURE refresh_UI_Node(p_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE,
15776: p_xml_parent_node xmldom.DOMNode) IS
15777:
15778: l_xml_node_to_replace xmldom.DOMNode;
15779: l_new_xml_node xmldom.DOMNode;
15780:
15781: BEGIN
15782:
15783: FOR i IN(SELECT * FROM CZ_UI_PAGE_ELEMENTS
15793: p_attribute_name => G_ID_ATTRIBUTE,
15794: p_attribute_value => i.element_id);
15795:
15796:
15797: IF NOT(xmldom.isNull(l_xml_node_to_replace)) THEN
15798: --
15799: -- create new JRAD element
15800: --
15801: l_xml_uicontent_node := replace_UIXML_Element(p_ui_node => i,
15869: -- cache xml nodes of this UI page
15870: --
15871: cache_UI_Page(l_subtree_doc);
15872:
15873: IF xmldom.isNull(l_subtree_doc) THEN
15874: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
15875: p_token_name => 'UI_TEMPLATE',
15876: p_token_value => l_jrad_doc,
15877: p_fatal_error => TRUE);
15888:
15889: --
15890: -- get subdocument's root node
15891: --
15892: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
15893:
15894: IF l_col_number = 0 THEN
15895: l_xml_uicontent_node := getUIContents(l_xml_root_node);
15896: ELSE
15927: --
15928: PROCEDURE create_UIXML_Page(p_page_id IN NUMBER,
15929: p_jrad_doc IN VARCHAR2) IS
15930:
15931: l_subtree_doc xmldom.DOMDocument;
15932: l_xml_root_node xmldom.DOMNode;
15933: l_xml_uicontent_node xmldom.DOMNode;
15934: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15935: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15928: PROCEDURE create_UIXML_Page(p_page_id IN NUMBER,
15929: p_jrad_doc IN VARCHAR2) IS
15930:
15931: l_subtree_doc xmldom.DOMDocument;
15932: l_xml_root_node xmldom.DOMNode;
15933: l_xml_uicontent_node xmldom.DOMNode;
15934: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15935: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15936: l_sub_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
15929: p_jrad_doc IN VARCHAR2) IS
15930:
15931: l_subtree_doc xmldom.DOMDocument;
15932: l_xml_root_node xmldom.DOMNode;
15933: l_xml_uicontent_node xmldom.DOMNode;
15934: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15935: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15936: l_sub_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
15937: l_curr_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
15934: l_page_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
15935: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15936: l_sub_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
15937: l_curr_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
15938: l_child_nodes_tbl xmldom.DOMNodeList;
15939: l_xml_node xmldom.DOMNode;
15940: l_length NUMBER;
15941: l_col_number NUMBER;
15942:
15935: l_jrad_doc CZ_UI_TEMPLATES.jrad_doc%TYPE;
15936: l_sub_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
15937: l_curr_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
15938: l_child_nodes_tbl xmldom.DOMNodeList;
15939: l_xml_node xmldom.DOMNode;
15940: l_length NUMBER;
15941: l_col_number NUMBER;
15942:
15943: PROCEDURE create_Next_XML_Level(p_element_id NUMBER,
15940: l_length NUMBER;
15941: l_col_number NUMBER;
15942:
15943: PROCEDURE create_Next_XML_Level(p_element_id NUMBER,
15944: p_parent_xml_node xmldom.DOMNode) IS
15945: l_new_xml_node xmldom.DOMNode;
15946: BEGIN
15947:
15948: --
15941: l_col_number NUMBER;
15942:
15943: PROCEDURE create_Next_XML_Level(p_element_id NUMBER,
15944: p_parent_xml_node xmldom.DOMNode) IS
15945: l_new_xml_node xmldom.DOMNode;
15946: BEGIN
15947:
15948: --
15949: -- get child UI nodes
16055: -- parse document(template) which is going to be nested element
16056: --
16057: l_subtree_doc := parse_JRAD_Document(l_jrad_doc);
16058:
16059: IF xmldom.isNull(l_subtree_doc) THEN
16060: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
16061: p_token_name => 'UI_TEMPLATE',
16062: p_token_value => l_jrad_doc,
16063: p_fatal_error => TRUE);
16066:
16067: --
16068: -- get subdocument's root node
16069: --
16070: l_xml_root_node := xmldom.makeNode(xmldom.getDocumentElement(l_subtree_doc));
16071:
16072: --
16073: -- remove common attributes of container and subtree
16074: --
16085: ELSE
16086: l_xml_uicontent_node := get_Col_UIContents(l_xml_root_node, 1);
16087: END IF;
16088:
16089: l_child_nodes_tbl := xmldom.getElementsByTagName(l_subtree_doc, '*');
16090:
16091: --
16092: -- we need to get length of array of child nodes
16093: -- to go through the array in loop
16091: --
16092: -- we need to get length of array of child nodes
16093: -- to go through the array in loop
16094: --
16095: l_length := xmldom.getLength(l_child_nodes_tbl);
16096: FOR k IN 0..l_length-1
16097: LOOP
16098: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
16099:
16094: --
16095: l_length := xmldom.getLength(l_child_nodes_tbl);
16096: FOR k IN 0..l_length-1
16097: LOOP
16098: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
16099:
16100: l_curr_element_id := get_Attribute_Value(l_xml_node,
16101: G_ID_ATTRIBUTE);
16102: IF l_curr_element_id IS NOT NULL AND k > 0 THEN
16261: IS
16262: l_ui_def_map number_tbl_type;
16263: l_ui_def_id NUMBER;
16264: l_pagebase_expl_id NUMBER;
16265: l_xmldoc xmldom.DOMDocument;
16266: l_dom_node xmldom.DOMNode;
16267: l_current_relative_path VARCHAR2(32000);
16268: l_new_relative_path VARCHAR2(32000);
16269: l_flag INTEGER;
16262: l_ui_def_map number_tbl_type;
16263: l_ui_def_id NUMBER;
16264: l_pagebase_expl_id NUMBER;
16265: l_xmldoc xmldom.DOMDocument;
16266: l_dom_node xmldom.DOMNode;
16267: l_current_relative_path VARCHAR2(32000);
16268: l_new_relative_path VARCHAR2(32000);
16269: l_flag INTEGER;
16270: l_resave_doc_flag INTEGER;
16884:
16885: --
16886: -- delete records which correspond with user attributes
16887: --
16888: PROCEDURE delete_User_Attr_For_Node(p_xml_node xmldom.DOMNode,
16889: p_ui_def_id NUMBER,
16890: p_template_id NUMBER DEFAULT NULL,
16891: p_template_ui_def_id NUMBER DEFAULT NULL) IS
16892:
16966:
16967: END IF;
16968: END delete_User_Attr_For_Node;
16969:
16970: PROCEDURE copy_User_Attr_For_Node(p_xml_node xmldom.DOMNode,
16971: p_source_ui_def_id NUMBER,
16972: p_target_ui_def_id NUMBER,
16973: p_source_ui_page_id NUMBER,
16974: p_target_ui_page_id NUMBER,
17089:
17090: --
17091: -- copy records which correspond to user attributes
17092: --
17093: PROCEDURE copy_User_Attr_For_Node(p_xml_node xmldom.DOMNode,
17094: p_source_ui_def_id NUMBER,
17095: p_target_ui_def_id NUMBER,
17096: p_source_template_id NUMBER DEFAULT NULL,
17097: p_target_template_id NUMBER DEFAULT NULL) IS
17157:
17158: --
17159: -- delete records which corresponds with user attributes
17160: --
17161: PROCEDURE delete_User_Attributes(p_xml_node xmldom.DOMNode,
17162: p_ui_def_id NUMBER,
17163: p_template_id NUMBER DEFAULT NULL,
17164: p_template_ui_def_id NUMBER DEFAULT NULL) IS
17165:
17163: p_template_id NUMBER DEFAULT NULL,
17164: p_template_ui_def_id NUMBER DEFAULT NULL) IS
17165:
17166:
17167: l_child_nodes_tbl xmldom.DOMNodeList;
17168: l_child_xml_node xmldom.DOMNode;
17169: l_length NUMBER;
17170:
17171: BEGIN
17164: p_template_ui_def_id NUMBER DEFAULT NULL) IS
17165:
17166:
17167: l_child_nodes_tbl xmldom.DOMNodeList;
17168: l_child_xml_node xmldom.DOMNode;
17169: l_length NUMBER;
17170:
17171: BEGIN
17172:
17169: l_length NUMBER;
17170:
17171: BEGIN
17172:
17173: IF xmldom.IsNull(p_xml_node) THEN
17174: RETURN;
17175: END IF;
17176:
17177: delete_User_Attr_For_Node(p_xml_node,p_ui_def_id,
17176:
17177: delete_User_Attr_For_Node(p_xml_node,p_ui_def_id,
17178: p_template_id, p_template_ui_def_id);
17179:
17180: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
17181: l_length := xmldom.getLength(l_child_nodes_tbl);
17182:
17183: FOR k IN 0 .. l_length - 1
17184: LOOP
17177: delete_User_Attr_For_Node(p_xml_node,p_ui_def_id,
17178: p_template_id, p_template_ui_def_id);
17179:
17180: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
17181: l_length := xmldom.getLength(l_child_nodes_tbl);
17182:
17183: FOR k IN 0 .. l_length - 1
17184: LOOP
17185: --
17184: LOOP
17185: --
17186: -- get next child DOM node
17187: --
17188: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
17189:
17190: delete_User_Attr_For_Node(l_child_xml_node,p_ui_def_id,
17191: p_template_id, p_template_ui_def_id);
17192:
17199:
17200: --
17201: -- copy records which corresponds with user attributes
17202: --
17203: PROCEDURE copy_User_Attributes(p_xml_node xmldom.DOMNode,
17204: p_source_ui_def_id NUMBER,
17205: p_target_ui_def_id NUMBER,
17206: p_source_ui_page_id NUMBER,
17207: p_target_ui_page_id NUMBER,
17207: p_target_ui_page_id NUMBER,
17208: p_target_model_path VARCHAR2,
17209: p_new_element_id_arr_tbl IN OUT NOCOPY number_tbl_type) IS
17210:
17211: l_child_nodes_tbl xmldom.DOMNodeList;
17212: l_child_xml_node xmldom.DOMNode;
17213: l_length NUMBER;
17214:
17215: BEGIN
17208: p_target_model_path VARCHAR2,
17209: p_new_element_id_arr_tbl IN OUT NOCOPY number_tbl_type) IS
17210:
17211: l_child_nodes_tbl xmldom.DOMNodeList;
17212: l_child_xml_node xmldom.DOMNode;
17213: l_length NUMBER;
17214:
17215: BEGIN
17216:
17221: p_target_ui_page_id => p_target_ui_page_id,
17222: p_target_model_path => p_target_model_path,
17223: p_new_element_id_arr_tbl => p_new_element_id_arr_tbl);
17224:
17225: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
17226: l_length := xmldom.getLength(l_child_nodes_tbl);
17227:
17228: FOR k IN 0 .. l_length - 1
17229: LOOP
17222: p_target_model_path => p_target_model_path,
17223: p_new_element_id_arr_tbl => p_new_element_id_arr_tbl);
17224:
17225: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
17226: l_length := xmldom.getLength(l_child_nodes_tbl);
17227:
17228: FOR k IN 0 .. l_length - 1
17229: LOOP
17230: --
17229: LOOP
17230: --
17231: -- get next child DOM node
17232: --
17233: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
17234:
17235: copy_User_Attr_For_Node(p_xml_node => l_child_xml_node,
17236: p_source_ui_def_id => p_source_ui_def_id,
17237: p_target_ui_def_id => p_target_ui_def_id,
17367: END LOOP;
17368:
17369: END validate_Copied_PIR;
17370:
17371: PROCEDURE copy_Tree_Level(p_xml_node xmldom.DOMNode,
17372: p_source_ui_def_id NUMBER,
17373: p_target_ui_def_id NUMBER,
17374: p_source_ui_page_id NUMBER,
17375: p_target_ui_page_id NUMBER,
17382: p_target_jrad_doc IN VARCHAR2,
17383: p_amn_parent_element_id IN VARCHAR2
17384: ) IS
17385:
17386: l_child_nodes_tbl xmldom.DOMNodeList;
17387: l_child_xml_node xmldom.DOMNode;
17388: l_parent_xml_node xmldom.DOMNode;
17389: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
17390:
17383: p_amn_parent_element_id IN VARCHAR2
17384: ) IS
17385:
17386: l_child_nodes_tbl xmldom.DOMNodeList;
17387: l_child_xml_node xmldom.DOMNode;
17388: l_parent_xml_node xmldom.DOMNode;
17389: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
17390:
17391: l_user_attribute_value VARCHAR2(4000);
17384: ) IS
17385:
17386: l_child_nodes_tbl xmldom.DOMNodeList;
17387: l_child_xml_node xmldom.DOMNode;
17388: l_parent_xml_node xmldom.DOMNode;
17389: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
17390:
17391: l_user_attribute_value VARCHAR2(4000);
17392: l_user_attribute3_value VARCHAR2(4000);
17431: 'ancestorNode');
17432: IF l_ancestor_node IS NOT NULL THEN
17433:
17434: l_hgrid_element_id := find_Element_Id_Of_XMLTag(p_xml_node, 'oa:tree');
17435: IF NOT(xmldom.IsNull(p_xml_node)) THEN
17436: l_ancestor_node := p_target_jrad_doc||'.'||l_hgrid_element_id;
17437:
17438: set_Attribute(p_xml_node,
17439: 'ancestorNode',
17440: l_ancestor_node);
17441: END IF;
17442: END IF;
17443:
17444: IF xmldom.getNodeName(p_xml_node)='ui:case' THEN
17445:
17446: handle_UI_CASE_Id(p_xml_node);
17447:
17448: l_switcher_element_id := find_Element_Id_Of_XMLTag(p_xml_node, 'oa:switcher');
17471: END IF;
17472:
17473: END IF;
17474:
17475: IF xmldom.getNodeName(p_xml_node)='oa:stackLayout' THEN
17476:
17477: l_parent_xml_node := xmldom.getParentNode(p_xml_node);
17478:
17479: IF NOT(xmldom.IsNull(l_parent_xml_node)) THEN
17473: END IF;
17474:
17475: IF xmldom.getNodeName(p_xml_node)='oa:stackLayout' THEN
17476:
17477: l_parent_xml_node := xmldom.getParentNode(p_xml_node);
17478:
17479: IF NOT(xmldom.IsNull(l_parent_xml_node)) THEN
17480:
17481: IF xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
17475: IF xmldom.getNodeName(p_xml_node)='oa:stackLayout' THEN
17476:
17477: l_parent_xml_node := xmldom.getParentNode(p_xml_node);
17478:
17479: IF NOT(xmldom.IsNull(l_parent_xml_node)) THEN
17480:
17481: IF xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
17482:
17483: l_layout_new_node_id := get_Attribute_Value(l_parent_xml_node,'name');
17477: l_parent_xml_node := xmldom.getParentNode(p_xml_node);
17478:
17479: IF NOT(xmldom.IsNull(l_parent_xml_node)) THEN
17480:
17481: IF xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
17482:
17483: l_layout_new_node_id := get_Attribute_Value(l_parent_xml_node,'name');
17484: set_Attribute(p_xml_node,
17485: G_ID_ATTRIBUTE,
17484: set_Attribute(p_xml_node,
17485: G_ID_ATTRIBUTE,
17486: l_layout_new_node_id);
17487:
17488: END IF; -- end of IF xmldom.getNodeName(l_parent_xml_node)='ui:case'
17489:
17490: END IF; -- end of IF NOT(xmldom.IsNull(l_parent_xml_node))
17491:
17492: END IF; -- end of IF xmldom.getNodeName(p_xml_node)='oa:stackLayout'
17486: l_layout_new_node_id);
17487:
17488: END IF; -- end of IF xmldom.getNodeName(l_parent_xml_node)='ui:case'
17489:
17490: END IF; -- end of IF NOT(xmldom.IsNull(l_parent_xml_node))
17491:
17492: END IF; -- end of IF xmldom.getNodeName(p_xml_node)='oa:stackLayout'
17493:
17494: IF l_layout_new_node_id IS NULL THEN
17488: END IF; -- end of IF xmldom.getNodeName(l_parent_xml_node)='ui:case'
17489:
17490: END IF; -- end of IF NOT(xmldom.IsNull(l_parent_xml_node))
17491:
17492: END IF; -- end of IF xmldom.getNodeName(p_xml_node)='oa:stackLayout'
17493:
17494: IF l_layout_new_node_id IS NULL THEN
17495: l_current_element_id := get_Attribute_Value(p_xml_node,
17496: G_ID_ATTRIBUTE);
17590: IF x_new_element_id IS NULL THEN
17591: x_new_element_id := l_new_element_id;
17592: END IF;
17593:
17594: IF xmldom.getNodeName(p_xml_node)='oa:switcher' THEN
17595:
17596: l_user_attribute3_value := get_Attribute_Value(p_xml_node, G_USER_ATTRIBUTE3_NAME);
17597:
17598: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
17727: IF l_current_element_id IS NULL THEN
17728: l_current_element_id := p_parent_element_id;
17729: END IF;
17730:
17731: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
17732: l_length := xmldom.getLength(l_child_nodes_tbl);
17733:
17734: FOR k IN 0 .. l_length - 1
17735: LOOP
17728: l_current_element_id := p_parent_element_id;
17729: END IF;
17730:
17731: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
17732: l_length := xmldom.getLength(l_child_nodes_tbl);
17733:
17734: FOR k IN 0 .. l_length - 1
17735: LOOP
17736: --
17735: LOOP
17736: --
17737: -- get next child DOM node
17738: --
17739: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
17740:
17741: copy_Tree_Level(p_xml_node => l_child_xml_node,
17742: p_source_ui_def_id => p_source_ui_def_id,
17743: p_target_ui_def_id => p_target_ui_def_id,
17758:
17759: --
17760: -- copy records which corresponds with user attributes
17761: --
17762: PROCEDURE copy_User_Attributes(p_xml_node xmldom.DOMNode,
17763: p_source_ui_def_id NUMBER,
17764: p_target_ui_def_id NUMBER,
17765: p_source_template_id NUMBER DEFAULT NULL,
17766: p_target_template_id NUMBER DEFAULT NULL) IS
17764: p_target_ui_def_id NUMBER,
17765: p_source_template_id NUMBER DEFAULT NULL,
17766: p_target_template_id NUMBER DEFAULT NULL) IS
17767:
17768: l_child_nodes_tbl xmldom.DOMNodeList;
17769: l_child_xml_node xmldom.DOMNode;
17770: l_length NUMBER;
17771:
17772: BEGIN
17765: p_source_template_id NUMBER DEFAULT NULL,
17766: p_target_template_id NUMBER DEFAULT NULL) IS
17767:
17768: l_child_nodes_tbl xmldom.DOMNodeList;
17769: l_child_xml_node xmldom.DOMNode;
17770: l_length NUMBER;
17771:
17772: BEGIN
17773: copy_User_Attr_For_Node(p_xml_node => p_xml_node,
17775: p_target_ui_def_id => p_target_ui_def_id,
17776: p_source_template_id=> p_source_template_id,
17777: p_target_template_id=> p_target_template_id);
17778:
17779: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
17780: l_length := xmldom.getLength(l_child_nodes_tbl);
17781:
17782: FOR k IN 0 .. l_length - 1
17783: LOOP
17776: p_source_template_id=> p_source_template_id,
17777: p_target_template_id=> p_target_template_id);
17778:
17779: l_child_nodes_tbl := xmldom.getChildNodes(p_xml_node);
17780: l_length := xmldom.getLength(l_child_nodes_tbl);
17781:
17782: FOR k IN 0 .. l_length - 1
17783: LOOP
17784: --
17783: LOOP
17784: --
17785: -- get next child DOM node
17786: --
17787: l_child_xml_node := xmldom.item(l_child_nodes_tbl, k);
17788:
17789: copy_User_Attr_For_Node(p_xml_node => l_child_xml_node,
17790: p_source_ui_def_id => p_source_ui_def_id,
17791: p_target_ui_def_id => p_target_ui_def_id,
17818: x_return_status OUT NOCOPY VARCHAR2,
17819: x_msg_count OUT NOCOPY NUMBER,
17820: x_msg_data OUT NOCOPY VARCHAR2) IS
17821:
17822: l_xmldoc xmldom.DOMDocument;
17823: l_xml_node xmldom.DOMNode;
17824: l_element_id_tbl varchar_tbl_type;
17825: l_out_node xmldom.DOMNode;
17826: l_parent_node xmldom.DOMNode;
17819: x_msg_count OUT NOCOPY NUMBER,
17820: x_msg_data OUT NOCOPY VARCHAR2) IS
17821:
17822: l_xmldoc xmldom.DOMDocument;
17823: l_xml_node xmldom.DOMNode;
17824: l_element_id_tbl varchar_tbl_type;
17825: l_out_node xmldom.DOMNode;
17826: l_parent_node xmldom.DOMNode;
17827: l_page_ref_id CZ_UI_PAGE_REFS.page_ref_id%TYPE;
17821:
17822: l_xmldoc xmldom.DOMDocument;
17823: l_xml_node xmldom.DOMNode;
17824: l_element_id_tbl varchar_tbl_type;
17825: l_out_node xmldom.DOMNode;
17826: l_parent_node xmldom.DOMNode;
17827: l_page_ref_id CZ_UI_PAGE_REFS.page_ref_id%TYPE;
17828: l_parent_element_id CZ_UI_PAGE_ELEMENTS.parent_element_id%TYPE;
17829: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
17822: l_xmldoc xmldom.DOMDocument;
17823: l_xml_node xmldom.DOMNode;
17824: l_element_id_tbl varchar_tbl_type;
17825: l_out_node xmldom.DOMNode;
17826: l_parent_node xmldom.DOMNode;
17827: l_page_ref_id CZ_UI_PAGE_REFS.page_ref_id%TYPE;
17828: l_parent_element_id CZ_UI_PAGE_ELEMENTS.parent_element_id%TYPE;
17829: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
17830: l_page_ref_type CZ_UI_PAGE_REFS.page_ref_type%TYPE;
17971: -- create UI Template in JRAD repository
17972: --
17973: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
17974:
17975: IF xmldom.isNull(l_xmldoc) THEN
17976: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
17977: p_token_name => 'UI_TEMPLATE',
17978: p_token_value => l_jrad_doc,
17979: p_fatal_error => TRUE);
17991: IF p_delete_xml=G_YES_FLAG THEN
17992: IF l_parent_element_id IS NULL OR p_element_id=G_NO_FLAG THEN
17993: jdr_docbuilder.deleteDocument(l_jrad_doc);
17994: ELSE
17995: l_parent_node:=xmldom.getParentNode(l_xml_node);
17996: l_out_node:=xmldom.removeChild(l_parent_node,l_xml_node);
17997: Save_Document(p_xml_doc => l_xmldoc,
17998: p_doc_name => l_jrad_doc);
17999: END IF;
17992: IF l_parent_element_id IS NULL OR p_element_id=G_NO_FLAG THEN
17993: jdr_docbuilder.deleteDocument(l_jrad_doc);
17994: ELSE
17995: l_parent_node:=xmldom.getParentNode(l_xml_node);
17996: l_out_node:=xmldom.removeChild(l_parent_node,l_xml_node);
17997: Save_Document(p_xml_doc => l_xmldoc,
17998: p_doc_name => l_jrad_doc);
17999: END IF;
18000:
18185: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
18186: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
18187: ) IS
18188:
18189: l_xmldoc xmldom.DOMDocument;
18190: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18191:
18192: BEGIN
18193:
18218: -- create UI Template in JRAD repository
18219: --
18220: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
18221:
18222: IF xmldom.isNull(l_xmldoc) THEN
18223: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
18224: p_token_name => 'UI_TEMPLATE',
18225: p_token_value => l_jrad_doc,
18226: p_fatal_error => TRUE);
18229:
18230: --
18231: -- delete user attributes from the list of attrributes to delete
18232: --
18233: delete_User_Attributes(xmldom.makeNode(l_xmldoc),p_template_ui_def_id,
18234: p_template_id, p_template_ui_def_id);
18235:
18236: jdr_docbuilder.deleteDocument(l_jrad_doc);
18237:
18277: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
18278: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
18279: ) IS
18280:
18281: l_xmldoc xmldom.DOMDocument;
18282: l_out_node xmldom.DOMNode;
18283: l_parent_node xmldom.DOMNode;
18284: l_xml_node xmldom.DOMNode;
18285: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18278: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
18279: ) IS
18280:
18281: l_xmldoc xmldom.DOMDocument;
18282: l_out_node xmldom.DOMNode;
18283: l_parent_node xmldom.DOMNode;
18284: l_xml_node xmldom.DOMNode;
18285: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18286: l_needs_to_be_unlocked BOOLEAN;
18279: ) IS
18280:
18281: l_xmldoc xmldom.DOMDocument;
18282: l_out_node xmldom.DOMNode;
18283: l_parent_node xmldom.DOMNode;
18284: l_xml_node xmldom.DOMNode;
18285: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18286: l_needs_to_be_unlocked BOOLEAN;
18287:
18280:
18281: l_xmldoc xmldom.DOMDocument;
18282: l_out_node xmldom.DOMNode;
18283: l_parent_node xmldom.DOMNode;
18284: l_xml_node xmldom.DOMNode;
18285: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18286: l_needs_to_be_unlocked BOOLEAN;
18287:
18288: BEGIN
18312: -- create UI Template in JRAD repository
18313: --
18314: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
18315:
18316: IF xmldom.isNull(l_xmldoc) THEN
18317: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
18318: p_token_name => 'UI_TEMPLATE',
18319: p_token_value => l_jrad_doc,
18320: p_fatal_error => TRUE);
18324: l_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_xmldoc,
18325: p_attribute_name => G_ID_ATTRIBUTE,
18326: p_attribute_value => p_element_id);
18327:
18328: IF xmldom.isNull(l_xml_node) THEN
18329: l_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_xmldoc,
18330: p_attribute_name => 'caseId',
18331: p_attribute_value => p_element_id,
18332: p_in_user_attributes => G_YES_FLAG );
18330: p_attribute_name => 'caseId',
18331: p_attribute_value => p_element_id,
18332: p_in_user_attributes => G_YES_FLAG );
18333:
18334: IF xmldom.isNull(l_xml_node) THEN
18335: x_return_status := FND_API.G_RET_STS_ERROR;
18336: x_msg_count := 1;
18337: x_msg_data := 'Element with element_id="'||p_element_id||'" does exist.';
18338: fnd_msg_pub.add_exc_msg('CZ_UIOA_PVT', 'delete_Local_Template_Elem', 'Element with element_id="'||
18351:
18352: --
18353: -- remove XML subtree
18354: --
18355: l_parent_node:=xmldom.getParentNode(l_xml_node);
18356: l_out_node:=xmldom.removeChild(l_parent_node,l_xml_node);
18357:
18358:
18359: refresh_Templ_Ref_Counts(l_xmldoc, p_template_ui_def_id, p_template_id);
18352: --
18353: -- remove XML subtree
18354: --
18355: l_parent_node:=xmldom.getParentNode(l_xml_node);
18356: l_out_node:=xmldom.removeChild(l_parent_node,l_xml_node);
18357:
18358:
18359: refresh_Templ_Ref_Counts(l_xmldoc, p_template_ui_def_id, p_template_id);
18360:
18423: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
18424: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
18425: ) IS
18426:
18427: l_source_xmldoc xmldom.DOMDocument;
18428: l_target_xmldoc xmldom.DOMDocument;
18429: l_source_xml_node xmldom.DOMNode;
18430: l_target_xml_node xmldom.DOMNode;
18431: l_new_xml_root_node xmldom.DOMNode;
18424: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
18425: ) IS
18426:
18427: l_source_xmldoc xmldom.DOMDocument;
18428: l_target_xmldoc xmldom.DOMDocument;
18429: l_source_xml_node xmldom.DOMNode;
18430: l_target_xml_node xmldom.DOMNode;
18431: l_new_xml_root_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18425: ) IS
18426:
18427: l_source_xmldoc xmldom.DOMDocument;
18428: l_target_xmldoc xmldom.DOMDocument;
18429: l_source_xml_node xmldom.DOMNode;
18430: l_target_xml_node xmldom.DOMNode;
18431: l_new_xml_root_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18433: l_target_uicont_xml_node xmldom.DOMNode;
18426:
18427: l_source_xmldoc xmldom.DOMDocument;
18428: l_target_xmldoc xmldom.DOMDocument;
18429: l_source_xml_node xmldom.DOMNode;
18430: l_target_xml_node xmldom.DOMNode;
18431: l_new_xml_root_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18433: l_target_uicont_xml_node xmldom.DOMNode;
18434: l_stacklayout_node xmldom.DOMNode;
18427: l_source_xmldoc xmldom.DOMDocument;
18428: l_target_xmldoc xmldom.DOMDocument;
18429: l_source_xml_node xmldom.DOMNode;
18430: l_target_xml_node xmldom.DOMNode;
18431: l_new_xml_root_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18433: l_target_uicont_xml_node xmldom.DOMNode;
18434: l_stacklayout_node xmldom.DOMNode;
18435: l_stacklayout_uicont_xml_node xmldom.DOMNode;
18428: l_target_xmldoc xmldom.DOMDocument;
18429: l_source_xml_node xmldom.DOMNode;
18430: l_target_xml_node xmldom.DOMNode;
18431: l_new_xml_root_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18433: l_target_uicont_xml_node xmldom.DOMNode;
18434: l_stacklayout_node xmldom.DOMNode;
18435: l_stacklayout_uicont_xml_node xmldom.DOMNode;
18436: l_xml_temp_node xmldom.DOMNode;
18429: l_source_xml_node xmldom.DOMNode;
18430: l_target_xml_node xmldom.DOMNode;
18431: l_new_xml_root_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18433: l_target_uicont_xml_node xmldom.DOMNode;
18434: l_stacklayout_node xmldom.DOMNode;
18435: l_stacklayout_uicont_xml_node xmldom.DOMNode;
18436: l_xml_temp_node xmldom.DOMNode;
18437: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18430: l_target_xml_node xmldom.DOMNode;
18431: l_new_xml_root_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18433: l_target_uicont_xml_node xmldom.DOMNode;
18434: l_stacklayout_node xmldom.DOMNode;
18435: l_stacklayout_uicont_xml_node xmldom.DOMNode;
18436: l_xml_temp_node xmldom.DOMNode;
18437: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18438: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18431: l_new_xml_root_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18433: l_target_uicont_xml_node xmldom.DOMNode;
18434: l_stacklayout_node xmldom.DOMNode;
18435: l_stacklayout_uicont_xml_node xmldom.DOMNode;
18436: l_xml_temp_node xmldom.DOMNode;
18437: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18438: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18439: l_xml_uicont_node xmldom.DOMNode;
18432: l_out_xml_node xmldom.DOMNode;
18433: l_target_uicont_xml_node xmldom.DOMNode;
18434: l_stacklayout_node xmldom.DOMNode;
18435: l_stacklayout_uicont_xml_node xmldom.DOMNode;
18436: l_xml_temp_node xmldom.DOMNode;
18437: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18438: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18439: l_xml_uicont_node xmldom.DOMNode;
18440: l_xml_new_node xmldom.DOMNode;
18435: l_stacklayout_uicont_xml_node xmldom.DOMNode;
18436: l_xml_temp_node xmldom.DOMNode;
18437: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18438: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18439: l_xml_uicont_node xmldom.DOMNode;
18440: l_xml_new_node xmldom.DOMNode;
18441: l_amn_parent_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
18442: l_pagebase_persistent_node_id NUMBER;
18443: l_length NUMBER;
18436: l_xml_temp_node xmldom.DOMNode;
18437: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18438: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18439: l_xml_uicont_node xmldom.DOMNode;
18440: l_xml_new_node xmldom.DOMNode;
18441: l_amn_parent_element_id CZ_UI_PAGE_ELEMENTS.element_id%TYPE;
18442: l_pagebase_persistent_node_id NUMBER;
18443: l_length NUMBER;
18444: l_caseid_to_copy BOOLEAN;
18477: Open_Parser();
18478:
18479: l_source_xmldoc := parse_JRAD_Document(p_doc_full_name => l_source_jrad_doc);
18480:
18481: IF xmldom.isNull(l_source_xmldoc) THEN
18482: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
18483: p_token_name => 'UI_TEMPLATE',
18484: p_token_value => l_source_jrad_doc,
18485: p_fatal_error => TRUE);
18490: -- create UI Template in JRAD repository
18491: --
18492: l_target_xmldoc := parse_JRAD_Document(p_doc_full_name => l_target_jrad_doc);
18493:
18494: IF xmldom.isNull(l_target_xmldoc) THEN
18495: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
18496: p_token_name => 'UI_TEMPLATE',
18497: p_token_value => l_target_jrad_doc,
18498: p_fatal_error => TRUE);
18502: l_source_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_source_xmldoc,
18503: p_attribute_name => G_ID_ATTRIBUTE,
18504: p_attribute_value => p_source_element_id);
18505:
18506: IF xmldom.IsNull(l_source_xml_node) THEN
18507: l_source_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_source_xmldoc,
18508: p_attribute_name => 'caseId',
18509: p_attribute_value => p_source_element_id,
18510: p_in_user_attributes => G_YES_FLAG);
18513:
18514: l_target_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_target_xmldoc,
18515: p_attribute_name => G_ID_ATTRIBUTE,
18516: p_attribute_value => p_target_parent_element_id);
18517: IF xmldom.IsNull(l_target_xml_node) THEN
18518: l_target_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_target_xmldoc,
18519: p_attribute_name => 'caseId',
18520: p_attribute_value => p_target_parent_element_id,
18521: p_in_user_attributes => G_YES_FLAG);
18533: END;
18534:
18535: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
18536:
18537: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
18538: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18539: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
18540: l_xml_temp_node);
18541: END IF;
18534:
18535: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
18536:
18537: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
18538: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18539: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
18540: l_xml_temp_node);
18541: END IF;
18542:
18535: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
18536:
18537: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
18538: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18539: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
18540: l_xml_temp_node);
18541: END IF;
18542:
18543:
18543:
18544: --
18545: -- returns cloned DOM subtree
18546: --
18547: --l_new_xml_root_node := xmldom.cloneNode(l_source_xml_node, TRUE);
18548: l_new_xml_root_node := cloneNode(l_source_xml_node, l_target_uicont_xml_node);
18549:
18550:
18551: copy_Tree_Level(p_xml_node => l_new_xml_root_node,
18563: p_amn_parent_element_id => l_amn_parent_element_id);
18564:
18565: validate_Copied_PIR(p_target_ui_def_id, p_target_ui_page_id);
18566:
18567: IF xmldom.getNodeName(l_source_xml_node)='ui:case' AND xmldom.getNodeName(l_target_xml_node)='oa:switcher' THEN
18568:
18569: l_out_xml_node := xmldom.appendChild(l_target_xml_node,
18570: l_new_xml_root_node);
18571:
18565: validate_Copied_PIR(p_target_ui_def_id, p_target_ui_page_id);
18566:
18567: IF xmldom.getNodeName(l_source_xml_node)='ui:case' AND xmldom.getNodeName(l_target_xml_node)='oa:switcher' THEN
18568:
18569: l_out_xml_node := xmldom.appendChild(l_target_xml_node,
18570: l_new_xml_root_node);
18571:
18572: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
18573: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18568:
18569: l_out_xml_node := xmldom.appendChild(l_target_xml_node,
18570: l_new_xml_root_node);
18571:
18572: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
18573: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18574:
18575: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
18576: l_xml_new_node);
18569: l_out_xml_node := xmldom.appendChild(l_target_xml_node,
18570: l_new_xml_root_node);
18571:
18572: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
18573: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18574:
18575: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
18576: l_xml_new_node);
18577: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
18571:
18572: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
18573: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18574:
18575: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
18576: l_xml_new_node);
18577: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
18578: l_new_xml_root_node);
18579: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
18573: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18574:
18575: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
18576: l_xml_new_node);
18577: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
18578: l_new_xml_root_node);
18579: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
18580:
18581: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
18575: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
18576: l_xml_new_node);
18577: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
18578: l_new_xml_root_node);
18579: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
18580:
18581: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
18582: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
18583:
18580:
18581: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
18582: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
18583:
18584: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
18585:
18586: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18587: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
18588: l_xml_new_node);
18582: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
18583:
18584: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
18585:
18586: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18587: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
18588: l_xml_new_node);
18589: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
18590: l_new_xml_root_node);
18583:
18584: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
18585:
18586: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18587: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
18588: l_xml_new_node);
18589: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
18590: l_new_xml_root_node);
18591:
18585:
18586: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
18587: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
18588: l_xml_new_node);
18589: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
18590: l_new_xml_root_node);
18591:
18592: ELSE
18593:
18590: l_new_xml_root_node);
18591:
18592: ELSE
18593:
18594: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
18595: l_new_xml_root_node);
18596: END IF;
18597: ELSE
18598: l_out_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
18594: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
18595: l_new_xml_root_node);
18596: END IF;
18597: ELSE
18598: l_out_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
18599: l_new_xml_root_node);
18600: END IF;
18601:
18602: Save_Document(p_xml_doc => l_target_xmldoc,
18651: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
18652: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
18653: ) IS
18654:
18655: l_source_xmldoc xmldom.DOMDocument;
18656: l_source_xml_node xmldom.DOMNode;
18657: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18658: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18659: l_element_id_tbl number_tbl_type;
18652: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
18653: ) IS
18654:
18655: l_source_xmldoc xmldom.DOMDocument;
18656: l_source_xml_node xmldom.DOMNode;
18657: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18658: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
18659: l_element_id_tbl number_tbl_type;
18660: l_parent_element_id_tbl number_tbl_type;
18807: -- create UI Template in JRAD repository
18808: --
18809: l_source_xmldoc := parse_JRAD_Document(p_doc_full_name => l_source_jrad_doc);
18810:
18811: IF xmldom.isNull(l_source_xmldoc) THEN
18812: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
18813: p_token_name => 'UI_TEMPLATE',
18814: p_token_value => l_source_jrad_doc,
18815: p_fatal_error => TRUE);
19053: x_return_status OUT NOCOPY VARCHAR2,-- status string
19054: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19055: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19056: ) IS
19057: l_source_template_xmldoc xmldom.DOMDocument;
19058: l_template_root_xml_node xmldom.DOMNode;
19059: l_xml_node xmldom.DOMNode;
19060: l_child_nodes_tbl xmldom.DOMNodeList;
19061: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19054: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19055: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19056: ) IS
19057: l_source_template_xmldoc xmldom.DOMDocument;
19058: l_template_root_xml_node xmldom.DOMNode;
19059: l_xml_node xmldom.DOMNode;
19060: l_child_nodes_tbl xmldom.DOMNodeList;
19061: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19062: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19055: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19056: ) IS
19057: l_source_template_xmldoc xmldom.DOMDocument;
19058: l_template_root_xml_node xmldom.DOMNode;
19059: l_xml_node xmldom.DOMNode;
19060: l_child_nodes_tbl xmldom.DOMNodeList;
19061: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19062: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19063: l_length NUMBER;
19056: ) IS
19057: l_source_template_xmldoc xmldom.DOMDocument;
19058: l_template_root_xml_node xmldom.DOMNode;
19059: l_xml_node xmldom.DOMNode;
19060: l_child_nodes_tbl xmldom.DOMNodeList;
19061: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19062: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19063: l_length NUMBER;
19064: l_needs_to_be_unlocked BOOLEAN;
19087: -- create UI Template in JRAD repository
19088: --
19089: l_source_template_xmldoc := parse_JRAD_Document(p_doc_full_name => l_source_jrad_doc);
19090:
19091: IF xmldom.isNull(l_source_template_xmldoc) THEN
19092: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19093: p_token_name => 'UI_TEMPLATE',
19094: p_token_value => l_source_jrad_doc,
19095: p_fatal_error => TRUE);
19095: p_fatal_error => TRUE);
19096: RAISE WRONG_UI_TEMPLATE;
19097: END IF;
19098:
19099: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_source_template_xmldoc));
19100:
19101: l_child_nodes_tbl := xmldom.getElementsByTagName(l_source_template_xmldoc, '*');
19102: l_length := xmldom.getLength(l_child_nodes_tbl);
19103: IF (l_length > 0) THEN
19097: END IF;
19098:
19099: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_source_template_xmldoc));
19100:
19101: l_child_nodes_tbl := xmldom.getElementsByTagName(l_source_template_xmldoc, '*');
19102: l_length := xmldom.getLength(l_child_nodes_tbl);
19103: IF (l_length > 0) THEN
19104: FOR k IN 0..l_length-1
19105: LOOP
19098:
19099: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_source_template_xmldoc));
19100:
19101: l_child_nodes_tbl := xmldom.getElementsByTagName(l_source_template_xmldoc, '*');
19102: l_length := xmldom.getLength(l_child_nodes_tbl);
19103: IF (l_length > 0) THEN
19104: FOR k IN 0..l_length-1
19105: LOOP
19106: --
19105: LOOP
19106: --
19107: -- get next child DOM node
19108: --
19109: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
19110: IF k > 0 THEN
19111: --
19112: -- create a new copies for corresponding entities ( captions, rules ,... )
19113: --
19235: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19236: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19237: ) IS
19238:
19239: l_source_xmldoc xmldom.DOMDocument;
19240:
19241: BEGIN
19242:
19243: --
19254: -- create UI Template in JRAD repository
19255: --
19256: l_source_xmldoc := parse_JRAD_Document(p_doc_full_name => p_source_jrad_doc);
19257:
19258: IF xmldom.isNull(l_source_xmldoc) THEN
19259: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19260: p_token_name => 'UI_TEMPLATE',
19261: p_token_value => p_source_jrad_doc,
19262: p_fatal_error => TRUE);
19310: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19311: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19312: ) IS
19313:
19314: l_source_xmldoc xmldom.DOMDocument;
19315: l_target_xmldoc xmldom.DOMDocument;
19316: l_source_xml_node xmldom.DOMNode;
19317: l_xml_uicont_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19311: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19312: ) IS
19313:
19314: l_source_xmldoc xmldom.DOMDocument;
19315: l_target_xmldoc xmldom.DOMDocument;
19316: l_source_xml_node xmldom.DOMNode;
19317: l_xml_uicont_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19319: l_target_xml_node xmldom.DOMNode;
19312: ) IS
19313:
19314: l_source_xmldoc xmldom.DOMDocument;
19315: l_target_xmldoc xmldom.DOMDocument;
19316: l_source_xml_node xmldom.DOMNode;
19317: l_xml_uicont_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19319: l_target_xml_node xmldom.DOMNode;
19320: l_new_xml_root_node xmldom.DOMNode;
19313:
19314: l_source_xmldoc xmldom.DOMDocument;
19315: l_target_xmldoc xmldom.DOMDocument;
19316: l_source_xml_node xmldom.DOMNode;
19317: l_xml_uicont_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19319: l_target_xml_node xmldom.DOMNode;
19320: l_new_xml_root_node xmldom.DOMNode;
19321: l_out_xml_node xmldom.DOMNode;
19314: l_source_xmldoc xmldom.DOMDocument;
19315: l_target_xmldoc xmldom.DOMDocument;
19316: l_source_xml_node xmldom.DOMNode;
19317: l_xml_uicont_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19319: l_target_xml_node xmldom.DOMNode;
19320: l_new_xml_root_node xmldom.DOMNode;
19321: l_out_xml_node xmldom.DOMNode;
19322: l_target_uicont_xml_node xmldom.DOMNode;
19315: l_target_xmldoc xmldom.DOMDocument;
19316: l_source_xml_node xmldom.DOMNode;
19317: l_xml_uicont_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19319: l_target_xml_node xmldom.DOMNode;
19320: l_new_xml_root_node xmldom.DOMNode;
19321: l_out_xml_node xmldom.DOMNode;
19322: l_target_uicont_xml_node xmldom.DOMNode;
19323: l_xml_temp_node xmldom.DOMNode;
19316: l_source_xml_node xmldom.DOMNode;
19317: l_xml_uicont_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19319: l_target_xml_node xmldom.DOMNode;
19320: l_new_xml_root_node xmldom.DOMNode;
19321: l_out_xml_node xmldom.DOMNode;
19322: l_target_uicont_xml_node xmldom.DOMNode;
19323: l_xml_temp_node xmldom.DOMNode;
19324: l_stacklayout_node xmldom.DOMNode;
19317: l_xml_uicont_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19319: l_target_xml_node xmldom.DOMNode;
19320: l_new_xml_root_node xmldom.DOMNode;
19321: l_out_xml_node xmldom.DOMNode;
19322: l_target_uicont_xml_node xmldom.DOMNode;
19323: l_xml_temp_node xmldom.DOMNode;
19324: l_stacklayout_node xmldom.DOMNode;
19325: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19318: l_xml_new_node xmldom.DOMNode;
19319: l_target_xml_node xmldom.DOMNode;
19320: l_new_xml_root_node xmldom.DOMNode;
19321: l_out_xml_node xmldom.DOMNode;
19322: l_target_uicont_xml_node xmldom.DOMNode;
19323: l_xml_temp_node xmldom.DOMNode;
19324: l_stacklayout_node xmldom.DOMNode;
19325: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19326: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19319: l_target_xml_node xmldom.DOMNode;
19320: l_new_xml_root_node xmldom.DOMNode;
19321: l_out_xml_node xmldom.DOMNode;
19322: l_target_uicont_xml_node xmldom.DOMNode;
19323: l_xml_temp_node xmldom.DOMNode;
19324: l_stacklayout_node xmldom.DOMNode;
19325: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19326: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19327: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19320: l_new_xml_root_node xmldom.DOMNode;
19321: l_out_xml_node xmldom.DOMNode;
19322: l_target_uicont_xml_node xmldom.DOMNode;
19323: l_xml_temp_node xmldom.DOMNode;
19324: l_stacklayout_node xmldom.DOMNode;
19325: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19326: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19327: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19328: l_needs_to_be_unlocked BOOLEAN;
19321: l_out_xml_node xmldom.DOMNode;
19322: l_target_uicont_xml_node xmldom.DOMNode;
19323: l_xml_temp_node xmldom.DOMNode;
19324: l_stacklayout_node xmldom.DOMNode;
19325: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19326: l_source_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19327: l_target_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19328: l_needs_to_be_unlocked BOOLEAN;
19329: BEGIN
19355: -- create UI Template in JRAD repository
19356: --
19357: l_source_xmldoc := parse_JRAD_Document(p_doc_full_name => l_source_jrad_doc);
19358:
19359: IF xmldom.isNull(l_source_xmldoc) THEN
19360: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19361: p_token_name => 'UI_TEMPLATE',
19362: p_token_value => l_source_jrad_doc,
19363: p_fatal_error => TRUE);
19368: -- create UI Template in JRAD repository
19369: --
19370: l_target_xmldoc := parse_JRAD_Document(p_doc_full_name => l_target_jrad_doc);
19371:
19372: IF xmldom.isNull(l_target_xmldoc) THEN
19373: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19374: p_token_name => 'UI_TEMPLATE',
19375: p_token_value => l_target_jrad_doc,
19376: p_fatal_error => TRUE);
19381: p_attribute_name => G_ID_ATTRIBUTE,
19382: p_attribute_value => p_source_element_id);
19383:
19384: IF p_target_parent_element_id IS NULL THEN
19385: l_target_xml_node := xmldom.makeNode(xmldom.getDocumentElement(l_target_xmldoc));
19386: ELSE
19387: l_target_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_target_xmldoc,
19388: p_attribute_name => G_ID_ATTRIBUTE,
19389: p_attribute_value => p_target_parent_element_id);
19390: END IF;
19391:
19392: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
19393:
19394: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
19395: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19396: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
19397: l_xml_temp_node);
19398: END IF;
19391:
19392: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
19393:
19394: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
19395: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19396: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
19397: l_xml_temp_node);
19398: END IF;
19399:
19392: l_target_uicont_xml_node := getUIContents(l_target_xml_node, G_YES_FLAG);
19393:
19394: IF xmldom.IsNull(l_target_uicont_xml_node) THEN
19395: l_xml_temp_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19396: l_target_uicont_xml_node := xmldom.appendChild(l_target_xml_node,
19397: l_xml_temp_node);
19398: END IF;
19399:
19400: --
19399:
19400: --
19401: -- returns cloned DOM subtree
19402: --
19403: -- l_new_xml_root_node := xmldom.cloneNode(l_source_xml_node, TRUE);
19404: l_new_xml_root_node := cloneNode(l_source_xml_node, l_target_uicont_xml_node);
19405:
19406: x_new_element_id := get_Element_Id();
19407:
19414: p_target_ui_def_id => p_target_ui_def_id,
19415: p_source_template_id => p_source_template_id,
19416: p_target_template_id => p_target_template_id);
19417:
19418: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
19419: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19420:
19421: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
19422: l_xml_new_node);
19415: p_source_template_id => p_source_template_id,
19416: p_target_template_id => p_target_template_id);
19417:
19418: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
19419: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19420:
19421: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
19422: l_xml_new_node);
19423:
19417:
19418: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)<>'ui:case' THEN
19419: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19420:
19421: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
19422: l_xml_new_node);
19423:
19424: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19425: l_new_xml_root_node);
19420:
19421: l_xml_uicont_node := xmldom.appendChild(l_target_xml_node,
19422: l_xml_new_node);
19423:
19424: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19425: l_new_xml_root_node);
19426:
19427: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
19428: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
19423:
19424: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19425: l_new_xml_root_node);
19426:
19427: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
19428: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
19429: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19430: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19431:
19426:
19427: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_target_xml_node)='ui:case' THEN
19428: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
19429: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19430: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19431:
19432: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19433: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19434: l_xml_new_node);
19428: l_stacklayout_node := findChildXMLTag(l_target_xml_node, 'oa:stackLayout');
19429: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19430: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19431:
19432: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19433: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19434: l_xml_new_node);
19435:
19436: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19429: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19430: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19431:
19432: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19433: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19434: l_xml_new_node);
19435:
19436: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19437: l_new_xml_root_node);
19432: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_target_xmldoc, 'ui:contents'));
19433: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19434: l_xml_new_node);
19435:
19436: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19437: l_new_xml_root_node);
19438:
19439: ELSE
19440: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
19436: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19437: l_new_xml_root_node);
19438:
19439: ELSE
19440: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
19441: l_new_xml_root_node);
19442: END IF;
19443:
19444: ELSE
19441: l_new_xml_root_node);
19442: END IF;
19443:
19444: ELSE
19445: l_out_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
19446: l_new_xml_root_node);
19447:
19448: END IF;
19449:
19507: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19508: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19509: ) IS
19510:
19511: l_template_xmldoc xmldom.DOMDocument;
19512: l_xmldoc xmldom.DOMDocument;
19513: l_template_root_xml_node xmldom.DOMNode;
19514: l_parent_xml_node xmldom.DOMNode;
19515: l_out_xml_node xmldom.DOMNode;
19508: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19509: ) IS
19510:
19511: l_template_xmldoc xmldom.DOMDocument;
19512: l_xmldoc xmldom.DOMDocument;
19513: l_template_root_xml_node xmldom.DOMNode;
19514: l_parent_xml_node xmldom.DOMNode;
19515: l_out_xml_node xmldom.DOMNode;
19516: l_target_uicont_xml_node xmldom.DOMNode;
19509: ) IS
19510:
19511: l_template_xmldoc xmldom.DOMDocument;
19512: l_xmldoc xmldom.DOMDocument;
19513: l_template_root_xml_node xmldom.DOMNode;
19514: l_parent_xml_node xmldom.DOMNode;
19515: l_out_xml_node xmldom.DOMNode;
19516: l_target_uicont_xml_node xmldom.DOMNode;
19517: l_new_xml_root_node xmldom.DOMNode;
19510:
19511: l_template_xmldoc xmldom.DOMDocument;
19512: l_xmldoc xmldom.DOMDocument;
19513: l_template_root_xml_node xmldom.DOMNode;
19514: l_parent_xml_node xmldom.DOMNode;
19515: l_out_xml_node xmldom.DOMNode;
19516: l_target_uicont_xml_node xmldom.DOMNode;
19517: l_new_xml_root_node xmldom.DOMNode;
19518: l_xml_node xmldom.DOMNode;
19511: l_template_xmldoc xmldom.DOMDocument;
19512: l_xmldoc xmldom.DOMDocument;
19513: l_template_root_xml_node xmldom.DOMNode;
19514: l_parent_xml_node xmldom.DOMNode;
19515: l_out_xml_node xmldom.DOMNode;
19516: l_target_uicont_xml_node xmldom.DOMNode;
19517: l_new_xml_root_node xmldom.DOMNode;
19518: l_xml_node xmldom.DOMNode;
19519:
19512: l_xmldoc xmldom.DOMDocument;
19513: l_template_root_xml_node xmldom.DOMNode;
19514: l_parent_xml_node xmldom.DOMNode;
19515: l_out_xml_node xmldom.DOMNode;
19516: l_target_uicont_xml_node xmldom.DOMNode;
19517: l_new_xml_root_node xmldom.DOMNode;
19518: l_xml_node xmldom.DOMNode;
19519:
19520: l_source_xml_node xmldom.DOMNode;
19513: l_template_root_xml_node xmldom.DOMNode;
19514: l_parent_xml_node xmldom.DOMNode;
19515: l_out_xml_node xmldom.DOMNode;
19516: l_target_uicont_xml_node xmldom.DOMNode;
19517: l_new_xml_root_node xmldom.DOMNode;
19518: l_xml_node xmldom.DOMNode;
19519:
19520: l_source_xml_node xmldom.DOMNode;
19521: l_xml_uicont_node xmldom.DOMNode;
19514: l_parent_xml_node xmldom.DOMNode;
19515: l_out_xml_node xmldom.DOMNode;
19516: l_target_uicont_xml_node xmldom.DOMNode;
19517: l_new_xml_root_node xmldom.DOMNode;
19518: l_xml_node xmldom.DOMNode;
19519:
19520: l_source_xml_node xmldom.DOMNode;
19521: l_xml_uicont_node xmldom.DOMNode;
19522: l_xml_new_node xmldom.DOMNode;
19516: l_target_uicont_xml_node xmldom.DOMNode;
19517: l_new_xml_root_node xmldom.DOMNode;
19518: l_xml_node xmldom.DOMNode;
19519:
19520: l_source_xml_node xmldom.DOMNode;
19521: l_xml_uicont_node xmldom.DOMNode;
19522: l_xml_new_node xmldom.DOMNode;
19523: l_target_xml_node xmldom.DOMNode;
19524: l_stacklayout_node xmldom.DOMNode;
19517: l_new_xml_root_node xmldom.DOMNode;
19518: l_xml_node xmldom.DOMNode;
19519:
19520: l_source_xml_node xmldom.DOMNode;
19521: l_xml_uicont_node xmldom.DOMNode;
19522: l_xml_new_node xmldom.DOMNode;
19523: l_target_xml_node xmldom.DOMNode;
19524: l_stacklayout_node xmldom.DOMNode;
19525: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19518: l_xml_node xmldom.DOMNode;
19519:
19520: l_source_xml_node xmldom.DOMNode;
19521: l_xml_uicont_node xmldom.DOMNode;
19522: l_xml_new_node xmldom.DOMNode;
19523: l_target_xml_node xmldom.DOMNode;
19524: l_stacklayout_node xmldom.DOMNode;
19525: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19526:
19519:
19520: l_source_xml_node xmldom.DOMNode;
19521: l_xml_uicont_node xmldom.DOMNode;
19522: l_xml_new_node xmldom.DOMNode;
19523: l_target_xml_node xmldom.DOMNode;
19524: l_stacklayout_node xmldom.DOMNode;
19525: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19526:
19527: l_switcher_element_id VARCHAR2(255);
19520: l_source_xml_node xmldom.DOMNode;
19521: l_xml_uicont_node xmldom.DOMNode;
19522: l_xml_new_node xmldom.DOMNode;
19523: l_target_xml_node xmldom.DOMNode;
19524: l_stacklayout_node xmldom.DOMNode;
19525: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19526:
19527: l_switcher_element_id VARCHAR2(255);
19528: l_old_ui_element_id VARCHAR2(255);
19521: l_xml_uicont_node xmldom.DOMNode;
19522: l_xml_new_node xmldom.DOMNode;
19523: l_target_xml_node xmldom.DOMNode;
19524: l_stacklayout_node xmldom.DOMNode;
19525: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19526:
19527: l_switcher_element_id VARCHAR2(255);
19528: l_old_ui_element_id VARCHAR2(255);
19529: l_new_ui_element_id VARCHAR2(255);
19531: l_user_attribute3_value VARCHAR2(4000);
19532: l_switcher_casename VARCHAR2(255);
19533: l_switcher_xml_id VARCHAR2(255);
19534: l_uicase_name VARCHAR2(255);
19535: l_child_nodes_tbl xmldom.DOMNodeList;
19536: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19537: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19538: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
19539: l_attribute_value VARCHAR2(255);
19573: -- create UI Template in JRAD repository
19574: --
19575: l_template_xmldoc := parse_JRAD_Document(p_doc_full_name => l_template_jrad_doc);
19576:
19577: IF xmldom.isNull(l_template_xmldoc) THEN
19578: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19579: p_token_name => 'UI_TEMPLATE',
19580: p_token_value => l_template_jrad_doc,
19581: p_fatal_error => TRUE);
19583: END IF;
19584:
19585: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
19586:
19587: IF xmldom.isNull(l_xmldoc) THEN
19588: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19589: p_token_name => 'UI_TEMPLATE',
19590: p_token_value => l_jrad_doc,
19591: p_fatal_error => TRUE);
19601: p_ui_page_id => p_ui_page_id);
19602:
19603: l_target_uicont_xml_node := getUIContents(l_parent_xml_node);
19604:
19605: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
19606:
19607: x_new_element_id := get_Element_Id();
19608:
19609: set_Attribute(l_template_root_xml_node,
19614: p_ui_def_id => p_ui_def_id,
19615: p_ui_page_id => p_ui_page_id,
19616: p_ui_element_id => x_new_element_id);
19617:
19618: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
19619: l_length := xmldom.getLength(l_child_nodes_tbl);
19620: IF (l_length > 0) THEN
19621: FOR k IN 0..l_length-1
19622: LOOP
19615: p_ui_page_id => p_ui_page_id,
19616: p_ui_element_id => x_new_element_id);
19617:
19618: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
19619: l_length := xmldom.getLength(l_child_nodes_tbl);
19620: IF (l_length > 0) THEN
19621: FOR k IN 0..l_length-1
19622: LOOP
19623: --
19622: LOOP
19623: --
19624: -- get next child DOM node
19625: --
19626: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
19627:
19628: handle_UI_CASE_Id(l_xml_node);
19629:
19630: IF k > 0 THEN
19631: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
19632:
19633: /*
19634: IF l_attribute_value IS NOT NULL THEN
19635: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,l_attribute_value||'_'||x_new_element_id);
19636: --
19637: -- create a new copies for corresponding entities ( captions, rules ,... )
19638: --
19639: copy_Node_Related_Entities(p_ui_def_id => p_ui_def_id,
19639: copy_Node_Related_Entities(p_ui_def_id => p_ui_def_id,
19640: p_ui_page_id => p_ui_page_id,
19641: p_xml_node => l_xml_node);
19642: */
19643: l_parent_xml_node := xmldom.getParentNode(l_xml_node);
19644: IF l_attribute_value IS NOT NULL THEN
19645: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
19646:
19647: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
19641: p_xml_node => l_xml_node);
19642: */
19643: l_parent_xml_node := xmldom.getParentNode(l_xml_node);
19644: IF l_attribute_value IS NOT NULL THEN
19645: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
19646:
19647: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
19648: ( NOT(xmldom.isNull(l_parent_xml_node)) AND xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
19649: xmldom.getNodeName(l_parent_xml_node)='ui:case') THEN
19643: l_parent_xml_node := xmldom.getParentNode(l_xml_node);
19644: IF l_attribute_value IS NOT NULL THEN
19645: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
19646:
19647: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
19648: ( NOT(xmldom.isNull(l_parent_xml_node)) AND xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
19649: xmldom.getNodeName(l_parent_xml_node)='ui:case') THEN
19650:
19651: l_switcher_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:switcher');
19644: IF l_attribute_value IS NOT NULL THEN
19645: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
19646:
19647: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
19648: ( NOT(xmldom.isNull(l_parent_xml_node)) AND xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
19649: xmldom.getNodeName(l_parent_xml_node)='ui:case') THEN
19650:
19651: l_switcher_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:switcher');
19652:
19645: --l_parent_xml_node := xmldom.getParentNode(l_xml_node);
19646:
19647: IF xmldom.getNodeName(l_xml_node)='ui:case' OR
19648: ( NOT(xmldom.isNull(l_parent_xml_node)) AND xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
19649: xmldom.getNodeName(l_parent_xml_node)='ui:case') THEN
19650:
19651: l_switcher_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:switcher');
19652:
19653: l_old_ui_element_id := SUBSTR(l_attribute_value,1,INSTR(l_attribute_value, '_')-1);
19654:
19655: l_new_ui_element_id := REPLACE(REPLACE(REPLACE(l_attribute_value,
19656: l_old_ui_element_id,
19657: l_switcher_element_id),'_czt','_czn'),'_czc','_czn');
19658: set_Attribute(xmldom.makeElement(l_xml_node),
19659: G_ID_ATTRIBUTE,
19660: l_new_ui_element_id);
19661:
19662: IF xmldom.getNodeName(l_parent_xml_node)='oa:switcher' THEN
19658: set_Attribute(xmldom.makeElement(l_xml_node),
19659: G_ID_ATTRIBUTE,
19660: l_new_ui_element_id);
19661:
19662: IF xmldom.getNodeName(l_parent_xml_node)='oa:switcher' THEN
19663: l_switcher_xml_id := get_Attribute_Value(l_parent_xml_node, G_ID_ATTRIBUTE);
19664: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
19665: set_Attribute(xmldom.makeElement(l_xml_node),
19666: 'name',
19661:
19662: IF xmldom.getNodeName(l_parent_xml_node)='oa:switcher' THEN
19663: l_switcher_xml_id := get_Attribute_Value(l_parent_xml_node, G_ID_ATTRIBUTE);
19664: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
19665: set_Attribute(xmldom.makeElement(l_xml_node),
19666: 'name',
19667: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'),'_czc','_czn'));
19668: END IF;
19669: --
19670: -- if current tag is
19671: -- then replace old id with new one
19672: --
19673:
19674: IF (xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
19675: xmldom.getNodeName(l_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL
19676: THEN
19677: set_Attribute(xmldom.makeElement(l_xml_node),
19678: G_ID_ATTRIBUTE,
19671: -- then replace old id with new one
19672: --
19673:
19674: IF (xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
19675: xmldom.getNodeName(l_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL
19676: THEN
19677: set_Attribute(xmldom.makeElement(l_xml_node),
19678: G_ID_ATTRIBUTE,
19679: REPLACE(REPLACE(get_Attribute_Value(l_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
19673:
19674: IF (xmldom.getNodeName(l_xml_node)='oa:stackLayout' AND
19675: xmldom.getNodeName(l_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL
19676: THEN
19677: set_Attribute(xmldom.makeElement(l_xml_node),
19678: G_ID_ATTRIBUTE,
19679: REPLACE(REPLACE(get_Attribute_Value(l_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
19680: END IF;
19681: ELSE
19678: G_ID_ATTRIBUTE,
19679: REPLACE(REPLACE(get_Attribute_Value(l_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
19680: END IF;
19681: ELSE
19682: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_attribute_value,'_czt','_czn'),'_czc','_czn')||'_'||x_new_element_id);
19683: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
19684: l_old_switcher_xml_id := l_attribute_value;
19685: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
19686: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
19679: REPLACE(REPLACE(get_Attribute_Value(l_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
19680: END IF;
19681: ELSE
19682: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_attribute_value,'_czt','_czn'),'_czc','_czn')||'_'||x_new_element_id);
19683: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
19684: l_old_switcher_xml_id := l_attribute_value;
19685: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
19686: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
19687: l_switcher_casename := REPLACE(l_switcher_casename,l_attribute_value, REPLACE(REPLACE(l_attribute_value,'_czt','_czn'),'_czc','_czn')||'_'||x_new_element_id);
19691:
19692: set_Attribute(l_xml_node,
19693: G_USER_ATTRIBUTE3_NAME,
19694: l_user_attribute3_value);
19695: END IF; -- end of IF xmldom.getNodeName(l_xml_node)='oa:switcher'
19696: END IF; -- end of IF xmldom.getNodeName(l_xml_node)='ui:case'
19697: --
19698: -- create a new copies for corresponding entities ( captions, rules ,... )
19699: --
19692: set_Attribute(l_xml_node,
19693: G_USER_ATTRIBUTE3_NAME,
19694: l_user_attribute3_value);
19695: END IF; -- end of IF xmldom.getNodeName(l_xml_node)='oa:switcher'
19696: END IF; -- end of IF xmldom.getNodeName(l_xml_node)='ui:case'
19697: --
19698: -- create a new copies for corresponding entities ( captions, rules ,... )
19699: --
19700: copy_Node_Related_Entities(p_ui_def_id => p_ui_def_id,
19708: --
19709: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
19710: --
19711:
19712: IF (xmldom.getNodeName(l_xml_node)='ui:case' AND xmldom.getNodeName(l_parent_xml_node)='oa:switcher')
19713: THEN
19714: l_switcher_xml_id := get_Attribute_Value(l_parent_xml_node, G_ID_ATTRIBUTE);
19715: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
19716: set_Attribute(xmldom.makeElement(l_xml_node),
19712: IF (xmldom.getNodeName(l_xml_node)='ui:case' AND xmldom.getNodeName(l_parent_xml_node)='oa:switcher')
19713: THEN
19714: l_switcher_xml_id := get_Attribute_Value(l_parent_xml_node, G_ID_ATTRIBUTE);
19715: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
19716: set_Attribute(xmldom.makeElement(l_xml_node),
19717: 'name',
19718: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'),'_czc','_czn'));
19719:
19720: handle_UI_CASE_Id(l_xml_node);
19732:
19733: --
19734: -- returns cloned DOM subtree
19735: --
19736: -- l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
19737: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_target_uicont_xml_node);
19738:
19739:
19740: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19736: -- l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
19737: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_target_uicont_xml_node);
19738:
19739:
19740: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19741: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19742: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19743: l_xml_new_node);
19744: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19737: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_target_uicont_xml_node);
19738:
19739:
19740: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19741: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19742: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19743: l_xml_new_node);
19744: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19745: l_new_xml_root_node);
19738:
19739:
19740: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19741: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19742: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19743: l_xml_new_node);
19744: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19745: l_new_xml_root_node);
19746:
19740: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19741: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19742: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19743: l_xml_new_node);
19744: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19745: l_new_xml_root_node);
19746:
19747: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
19748:
19743: l_xml_new_node);
19744: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19745: l_new_xml_root_node);
19746:
19747: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
19748:
19749: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
19750: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19751: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19747: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
19748:
19749: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
19750: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19751: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19752:
19753: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19754: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19755: l_xml_new_node);
19749: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
19750: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19751: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19752:
19753: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19754: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19755: l_xml_new_node);
19756: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19757: l_new_xml_root_node);
19750: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19751: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19752:
19753: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19754: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19755: l_xml_new_node);
19756: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19757: l_new_xml_root_node);
19758:
19752:
19753: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19754: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19755: l_xml_new_node);
19756: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19757: l_new_xml_root_node);
19758:
19759: ELSE
19760: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
19756: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19757: l_new_xml_root_node);
19758:
19759: ELSE
19760: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
19761: l_new_xml_root_node);
19762: END IF;
19763:
19764: ELSE
19761: l_new_xml_root_node);
19762: END IF;
19763:
19764: ELSE
19765: l_out_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
19766: l_new_xml_root_node);
19767:
19768: END IF;
19769:
19819: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
19820: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19821: ) IS
19822:
19823: l_template_xmldoc xmldom.DOMDocument;
19824: l_xmldoc xmldom.DOMDocument;
19825: l_template_root_xml_node xmldom.DOMNode;
19826: l_parent_xml_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19820: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
19821: ) IS
19822:
19823: l_template_xmldoc xmldom.DOMDocument;
19824: l_xmldoc xmldom.DOMDocument;
19825: l_template_root_xml_node xmldom.DOMNode;
19826: l_parent_xml_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19821: ) IS
19822:
19823: l_template_xmldoc xmldom.DOMDocument;
19824: l_xmldoc xmldom.DOMDocument;
19825: l_template_root_xml_node xmldom.DOMNode;
19826: l_parent_xml_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19829: l_target_uicont_xml_node xmldom.DOMNode;
19822:
19823: l_template_xmldoc xmldom.DOMDocument;
19824: l_xmldoc xmldom.DOMDocument;
19825: l_template_root_xml_node xmldom.DOMNode;
19826: l_parent_xml_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19829: l_target_uicont_xml_node xmldom.DOMNode;
19830: l_new_xml_root_node xmldom.DOMNode;
19823: l_template_xmldoc xmldom.DOMDocument;
19824: l_xmldoc xmldom.DOMDocument;
19825: l_template_root_xml_node xmldom.DOMNode;
19826: l_parent_xml_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19829: l_target_uicont_xml_node xmldom.DOMNode;
19830: l_new_xml_root_node xmldom.DOMNode;
19831: l_xml_node xmldom.DOMNode;
19824: l_xmldoc xmldom.DOMDocument;
19825: l_template_root_xml_node xmldom.DOMNode;
19826: l_parent_xml_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19829: l_target_uicont_xml_node xmldom.DOMNode;
19830: l_new_xml_root_node xmldom.DOMNode;
19831: l_xml_node xmldom.DOMNode;
19832: l_stacklayout_node xmldom.DOMNode;
19825: l_template_root_xml_node xmldom.DOMNode;
19826: l_parent_xml_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19829: l_target_uicont_xml_node xmldom.DOMNode;
19830: l_new_xml_root_node xmldom.DOMNode;
19831: l_xml_node xmldom.DOMNode;
19832: l_stacklayout_node xmldom.DOMNode;
19833: l_xml_new_node xmldom.DOMNode;
19826: l_parent_xml_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19829: l_target_uicont_xml_node xmldom.DOMNode;
19830: l_new_xml_root_node xmldom.DOMNode;
19831: l_xml_node xmldom.DOMNode;
19832: l_stacklayout_node xmldom.DOMNode;
19833: l_xml_new_node xmldom.DOMNode;
19834: l_xml_uicont_node xmldom.DOMNode;
19827: l_temp_parent_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19829: l_target_uicont_xml_node xmldom.DOMNode;
19830: l_new_xml_root_node xmldom.DOMNode;
19831: l_xml_node xmldom.DOMNode;
19832: l_stacklayout_node xmldom.DOMNode;
19833: l_xml_new_node xmldom.DOMNode;
19834: l_xml_uicont_node xmldom.DOMNode;
19835: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19828: l_out_xml_node xmldom.DOMNode;
19829: l_target_uicont_xml_node xmldom.DOMNode;
19830: l_new_xml_root_node xmldom.DOMNode;
19831: l_xml_node xmldom.DOMNode;
19832: l_stacklayout_node xmldom.DOMNode;
19833: l_xml_new_node xmldom.DOMNode;
19834: l_xml_uicont_node xmldom.DOMNode;
19835: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19836: l_xml_switcher_id VARCHAR2(255);
19829: l_target_uicont_xml_node xmldom.DOMNode;
19830: l_new_xml_root_node xmldom.DOMNode;
19831: l_xml_node xmldom.DOMNode;
19832: l_stacklayout_node xmldom.DOMNode;
19833: l_xml_new_node xmldom.DOMNode;
19834: l_xml_uicont_node xmldom.DOMNode;
19835: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19836: l_xml_switcher_id VARCHAR2(255);
19837: l_switcher_element_id VARCHAR2(255);
19830: l_new_xml_root_node xmldom.DOMNode;
19831: l_xml_node xmldom.DOMNode;
19832: l_stacklayout_node xmldom.DOMNode;
19833: l_xml_new_node xmldom.DOMNode;
19834: l_xml_uicont_node xmldom.DOMNode;
19835: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19836: l_xml_switcher_id VARCHAR2(255);
19837: l_switcher_element_id VARCHAR2(255);
19838: l_old_ui_element_id VARCHAR2(255);
19831: l_xml_node xmldom.DOMNode;
19832: l_stacklayout_node xmldom.DOMNode;
19833: l_xml_new_node xmldom.DOMNode;
19834: l_xml_uicont_node xmldom.DOMNode;
19835: l_stacklayout_uicont_xml_node xmldom.DOMNode;
19836: l_xml_switcher_id VARCHAR2(255);
19837: l_switcher_element_id VARCHAR2(255);
19838: l_old_ui_element_id VARCHAR2(255);
19839: l_new_ui_element_id VARCHAR2(255);
19838: l_old_ui_element_id VARCHAR2(255);
19839: l_new_ui_element_id VARCHAR2(255);
19840: l_user_attribute3_value VARCHAR2(4000);
19841: l_switcher_casename VARCHAR2(255);
19842: l_child_nodes_tbl xmldom.DOMNodeList;
19843: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19844: l_target_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
19845: l_attribute_value VARCHAR2(255);
19846: l_length NUMBER;
19875: -- create UI Template in JRAD repository
19876: --
19877: l_template_xmldoc := parse_JRAD_Document(p_doc_full_name => l_template_jrad_doc);
19878:
19879: IF xmldom.isNull(l_template_xmldoc) THEN
19880: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19881: p_token_name => 'UI_TEMPLATE',
19882: p_token_value => l_template_jrad_doc,
19883: p_fatal_error => TRUE);
19886: END IF;
19887:
19888: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_target_template_jrad_doc);
19889:
19890: IF xmldom.isNull(l_xmldoc) THEN
19891: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
19892: p_token_name => 'UI_TEMPLATE',
19893: p_token_value => l_template_jrad_doc,
19894: p_fatal_error => TRUE);
19895: RAISE WRONG_UI_TEMPLATE;
19896: END IF;
19897:
19898: IF p_parent_element_id IS NULL THEN
19899: l_parent_xml_node := xmldom.makeNode(xmldom.getDocumentElement(l_xmldoc));
19900: ELSE
19901: l_parent_xml_node := find_XML_Node_By_Attribute(p_subtree_doc => l_xmldoc,
19902: p_attribute_name => G_ID_ATTRIBUTE,
19903: p_attribute_value => p_parent_element_id);
19904: END IF;
19905:
19906: l_target_uicont_xml_node := getUIContents(l_parent_xml_node,G_YES_FLAG);
19907:
19908: l_template_root_xml_node := xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
19909:
19910: x_new_element_id := get_Element_Id();
19911:
19912: l_new_ui_element_id := x_new_element_id;
19914: set_Attribute(l_template_root_xml_node,
19915: G_ID_ATTRIBUTE,
19916: x_new_element_id);
19917:
19918: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
19919: l_length := xmldom.getLength(l_child_nodes_tbl);
19920: IF (l_length > 0) THEN
19921: FOR k IN 0..l_length-1
19922: LOOP
19915: G_ID_ATTRIBUTE,
19916: x_new_element_id);
19917:
19918: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
19919: l_length := xmldom.getLength(l_child_nodes_tbl);
19920: IF (l_length > 0) THEN
19921: FOR k IN 0..l_length-1
19922: LOOP
19923: --
19922: LOOP
19923: --
19924: -- get next child DOM node
19925: --
19926: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
19927:
19928: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
19929: l_new_ui_element_id := l_attribute_value||'_'||x_new_element_id;
19930:
19969:
19970: --
19971: -- returns cloned DOM subtree
19972: --
19973: -- l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
19974: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_parent_xml_node);
19975:
19976:
19977: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19973: -- l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
19974: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_parent_xml_node);
19975:
19976:
19977: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19978: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19979: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19980: l_xml_new_node);
19981: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19974: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_parent_xml_node);
19975:
19976:
19977: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19978: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19979: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19980: l_xml_new_node);
19981: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19982: l_new_xml_root_node);
19975:
19976:
19977: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19978: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19979: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19980: l_xml_new_node);
19981: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19982: l_new_xml_root_node);
19983: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
19977: IF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)<>'ui:case' THEN
19978: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19979: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19980: l_xml_new_node);
19981: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19982: l_new_xml_root_node);
19983: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
19984: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
19985: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19979: l_xml_uicont_node := xmldom.appendChild(l_parent_xml_node,
19980: l_xml_new_node);
19981: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19982: l_new_xml_root_node);
19983: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
19984: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
19985: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19986: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19987:
19982: l_new_xml_root_node);
19983: ELSIF xmldom.IsNull(l_target_uicont_xml_node) AND xmldom.getNodeName(l_parent_xml_node)='ui:case' THEN
19984: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
19985: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19986: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19987:
19988: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19989: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19990: l_xml_new_node);
19984: l_stacklayout_node := findChildXMLTag(l_parent_xml_node, 'oa:stackLayout');
19985: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19986: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19987:
19988: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19989: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19990: l_xml_new_node);
19991: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19992: l_new_xml_root_node);
19985: l_stacklayout_uicont_xml_node := getUIContents(l_stacklayout_node, G_YES_FLAG);
19986: IF xmldom.IsNull(l_stacklayout_uicont_xml_node) THEN
19987:
19988: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19989: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19990: l_xml_new_node);
19991: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19992: l_new_xml_root_node);
19993:
19987:
19988: l_xml_new_node := xmldom.makeNode(xmldom.createElement(l_xmldoc, 'ui:contents'));
19989: l_xml_uicont_node := xmldom.appendChild(l_stacklayout_node,
19990: l_xml_new_node);
19991: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19992: l_new_xml_root_node);
19993:
19994: ELSE
19995: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
19991: l_out_xml_node := xmldom.appendChild(l_xml_uicont_node,
19992: l_new_xml_root_node);
19993:
19994: ELSE
19995: l_out_xml_node := xmldom.appendChild(l_stacklayout_uicont_xml_node,
19996: l_new_xml_root_node);
19997: END IF;
19998:
19999: ELSE
19996: l_new_xml_root_node);
19997: END IF;
19998:
19999: ELSE
20000: l_out_xml_node := xmldom.appendChild(l_target_uicont_xml_node,
20001: l_new_xml_root_node);
20002: END IF;
20003:
20004: refresh_Templ_Ref_Counts(l_xmldoc, p_target_template_ui_def_id, p_target_template_id);
20061: x_msg_count OUT NOCOPY NUMBER, -- number of error messages
20062: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20063: ) IS
20064:
20065: l_template_xmldoc xmldom.DOMDocument;
20066: l_xmldoc xmldom.DOMDocument;
20067: l_template_root_xml_node xmldom.DOMNode;
20068: l_out_xml_node xmldom.DOMNode;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20062: x_msg_data OUT NOCOPY VARCHAR2 -- string which contains error messages
20063: ) IS
20064:
20065: l_template_xmldoc xmldom.DOMDocument;
20066: l_xmldoc xmldom.DOMDocument;
20067: l_template_root_xml_node xmldom.DOMNode;
20068: l_out_xml_node xmldom.DOMNode;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20070: l_new_xml_root_node xmldom.DOMNode;
20063: ) IS
20064:
20065: l_template_xmldoc xmldom.DOMDocument;
20066: l_xmldoc xmldom.DOMDocument;
20067: l_template_root_xml_node xmldom.DOMNode;
20068: l_out_xml_node xmldom.DOMNode;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20070: l_new_xml_root_node xmldom.DOMNode;
20071: l_xml_node xmldom.DOMNode;
20064:
20065: l_template_xmldoc xmldom.DOMDocument;
20066: l_xmldoc xmldom.DOMDocument;
20067: l_template_root_xml_node xmldom.DOMNode;
20068: l_out_xml_node xmldom.DOMNode;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20070: l_new_xml_root_node xmldom.DOMNode;
20071: l_xml_node xmldom.DOMNode;
20072: l_root_xml_node xmldom.DOMNode;
20065: l_template_xmldoc xmldom.DOMDocument;
20066: l_xmldoc xmldom.DOMDocument;
20067: l_template_root_xml_node xmldom.DOMNode;
20068: l_out_xml_node xmldom.DOMNode;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20070: l_new_xml_root_node xmldom.DOMNode;
20071: l_xml_node xmldom.DOMNode;
20072: l_root_xml_node xmldom.DOMNode;
20073: l_parent_xml_node xmldom.DOMNode;
20066: l_xmldoc xmldom.DOMDocument;
20067: l_template_root_xml_node xmldom.DOMNode;
20068: l_out_xml_node xmldom.DOMNode;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20070: l_new_xml_root_node xmldom.DOMNode;
20071: l_xml_node xmldom.DOMNode;
20072: l_root_xml_node xmldom.DOMNode;
20073: l_parent_xml_node xmldom.DOMNode;
20074: l_child_nodes_tbl xmldom.DOMNodeList;
20067: l_template_root_xml_node xmldom.DOMNode;
20068: l_out_xml_node xmldom.DOMNode;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20070: l_new_xml_root_node xmldom.DOMNode;
20071: l_xml_node xmldom.DOMNode;
20072: l_root_xml_node xmldom.DOMNode;
20073: l_parent_xml_node xmldom.DOMNode;
20074: l_child_nodes_tbl xmldom.DOMNodeList;
20075: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20068: l_out_xml_node xmldom.DOMNode;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20070: l_new_xml_root_node xmldom.DOMNode;
20071: l_xml_node xmldom.DOMNode;
20072: l_root_xml_node xmldom.DOMNode;
20073: l_parent_xml_node xmldom.DOMNode;
20074: l_child_nodes_tbl xmldom.DOMNodeList;
20075: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20076: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20069: l_curr_parent_xml_node xmldom.DOMNode;
20070: l_new_xml_root_node xmldom.DOMNode;
20071: l_xml_node xmldom.DOMNode;
20072: l_root_xml_node xmldom.DOMNode;
20073: l_parent_xml_node xmldom.DOMNode;
20074: l_child_nodes_tbl xmldom.DOMNodeList;
20075: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20076: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20077: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
20070: l_new_xml_root_node xmldom.DOMNode;
20071: l_xml_node xmldom.DOMNode;
20072: l_root_xml_node xmldom.DOMNode;
20073: l_parent_xml_node xmldom.DOMNode;
20074: l_child_nodes_tbl xmldom.DOMNodeList;
20075: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20076: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20077: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
20078: l_node_map_tbl xmldom.DOMNamedNodeMap;
20074: l_child_nodes_tbl xmldom.DOMNodeList;
20075: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20076: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20077: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
20078: l_node_map_tbl xmldom.DOMNamedNodeMap;
20079: l_node_attr xmldom.DOMNode;
20080: l_prev_xml_node xmldom.DOMNode;
20081: l_root_attr_names_tbl varchar_tbl_type;
20082: l_root_attr_values_tbl varchar_tbl_type;
20075: l_template_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20076: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20077: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
20078: l_node_map_tbl xmldom.DOMNamedNodeMap;
20079: l_node_attr xmldom.DOMNode;
20080: l_prev_xml_node xmldom.DOMNode;
20081: l_root_attr_names_tbl varchar_tbl_type;
20082: l_root_attr_values_tbl varchar_tbl_type;
20083:
20076: l_jrad_doc CZ_UI_PAGES.jrad_doc%TYPE;
20077: l_ui_node CZ_UI_PAGE_ELEMENTS%ROWTYPE;
20078: l_node_map_tbl xmldom.DOMNamedNodeMap;
20079: l_node_attr xmldom.DOMNode;
20080: l_prev_xml_node xmldom.DOMNode;
20081: l_root_attr_names_tbl varchar_tbl_type;
20082: l_root_attr_values_tbl varchar_tbl_type;
20083:
20084: l_root_element_signature_id NUMBER;
20130: Open_Parser();
20131:
20132: l_xmldoc := parse_JRAD_Document(p_doc_full_name => l_jrad_doc);
20133:
20134: IF xmldom.isNull(l_xmldoc) THEN
20135: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20136: p_token_name => 'UI_TEMPLATE',
20137: p_token_value => l_jrad_doc,
20138: p_fatal_error => TRUE);
20256:
20257:
20258: l_template_xmldoc := parse_JRAD_Document(p_doc_full_name => l_template_jrad_doc);
20259:
20260: IF xmldom.isNull(l_template_xmldoc) THEN
20261: add_Error_Message(p_message_name => 'CZ_WRONG_UI_TEMPLATE',
20262: p_token_name => 'UI_TEMPLATE',
20263: p_token_value => l_template_jrad_doc,
20264: p_fatal_error => TRUE);
20264: p_fatal_error => TRUE);
20265: RAISE WRONG_UI_TEMPLATE;
20266: END IF;
20267:
20268: l_parent_xml_node := xmldom.getParentNode(l_root_xml_node);
20269: l_prev_xml_node := xmldom.getNextSibling(l_root_xml_node);
20270:
20271: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
20272:
20265: RAISE WRONG_UI_TEMPLATE;
20266: END IF;
20267:
20268: l_parent_xml_node := xmldom.getParentNode(l_root_xml_node);
20269: l_prev_xml_node := xmldom.getNextSibling(l_root_xml_node);
20270:
20271: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
20272:
20273: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
20267:
20268: l_parent_xml_node := xmldom.getParentNode(l_root_xml_node);
20269: l_prev_xml_node := xmldom.getNextSibling(l_root_xml_node);
20270:
20271: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
20272:
20273: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
20274: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
20275: l_length := xmldom.getLength(l_node_map_tbl);
20269: l_prev_xml_node := xmldom.getNextSibling(l_root_xml_node);
20270:
20271: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
20272:
20273: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
20274: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
20275: l_length := xmldom.getLength(l_node_map_tbl);
20276: --
20277: -- loop through attributes
20270:
20271: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
20272:
20273: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
20274: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
20275: l_length := xmldom.getLength(l_node_map_tbl);
20276: --
20277: -- loop through attributes
20278: --
20271: l_template_root_xml_node :=xmldom.makeNode(xmldom.getDocumentElement(l_template_xmldoc));
20272:
20273: l_node_map_tbl := xmldom.getAttributes(l_root_xml_node);
20274: IF (xmldom.isNull(l_node_map_tbl) = FALSE) THEN
20275: l_length := xmldom.getLength(l_node_map_tbl);
20276: --
20277: -- loop through attributes
20278: --
20279: FOR i IN 0 .. l_length - 1
20277: -- loop through attributes
20278: --
20279: FOR i IN 0 .. l_length - 1
20280: LOOP
20281: l_node_attr := xmldom.item(l_node_map_tbl, i);
20282: IF xmldom.getNodeName(l_node_attr) <> 'extends' THEN
20283: l_index := l_root_attr_names_tbl.COUNT + 1;
20284: l_root_attr_names_tbl(l_index) := xmldom.getNodeName(l_node_attr);
20285: l_root_attr_values_tbl(l_index):= xmldom.getNodeValue(l_node_attr);
20278: --
20279: FOR i IN 0 .. l_length - 1
20280: LOOP
20281: l_node_attr := xmldom.item(l_node_map_tbl, i);
20282: IF xmldom.getNodeName(l_node_attr) <> 'extends' THEN
20283: l_index := l_root_attr_names_tbl.COUNT + 1;
20284: l_root_attr_names_tbl(l_index) := xmldom.getNodeName(l_node_attr);
20285: l_root_attr_values_tbl(l_index):= xmldom.getNodeValue(l_node_attr);
20286: END IF;
20280: LOOP
20281: l_node_attr := xmldom.item(l_node_map_tbl, i);
20282: IF xmldom.getNodeName(l_node_attr) <> 'extends' THEN
20283: l_index := l_root_attr_names_tbl.COUNT + 1;
20284: l_root_attr_names_tbl(l_index) := xmldom.getNodeName(l_node_attr);
20285: l_root_attr_values_tbl(l_index):= xmldom.getNodeValue(l_node_attr);
20286: END IF;
20287: END LOOP;
20288: END IF;
20281: l_node_attr := xmldom.item(l_node_map_tbl, i);
20282: IF xmldom.getNodeName(l_node_attr) <> 'extends' THEN
20283: l_index := l_root_attr_names_tbl.COUNT + 1;
20284: l_root_attr_names_tbl(l_index) := xmldom.getNodeName(l_node_attr);
20285: l_root_attr_values_tbl(l_index):= xmldom.getNodeValue(l_node_attr);
20286: END IF;
20287: END LOOP;
20288: END IF;
20289:
20286: END IF;
20287: END LOOP;
20288: END IF;
20289:
20290: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
20291: l_length := xmldom.getLength(l_child_nodes_tbl);
20292: IF (l_length > 0) THEN
20293: FOR k IN 0..l_length-1
20294: LOOP
20287: END LOOP;
20288: END IF;
20289:
20290: l_child_nodes_tbl := xmldom.getElementsByTagName(l_template_xmldoc, '*');
20291: l_length := xmldom.getLength(l_child_nodes_tbl);
20292: IF (l_length > 0) THEN
20293: FOR k IN 0..l_length-1
20294: LOOP
20295: --
20294: LOOP
20295: --
20296: -- get next child DOM node
20297: --
20298: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
20299: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
20300:
20301: IF k > 0 THEN
20302:
20295: --
20296: -- get next child DOM node
20297: --
20298: l_xml_node := xmldom.item(l_child_nodes_tbl, k);
20299: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
20300:
20301: IF k > 0 THEN
20302:
20303: l_xml_node_name := xmldom.getNodeName(l_xml_node);
20299: l_curr_parent_xml_node := xmldom.getParentNode(l_xml_node);
20300:
20301: IF k > 0 THEN
20302:
20303: l_xml_node_name := xmldom.getNodeName(l_xml_node);
20304:
20305: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
20306:
20307: IF l_attribute_value IS NOT NULL THEN --???
20305: l_attribute_value := get_Attribute_Value(l_xml_node, G_ID_ATTRIBUTE);
20306:
20307: IF l_attribute_value IS NOT NULL THEN --???
20308: l_new_attribute_value := handle_JRAD_Id(l_attribute_value,l_new_id_attribute);
20309: set_Attribute(xmldom.makeElement(l_xml_node),G_ID_ATTRIBUTE,REPLACE(REPLACE(l_new_attribute_value,'_czt','_czn'),'_czc','_czn'));
20310: END IF;
20311:
20312: l_ancestor_node := get_Attribute_Value(l_xml_node,
20313: 'ancestorNode');
20313: 'ancestorNode');
20314: IF l_ancestor_node IS NOT NULL THEN
20315:
20316: l_hgrid_element_id := find_Element_Id_Of_XMLTag(l_xml_node, 'oa:tree');
20317: IF NOT(xmldom.IsNull(l_xml_node)) THEN
20318: l_ancestor_node := l_jrad_doc||'.'||l_hgrid_element_id;
20319:
20320: set_Attribute(l_xml_node,
20321: 'ancestorNode',
20325:
20326: --
20327: -- set value of user attribute "switcherDefaultCaseName" to new jrad id of
20328: --
20329: IF xmldom.getNodeName(l_xml_node)='oa:switcher' THEN
20330: l_old_switcher_xml_id := l_attribute_value;
20331: l_user_attribute3_value := get_Attribute_Value(l_xml_node, G_USER_ATTRIBUTE3_NAME);
20332: l_switcher_casename := get_User_Attribute(l_user_attribute3_value ,'switcherDefaultCaseName');
20333: l_switcher_casename := REPLACE(REPLACE(REPLACE(l_switcher_casename,l_attribute_value, l_new_attribute_value),'_czt','_czn'),'_czc','_czn');
20342:
20343: --
20344: -- set value of attribute "name" of
20345: --
20346: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
20347: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
20348: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
20349: set_Attribute(xmldom.makeElement(l_xml_node),
20350: 'name',
20345: --
20346: IF (l_xml_node_name='ui:case' AND xmldom.getNodeName(l_curr_parent_xml_node)='oa:switcher') THEN
20347: l_switcher_xml_id := get_Attribute_Value(l_curr_parent_xml_node, G_ID_ATTRIBUTE);
20348: l_uicase_name := get_Attribute_Value(l_xml_node, 'name');
20349: set_Attribute(xmldom.makeElement(l_xml_node),
20350: 'name',
20351: REPLACE(REPLACE(REPLACE(l_uicase_name,l_old_switcher_xml_id,l_switcher_xml_id),'_czt','_czn'),'_czc','_czn'));
20352: handle_UI_CASE_Id(l_xml_node);
20353: END IF;
20356: -- if current tag is
20357: -- then replace old id with new one
20358: --
20359: IF (l_xml_node_name='oa:stackLayout' AND
20360: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
20361: set_Attribute(xmldom.makeElement(l_xml_node),
20362: G_ID_ATTRIBUTE,
20363: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
20364: END IF;
20357: -- then replace old id with new one
20358: --
20359: IF (l_xml_node_name='oa:stackLayout' AND
20360: xmldom.getNodeName(l_curr_parent_xml_node)='ui:case') AND l_attribute_value IS NOT NULL THEN
20361: set_Attribute(xmldom.makeElement(l_xml_node),
20362: G_ID_ATTRIBUTE,
20363: REPLACE(REPLACE(get_Attribute_Value(l_curr_parent_xml_node, 'name'),'_czt','_czn'),'_czc','_czn'));
20364: END IF;
20365:
20383: END IF; -- end of IF k > 0 THEN
20384: END LOOP; -- end of FOR k IN 0..l_length-1
20385: END IF; -- end of IF (l_length > 0) THEN
20386:
20387: l_out_xml_node:=xmldom.removeChild(l_parent_xml_node,l_root_xml_node);
20388:
20389: --
20390: -- remove common attributes of container and subtree
20391: --
20393:
20394: --
20395: -- returns cloned DOM subtree
20396: --
20397: --l_new_xml_root_node := xmldom.cloneNode(l_template_root_xml_node, TRUE);
20398: l_new_xml_root_node := cloneNode(l_template_root_xml_node, l_root_xml_node);
20399:
20400: l_out_xml_node := insert_before(l_parent_xml_node,l_new_xml_root_node,l_prev_xml_node);
20401: