WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/RequestViewContent.asp



Dim sURL
Dim IMG_locked
Dim relContentsSTR
Dim parScriptName
Dim parRtagId
Dim parViewId
Dim parEnvtab
Dim parDview      ' enable/disable   deployment   view.
Dim nOperation
Dim checked
Dim disabled
Dim ReleaseMode
 
 
 
'------------ Constants Declaration -----------
Const LIMG_LOCKED = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"
Const imgAdded     = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Added'>"
Const imgRemoved   = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Removed'>"
'------------ Variable Init -------------------
parScriptName = Request("script_name")
parRtagId = Request("rtag_id")
parViewId = Request("view_id")
parEnvtab = CInt( Request("envtab") )
parDview = "disabled"
'----------------------------------------------
%>
<%
'------------------------------------------------------------------------------------------------------------------------

%>
<%
'------------------------ MAIN LINE ---------------------------------
If (Request("envtab") = "")  OR  (Request("rtag_id") = "")  OR  (Request("view_id") = "")  OR  (Request("script_name") = "") Then
	Response.write "ERROR: Missing Parameters at "& ScriptName
    Response.End
End If
ReleaseMode = GetReleaseMode(parRtagId)
 
'--------------------------------------------------------------------
%>
 
<%
OraDatabase.Parameters.Add "RTAG_ID",   parRtagId, 	ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "VIEW_ID",   parViewId, 	ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "RECORD_SET",NULL, 	    ORAPARM_OUTPUT,ORATYPE_CURSOR
 
 
 
 
' Decide which environment list is to be displayed
Select Case parEnvtab
	Case enumENVTAB_WORK_IN_PROGRESS
		OraDatabase.ExecuteSQL "BEGIN  PK_WORK_IN_PROGRESS.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET );  END;"
 
	Case enumENVTAB_PLANNED
		OraDatabase.ExecuteSQL "BEGIN  PK_PLANNED.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET );  END;"

 
OraDatabase.Parameters.Remove "RTAG_ID"
OraDatabase.Parameters.Remove "VIEW_ID"
OraDatabase.Parameters.Remove "RECORD_SET"
 
 
' Retrun if no records found
If rsView.RecordCount < 1 Then
	relContentsSTR = "No packages found."
End If
 

	' as to why they are present. So, instead of the padlock icon, display the added or removed icon to indicate
	' what the intended action is to be, once the pending item is approved.
	' Obviously, this functionality only applies if viewing the PENDING or ALL environment tabs.
	' With regard to the operation value, A = Added, S = Subtracted
	nOperation = " "
	If (parEnvtab = enumENVTAB_PLANNED OR parEnvtab = enumENVTAB_ALL) Then
		nOperation = rsView.Fields("operation")	' NB. this field is only availble if earlier query was PK_PLANNED.GET_VIEW_CONTENT or PK_ENVIRONMENT.GET_VIEW_CONTENT
		If nOperation = "A" Then
			IMG_locked = imgAdded
		ElseIf nOperation = "S" Then
			IMG_locked = imgRemoved

	relContentsSTR = relContentsSTR & "<tr>" & VBNewLine
 
         If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then
            relContentsSTR = relContentsSTR & "  <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine
         Else
            If ((parDview <> "enable") AND parEnvtab = enumENVTAB_PLANNED) Then
 
               ' if package version is unlocked, rejected, or pending approval, or is to be added/subtracted to/from the release (DEVI-45275), then
               If (rsView("dlocked") = "N") OR (rsView("dlocked") = "R") OR (rsView("dlocked") = "P") OR (nOperation = "A") OR (nOperation = "S") Then
                  checked = NULL
                  disabled = NULL

