Subversion Repositories DevTools

Rev

Rev 1376 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1376 Rev 4301
Line 25... Line 25...
25 
<!--#include file="_access_control_login.asp"-->
 25 
<!--#include file="_access_control_login.asp"-->
26 
<!--#include file="_access_control_general.asp"-->
 26 
<!--#include file="_access_control_general.asp"-->
27 
<!--#include file="_access_control_project.asp"-->
 27 
<!--#include file="_access_control_project.asp"-->
28 
<%
 28 
<%
29 
'------------ Variable Definition -------------
 29 
'------------ Variable Definition -------------
30 
Dim parFromRtag_id
 30 
Dim parFromPv_id
31 
Dim parToRtag_id
 31 
Dim parToRtag_id
32 
'------------ Constants Declaration -----------
 32 
'------------ Constants Declaration -----------
33 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
34 
parFromRtag_id = QStrPar("FROMrtag_id")
 34 
parFromPv_id = QStrPar("FromPv_id")
35 
parToRtag_id = QStrPar("ToRtag_id")
 35 
parToRtag_id = QStrPar("rtag_id")
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
%>
 37 
%>
38 
<%
 38 
<%
39 
Function Import_Dependency ( NNFromRtag_id, NNToRtag_id )
 39 
Function Import_Dependency ( NNFromPv_id, NNToRtag_id )
40
- 
 
41 
	On Error Resume Next
 40 
    Dim sqlStr, PvId, ii
42 
	objEH.ErrorRedirect = TRUE
 41 
    Dim ImportList, entry,  keys
43
- 
 
44
- 
 
45 
	OraDatabase.Parameters.Add "PV_ID", NNFromRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
42 
    Set ImportList = CreateObject ("Scripting.Dictionary")
46 
	OraDatabase.Parameters.Add "RTAG_ID", NNToRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
47 
	OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
48
43 
 
49
- 
 
50 
	objEH.TryORA ( OraSession )
 - 
 
51
44 
    '
52 
	' Remove old Work in Progress Contents
 45 
    '   Generate a list of packages to be added
53 
	OraDatabase.ExecuteSQL _
 - 
 
54 
	"INSERT INTO RELEASE_CONTENT rc ( RTAG_ID, PV_ID, BASE_VIEW_ID, INSERT_STAMP, INSERTOR_ID, PKG_STATE )"&_
 46 
    '   The union will add the base package to the set - if its not present
55 
	"SELECT DISTINCT"&_
 - 
 
56 
 	"  :RTAG_ID,"&_
 - 
 
57 
 	"   qry.DPV_ID,"&_
 - 
 
58 
 	"   7,"&_
 47 
    '
59 
 	"   ORA_SYSDATE,"&_
 48 
	sqlStr = "SELECT DISTINCT qry.DPV_ID"&_
60 
 	"   1,"&_
 - 
 
61 
 	"   0"&_
 - 
 
62 
    " FROM ("&_
 49 
    " FROM ("&_
63 
 	"		SELECT dep.*,"&_
 - 
 
64 
 	"			   LEVEL AS LEVEL_NUM"&_
 50 
 	"		SELECT dep.PV_ID, dep.DPV_ID, LEVEL AS LEVEL_NUM"&_
65 
 	"		  FROM PACKAGE_DEPENDENCIES dep"&_
 51 
 	"		  FROM PACKAGE_DEPENDENCIES dep"&_
66 
 	"		START WITH dep.PV_ID IN ( :PV_ID ) "&_
 52 
 	"		START WITH dep.PV_ID IN ( :PV_ID ) "&_
67 
 	"		CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
 53 
 	"		CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
- 
 
 54 
    "       UNION" &_
- 
 
 55 
    "       SELECT" &_
- 
 
 56 
    "           TO_NUMBER(:PV_ID), TO_NUMBER(:PV_ID), TO_NUMBER(0) " &_
- 
 
 57 
    "       FROM DUAL" &_
68 
 	"	) qry,"&_
 58 
 	"	) qry,"&_
69 
 	"	PACKAGES pkg,"&_
 59 
 	"	PACKAGES pkg,"&_
70 
	"	PACKAGE_VERSIONS pv"&_
 60 
	"	PACKAGE_VERSIONS pv"&_
71 
 	" WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"&_
 61 
 	" WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"&_
