<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| RequestViewCointent.asp |
'| |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ Variable Definition -------------
Dim rsView
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 = ""
Const imgAdded = ""
Const imgRemoved = ""
'------------ 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
Call Destroy_All_Objects
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;"
Case enumENVTAB_RELEASED
OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET ); END;"
Case Else
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET ); END;"
End Select
Set rsView = OraDatabase.Parameters("RECORD_SET").Value
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
' Get view content
While ((NOT rsView.BOF) AND (NOT rsView.EOF))
sURL = parScriptName &"?pv_id="& rsView("pv_id") &"&rtag_id="& parRtagId
IMG_locked = ""
If rsView.Fields("dlocked") = "Y" Then IMG_locked = LIMG_LOCKED
' DEVI-45275 - Normally, dlocked=Y items are denoted with a padlock icon on the web page. Since we can now merge
' into the pending tab, the dlocked=Y items that end up there would not give any visual indication to the user
' 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
End If
End If
relContentsSTR = relContentsSTR & "
" & VBNewLine
If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then
relContentsSTR = relContentsSTR & "
" & 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
' disable check box if not logged in, or if not in open mode and user has no permission to approve pending
If objAccessControl.UserLogedIn Then
If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
If NOT canActionControlInProject("ApproveForAutoBuild") Then
disabled = "disabled"
End If
End If
Else
disabled = "disabled"
End If
relContentsSTR = relContentsSTR & "
"
Const imgAdded = "
"
Const imgRemoved = "
"
'------------ 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
Call Destroy_All_Objects
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;"
Case enumENVTAB_RELEASED
OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET ); END;"
Case Else
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_VIEW_CONTENT ( :RTAG_ID, :VIEW_ID, :RECORD_SET ); END;"
End Select
Set rsView = OraDatabase.Parameters("RECORD_SET").Value
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
' Get view content
While ((NOT rsView.BOF) AND (NOT rsView.EOF))
sURL = parScriptName &"?pv_id="& rsView("pv_id") &"&rtag_id="& parRtagId
IMG_locked = ""
If rsView.Fields("dlocked") = "Y" Then IMG_locked = LIMG_LOCKED
' DEVI-45275 - Normally, dlocked=Y items are denoted with a padlock icon on the web page. Since we can now merge
' into the pending tab, the dlocked=Y items that end up there would not give any visual indication to the user
' 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
End If
End If
relContentsSTR = relContentsSTR & "