[Home] [Help]
401: -- Sorts the layers into precedence order, from lowest to highest
402: -- Currently using insertion sort. At the same time, sort customization
403: -- documents to match layer precedence.
404: --
405: PROCEDURE sortLayersWithDocs(lyrTypes IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
406: lyrValues IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
407: custDocs IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
408: IS
409: i NUMBER;
402: -- Currently using insertion sort. At the same time, sort customization
403: -- documents to match layer precedence.
404: --
405: PROCEDURE sortLayersWithDocs(lyrTypes IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
406: lyrValues IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
407: custDocs IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
408: IS
409: i NUMBER;
410: j NUMBER;
403: -- documents to match layer precedence.
404: --
405: PROCEDURE sortLayersWithDocs(lyrTypes IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
406: lyrValues IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
407: custDocs IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
408: IS
409: i NUMBER;
410: j NUMBER;
411: currType VARCHAR2(50);
411: currType VARCHAR2(50);
412: currValue VARCHAR2(100);
413: currDoc VARCHAR2(512);
414: currPrecedence NUMBER;
415: typeArray jdr_stringArray := lyrTypes;
416: valArray jdr_stringArray := lyrValues;
417: docArray jdr_stringArray := custDocs;
418: BEGIN
419: IF typeArray.COUNT > 1
412: currValue VARCHAR2(100);
413: currDoc VARCHAR2(512);
414: currPrecedence NUMBER;
415: typeArray jdr_stringArray := lyrTypes;
416: valArray jdr_stringArray := lyrValues;
417: docArray jdr_stringArray := custDocs;
418: BEGIN
419: IF typeArray.COUNT > 1
420: THEN
413: currDoc VARCHAR2(512);
414: currPrecedence NUMBER;
415: typeArray jdr_stringArray := lyrTypes;
416: valArray jdr_stringArray := lyrValues;
417: docArray jdr_stringArray := custDocs;
418: BEGIN
419: IF typeArray.COUNT > 1
420: THEN
421: FOR i IN 2..typeArray.COUNT LOOP
567: RETURN(portletRef);
568: END;
569:
570: PROCEDURE getLayers(baseDoc IN VARCHAR2,
571: lyrTypes IN jdr_stringArray,
572: lyrValues IN jdr_stringArray,
573: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
574: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
575: activeOnly IN BOOLEAN DEFAULT FALSE)
568: END;
569:
570: PROCEDURE getLayers(baseDoc IN VARCHAR2,
571: lyrTypes IN jdr_stringArray,
572: lyrValues IN jdr_stringArray,
573: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
574: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
575: activeOnly IN BOOLEAN DEFAULT FALSE)
576: IS
569:
570: PROCEDURE getLayers(baseDoc IN VARCHAR2,
571: lyrTypes IN jdr_stringArray,
572: lyrValues IN jdr_stringArray,
573: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
574: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
575: activeOnly IN BOOLEAN DEFAULT FALSE)
576: IS
577: valid jdr_stringArray := jdr_stringArray(null);
570: PROCEDURE getLayers(baseDoc IN VARCHAR2,
571: lyrTypes IN jdr_stringArray,
572: lyrValues IN jdr_stringArray,
573: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
574: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
575: activeOnly IN BOOLEAN DEFAULT FALSE)
576: IS
577: valid jdr_stringArray := jdr_stringArray(null);
578: lvals jdr_stringArray := jdr_stringArray(null);
573: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
574: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
575: activeOnly IN BOOLEAN DEFAULT FALSE)
576: IS
577: valid jdr_stringArray := jdr_stringArray(null);
578: lvals jdr_stringArray := jdr_stringArray(null);
579: docs jdr_stringArray := jdr_stringArray(null);
580: custName VARCHAR2(512);
581: tmpCustName VARCHAR2(512);
574: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
575: activeOnly IN BOOLEAN DEFAULT FALSE)
576: IS
577: valid jdr_stringArray := jdr_stringArray(null);
578: lvals jdr_stringArray := jdr_stringArray(null);
579: docs jdr_stringArray := jdr_stringArray(null);
580: custName VARCHAR2(512);
581: tmpCustName VARCHAR2(512);
582: custDocID NUMBER;
575: activeOnly IN BOOLEAN DEFAULT FALSE)
576: IS
577: valid jdr_stringArray := jdr_stringArray(null);
578: lvals jdr_stringArray := jdr_stringArray(null);
579: docs jdr_stringArray := jdr_stringArray(null);
580: custName VARCHAR2(512);
581: tmpCustName VARCHAR2(512);
582: custDocID NUMBER;
583: cnt NUMBER := 1;
920:
921:
922:
923: PROCEDURE getCustomizationDocs(baseDoc IN VARCHAR2,
924: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
925: IS
926: oldRef VARCHAR2(512);
927: newRef VARCHAR2(512);
928: currDoc VARCHAR2(512);
933: cntDocs NUMBER := 1;
934: cntLayers NUMBER := 1;
935: layerExists BOOLEAN := FALSE;
936: getOldRefs BOOLEAN := TRUE;
937: docs jdr_stringArray := jdr_stringArray(null);
938: layers jdr_stringArray := jdr_stringArray(null);
939: CURSOR c(custDocLike VARCHAR2, pathName VARCHAR2) IS
940: SELECT jdr_mds_internal.getDocumentName(path_docid)
941: FROM jdr_paths
934: cntLayers NUMBER := 1;
935: layerExists BOOLEAN := FALSE;
936: getOldRefs BOOLEAN := TRUE;
937: docs jdr_stringArray := jdr_stringArray(null);
938: layers jdr_stringArray := jdr_stringArray(null);
939: CURSOR c(custDocLike VARCHAR2, pathName VARCHAR2) IS
940: SELECT jdr_mds_internal.getDocumentName(path_docid)
941: FROM jdr_paths
942: WHERE path_type = 'DOCUMENT' AND
1013: custDocs := docs;
1014: END;
1015:
1016: PROCEDURE getActiveLayers(baseDoc IN VARCHAR2,
1017: lyrTypes IN jdr_stringArray,
1018: lyrValues IN jdr_stringArray,
1019: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
1020: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1021: IS
1014: END;
1015:
1016: PROCEDURE getActiveLayers(baseDoc IN VARCHAR2,
1017: lyrTypes IN jdr_stringArray,
1018: lyrValues IN jdr_stringArray,
1019: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
1020: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1021: IS
1022: BEGIN
1015:
1016: PROCEDURE getActiveLayers(baseDoc IN VARCHAR2,
1017: lyrTypes IN jdr_stringArray,
1018: lyrValues IN jdr_stringArray,
1019: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
1020: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1021: IS
1022: BEGIN
1023: getLayers(baseDoc, lyrTypes, lyrValues, validTypes, custDocs, TRUE);
1016: PROCEDURE getActiveLayers(baseDoc IN VARCHAR2,
1017: lyrTypes IN jdr_stringArray,
1018: lyrValues IN jdr_stringArray,
1019: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
1020: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1021: IS
1022: BEGIN
1023: getLayers(baseDoc, lyrTypes, lyrValues, validTypes, custDocs, TRUE);
1024: END;
1023: getLayers(baseDoc, lyrTypes, lyrValues, validTypes, custDocs, TRUE);
1024: END;
1025:
1026: PROCEDURE getLayers(baseDoc IN VARCHAR2,
1027: lyrTypes IN jdr_stringArray,
1028: lyrValues IN jdr_stringArray,
1029: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
1030: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1031: IS
1024: END;
1025:
1026: PROCEDURE getLayers(baseDoc IN VARCHAR2,
1027: lyrTypes IN jdr_stringArray,
1028: lyrValues IN jdr_stringArray,
1029: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
1030: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1031: IS
1032: BEGIN
1025:
1026: PROCEDURE getLayers(baseDoc IN VARCHAR2,
1027: lyrTypes IN jdr_stringArray,
1028: lyrValues IN jdr_stringArray,
1029: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
1030: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1031: IS
1032: BEGIN
1033: getLayers(baseDoc, lyrTypes, lyrValues, validTypes, custDocs, FALSE);
1026: PROCEDURE getLayers(baseDoc IN VARCHAR2,
1027: lyrTypes IN jdr_stringArray,
1028: lyrValues IN jdr_stringArray,
1029: validTypes OUT NOCOPY /* file.sql.39 change */ jdr_stringArray,
1030: custDocs OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1031: IS
1032: BEGIN
1033: getLayers(baseDoc, lyrTypes, lyrValues, validTypes, custDocs, FALSE);
1034: END;
1036: --
1037: -- Sorts the layers into precedence order, from lowest to highest
1038: -- Currently using insertion sort.
1039: --
1040: PROCEDURE sortLayers(lyrTypes IN OUT NOCOPY /* file.sql.39 change */ jdr_stringArray)
1041: IS
1042: i NUMBER;
1043: j NUMBER;
1044: currLayer VARCHAR2(50);
1042: i NUMBER;
1043: j NUMBER;
1044: currLayer VARCHAR2(50);
1045: currPrecedence NUMBER;
1046: typeArray jdr_stringArray := lyrTypes;
1047: BEGIN
1048: IF typeArray.COUNT > 1
1049: THEN
1050: FOR i IN 2..typeArray.COUNT LOOP