Rev 4389	Rev 4398
Line 22...	Line 22...
22	`Dim sURL`	22	`Dim sURL`
23	`Dim IMG_locked`	23	`Dim IMG_locked`
24	`Dim relContentsSTR`	24	`Dim relContentsSTR`
25	`Dim parScriptName`	25	`Dim parScriptName`
26	`Dim parRtagId`	26	`Dim parRtagId`
-		27	`Dim parViewId`
-		28	`Dim parEnvtab`
-		29	`Dim parDview ' enable/disable deployment view.`
27	`Dim nOperation`	30	`Dim nOperation`
28	`Dim checked`	31	`Dim checked`
29	`Dim disabled`	32	`Dim disabled`
30	`Dim ReleaseMode`	33	`Dim ReleaseMode`
31	`Dim parDview ' enable/disable deployment view.`	-
32		34
33		35
34	`'------------ Constants Declaration -----------`	36	`'------------ Constants Declaration -----------`
35	`Const LIMG_LOCKED = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"`	37	`Const LIMG_LOCKED = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"`
36	`Const imgAdded = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Added'>"`	38	`Const imgAdded = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Added'>"`
37	`Const imgRemoved = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Removed'>"`	39	`Const imgRemoved = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Removed'>"`
38	`'------------ Variable Init -------------------`	40	`'------------ Variable Init -------------------`
39	`parScriptName = Request("script_name")`	41	`parScriptName = Request("script_name")`
40	`parRtagId = Request("rtag_id")`	42	`parRtagId = Request("rtag_id")`
-		43	`parViewId = Request("view_id")`
-		44	`parEnvtab = CInt( Request("envtab") )`
41	`parDview = "disabled"`	45	`parDview = "disabled"`
42	`'----------------------------------------------`	46	`'----------------------------------------------`
43	`%>`	47	`%>`
44	`<%`	48	`<%`
45	`'------------------------------------------------------------------------------------------------------------------------`	49	`'------------------------------------------------------------------------------------------------------------------------`
Line 47...	Line 51...
47	`%>`	51	`%>`
48	`<%`	52	`<%`
49	`'------------------------ MAIN LINE ---------------------------------`	53	`'------------------------ MAIN LINE ---------------------------------`
50	`If (Request("envtab") = "") OR (Request("rtag_id") = "") OR (Request("view_id") = "") OR (Request("script_name") = "") Then`	54	`If (Request("envtab") = "") OR (Request("rtag_id") = "") OR (Request("view_id") = "") OR (Request("script_name") = "") Then`
51	`Response.write "ERROR: Missing Parameters at "& ScriptName`	55	`Response.write "ERROR: Missing Parameters at "& ScriptName`
-		56	`Response.End`
52	`End If`	57	`End If`
53	`ReleaseMode = GetReleaseMode(parRtagId)`	58	`ReleaseMode = GetReleaseMode(parRtagId)`
54		59
55	`'--------------------------------------------------------------------`	60	`'--------------------------------------------------------------------`
56	`%>`	61	`%>`
57		62
58	`<%`	63	`<%`
59	`OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	64	`OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER`
60	`OraDatabase.Parameters.Add "VIEW_ID", Request("view_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	65	`OraDatabase.Parameters.Add "VIEW_ID", parViewId, ORAPARM_INPUT, ORATYPE_NUMBER`
61	`OraDatabase.Parameters.Add "RECORD_SET", NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR`	66	`OraDatabase.Parameters.Add "RECORD_SET",NULL, ORAPARM_OUTPUT,ORATYPE_CURSOR`
62		-
63		-
64		-
65		67
66	`' Decide which environment list is to be displayed`	68	`' Decide which environment list is to be displayed`
67	`Select Case CInt( Request("envtab") )`	69	`Select Case parEnvtab`
68	`Case enumENVTAB_WORK_IN_PROGRESS`	70	`Case enumENVTAB_WORK_IN_PROGRESS`
69	`OraDatabase.ExecuteSQL "BEGIN PK_WORK_IN_PROGRESS.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET ); END;"`	71	`OraDatabase.ExecuteSQL "BEGIN PK_WORK_IN_PROGRESS.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET ); END;"`
70		72
71	`Case enumENVTAB_PLANNED`	73	`Case enumENVTAB_PLANNED`
72	`OraDatabase.ExecuteSQL "BEGIN PK_PLANNED.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET ); END;"`	74	`OraDatabase.ExecuteSQL "BEGIN PK_PLANNED.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET ); END;"`
Line 83...	Line 85...
83		85
84	`OraDatabase.Parameters.Remove "RTAG_ID"`	86	`OraDatabase.Parameters.Remove "RTAG_ID"`
85	`OraDatabase.Parameters.Remove "VIEW_ID"`	87	`OraDatabase.Parameters.Remove "VIEW_ID"`
86	`OraDatabase.Parameters.Remove "RECORD_SET"`	88	`OraDatabase.Parameters.Remove "RECORD_SET"`
87		89
88		-
89	`' Retrun if no records found`	90	`' Retrun if no records found`
90	`If rsView.RecordCount < 1 Then`	91	`If rsView.RecordCount < 1 Then`
91	`relContentsSTR = "No packages found."`	92	`relContentsSTR = "No packages found."`
92	`End If`	93	`End If`
93		94
Line 104...	Line 105...
104	`' as to why they are present. So, instead of the padlock icon, display the added or removed icon to indicate`	105	`' as to why they are present. So, instead of the padlock icon, display the added or removed icon to indicate`
105	`' what the intended action is to be, once the pending item is approved.`	106	`' what the intended action is to be, once the pending item is approved.`
106	`' Obviously, this functionality only applies if viewing the PENDING or ALL environment tabs.`	107	`' Obviously, this functionality only applies if viewing the PENDING or ALL environment tabs.`
107	`' With regard to the operation value, A = Added, S = Subtracted`	108	`' With regard to the operation value, A = Added, S = Subtracted`
108	`nOperation = " "`	109	`nOperation = " "`
109	`If (CInt(Request("envtab")) = enumENVTAB_PLANNED OR CInt(Request("envtab")) = enumENVTAB_ALL) Then`	110	`If (parEnvtab = enumENVTAB_PLANNED OR parEnvtab = enumENVTAB_ALL) Then`
110	`nOperation = rsView.Fields("operation") ' NB. this field is only availble if earlier query was PK_PLANNED.GET_VIEW_CONTENT or PK_ENVIRONMENT.GET_VIEW_CONTENT`	111	`nOperation = rsView.Fields("operation") ' NB. this field is only availble if earlier query was PK_PLANNED.GET_VIEW_CONTENT or PK_ENVIRONMENT.GET_VIEW_CONTENT`
111	`If nOperation = "A" Then`	112	`If nOperation = "A" Then`
112	`IMG_locked = imgAdded`	113	`IMG_locked = imgAdded`
113	`ElseIf nOperation = "S" Then`	114	`ElseIf nOperation = "S" Then`
114	`IMG_locked = imgRemoved`	115	`IMG_locked = imgRemoved`
Line 118...	Line 119...
118	`relContentsSTR = relContentsSTR & "<tr>" & VBNewLine`	119	`relContentsSTR = relContentsSTR & "<tr>" & VBNewLine`
119		120
120	`If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then`	121	`If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then`
121	`relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine`	122	`relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine`
122	`Else`	123	`Else`
123	`If ((parDview <> "enable") AND CInt(Request("envtab")) = enumENVTAB_PLANNED) Then`	124	`If ((parDview <> "enable") AND parEnvtab = enumENVTAB_PLANNED) Then`
124		125
125	`' if package version is unlocked, rejected, or pending approval, or is to be added/subtracted to/from the release (DEVI-45275), then`	126	`' if package version is unlocked, rejected, or pending approval, or is to be added/subtracted to/from the release (DEVI-45275), then`
126	`If (rsView("dlocked") = "N") OR (rsView("dlocked") = "R") OR (rsView("dlocked") = "P") OR (nOperation = "A") OR (nOperation = "S") Then`	127	`If (rsView("dlocked") = "N") OR (rsView("dlocked") = "R") OR (rsView("dlocked") = "P") OR (nOperation = "A") OR (nOperation = "S") Then`
127	`checked = NULL`	128	`checked = NULL`
128	`disabled = NULL`	129	`disabled = NULL`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/RequestViewContent.asp @ 4809 – Rev 4389 → 4398