72 
	" and qry.dpv_id NOT IN (select pv_id from release_content where rtag_id = :RTAG_ID)"
 62 
	" and qry.dpv_id NOT IN (select pv_id from release_content where rtag_id = :RTAG_ID)"
73 
 
 63 
 
- 
 
 64 
    On Error Resume Next
- 
 
 65 
	objEH.ErrorRedirect = TRUE
- 
 
 66 
    objEH.TryORA ( OraSession )
74 
 
 67 
 
75
- 
 
76 
 
 - 
 
- 
 
 68 
	OraDatabase.Parameters.Add "PV_ID",   NNFromPv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 69 
	OraDatabase.Parameters.Add "RTAG_ID", NNToRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 70 
	OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 71 
    OraDatabase.Parameters.Add "OPERATION","A", ORAPARM_INPUT, ORATYPE_CHAR
77 
 
 72 
 
- 
 
 73 
    Dim rsTemp
- 
 
 74 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlStr, cint(0))
- 
 
 75 
    If Err.Number = 0 Then
- 
 
 76 
        While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
- 
 
 77 
           entry = rsTemp("DPV_ID")
- 
 
 78 
           If NOT ImportList.Exists(entry) Then
- 
 
 79 
                ImportList.add entry, 1
- 
 
 80 
           End If
- 
 
 81 
           rsTemp.MoveNext
- 
 
 82 
        WEnd
78
83 
    End If
- 
 
 84 
	rsTemp.Close
79 
	objEH.CatchORA ( OraSession )
 85 
	Set rsTemp = nothing
80
86 
 
- 
 
 87 
    '
- 
 
 88 
    '   Add each entry into the 'Pending Tab'
- 
 
 89 
    '
- 
 
 90 
    keys = ImportList.Keys
- 
 
 91 
    For ii = 0 to ImportList.Count - 1
- 
 
 92 
        entry = keys(ii)
- 
 
 93 
	    OraDatabase.Parameters.Remove "PV_ID"
- 
 
 94 
	    OraDatabase.Parameters.Add "PV_ID", entry, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 95 
        If Err.Number = 0 Then
- 
 
 96 
            OraDatabase.ExecuteSQL _
- 
 
 97 
            "BEGIN  "&_
- 
 
 98 
            "  PK_PLANNED.MERGE_PACKAGE ( :PV_ID, 7, :RTAG_ID, :USER_ID, :OPERATION );  "&_
- 
 
 99 
            "END;"
- 
 
 100 
        End If
- 
 
 101 
    Next
81
102
- 
 
 103 
	objEH.CatchORA ( OraSession )
82
104
83 
	OraDatabase.Parameters.Remove "PV_ID"
 105 
	OraDatabase.Parameters.Remove "PV_ID"
84 
	OraDatabase.Parameters.Remove "RTAG_ID"
 106 
	OraDatabase.Parameters.Remove "RTAG_ID"
85 
	OraDatabase.Parameters.Remove "USER_ID"
 107 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 108 
	OraDatabase.Parameters.Remove "OPERATION"
- 
 
 109 
 
- 
 
 110 
	Set ImportList = nothing
- 
 
 111 
 
86 
End Function
 112 
End Function
87 
 
 113 
 
88 
%>
 114 
%>
89 
<%
 115 
<%
90 
'-----------------------  MAIN LINE  ---------------------------
 116 
'-----------------------  MAIN LINE  ---------------------------
- 
 
 117 
 
91 
'--- Process submition ---
 118 
'--- Process submition ---
92 
If (parFromRtag_id <> "") AND (parToRtag_id <> "") Then
 119 
If (parFromPv_id <> "") AND (parToRtag_id <> "") Then
93 
	' All mandatory parameters FOUND
 120 
	' All mandatory parameters FOUND
94 
 
 121 
 
95
- 
 
96 
	'COMPLETE THE REQUEST...
 122 
	'COMPLETE THE REQUEST...
97 
	Call Import_Dependency ( parFromRtag_id, parToRtag_id )
 123 
	Call Import_Dependency ( parFromPv_id, parToRtag_id )
98
- 
 
99
124
100 
	If objEH.Finally Then
 125 
	If objEH.Finally Then
101 
		Response.Redirect("dependencies.asp?rtag_id="& parToRtag_id )
 126 
		Response.Redirect("dependencies.asp?rtag_id="& parToRtag_id )
102 
	End If
 127 
	End If
103
128