| Line 23... |
Line 23... |
| 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 nOperation
|
27 |
Dim nOperation
|
| - |
|
28 |
Dim checked
|
| - |
|
29 |
Dim disabled
|
| - |
|
30 |
Dim ReleaseMode
|
| - |
|
31 |
Dim parDview ' enable/disable deployment view.
|
| - |
|
32 |
|
| 28 |
|
33 |
|
| 29 |
'------------ Constants Declaration -----------
|
34 |
'------------ Constants Declaration -----------
|
| 30 |
Const LIMG_LOCKED = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"
|
35 |
Const LIMG_LOCKED = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"
|
| 31 |
Const imgAdded = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Added'>"
|
36 |
Const imgAdded = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Added'>"
|
| 32 |
Const imgRemoved = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Removed'>"
|
37 |
Const imgRemoved = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Removed'>"
|
| 33 |
'------------ Variable Init -------------------
|
38 |
'------------ Variable Init -------------------
|
| 34 |
parScriptName = Request("script_name")
|
39 |
parScriptName = Request("script_name")
|
| 35 |
parRtagId = Request("rtag_id")
|
40 |
parRtagId = Request("rtag_id")
|
| - |
|
41 |
parDview = "disabled"
|
| 36 |
'----------------------------------------------
|
42 |
'----------------------------------------------
|
| 37 |
%>
|
43 |
%>
|
| 38 |
<%
|
44 |
<%
|
| 39 |
'------------------------------------------------------------------------------------------------------------------------
|
45 |
'------------------------------------------------------------------------------------------------------------------------
|
| 40 |
'------------------------------------------------------------------------------------------------------------------------
|
46 |
'------------------------------------------------------------------------------------------------------------------------
|
| Line 42... |
Line 48... |
| 42 |
<%
|
48 |
<%
|
| 43 |
'------------------------ MAIN LINE ---------------------------------
|
49 |
'------------------------ MAIN LINE ---------------------------------
|
| 44 |
If (Request("envtab") = "") OR (Request("rtag_id") = "") OR (Request("view_id") = "") OR (Request("script_name") = "") Then
|
50 |
If (Request("envtab") = "") OR (Request("rtag_id") = "") OR (Request("view_id") = "") OR (Request("script_name") = "") Then
|
| 45 |
Response.write "ERROR: Missing Parameters at "& ScriptName
|
51 |
Response.write "ERROR: Missing Parameters at "& ScriptName
|
| 46 |
End If
|
52 |
End If
|
| - |
|
53 |
ReleaseMode = GetReleaseMode(parRtagId)
|
| - |
|
54 |
|
| 47 |
'--------------------------------------------------------------------
|
55 |
'--------------------------------------------------------------------
|
| 48 |
%>
|
56 |
%>
|
| 49 |
|
57 |
|
| 50 |
<%
|
58 |
<%
|
| 51 |
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
59 |
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| Line 107... |
Line 115... |
| 107 |
End If
|
115 |
End If
|
| 108 |
End If
|
116 |
End If
|
| 109 |
|
117 |
|
| 110 |
relContentsSTR = relContentsSTR & "<tr>" & VBNewLine
|
118 |
relContentsSTR = relContentsSTR & "<tr>" & VBNewLine
|
| 111 |
|
119 |
|
| 112 |
If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then
|
120 |
If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then
|
| 113 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, rsView("build_type"), TRUE ) &"</td>"& VBNewLine
|
121 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine
|
| 114 |
Else
|
122 |
Else
|
| - |
|
123 |
If ((parDview <> "enable") AND CInt(Request("envtab")) = enumENVTAB_PLANNED) Then
|
| - |
|
124 |
|
| - |
|
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 (rsView("dlocked") = "N") OR (rsView("dlocked") = "R") OR (rsView("dlocked") = "P") OR (nOperation = "A") OR (nOperation = "S") Then
|
| - |
|
127 |
checked = NULL
|
| - |
|
128 |
disabled = NULL
|
| - |
|
129 |
' disable check box if not logged in, or if not in open mode and user has no permission to approve pending
|
| - |
|
130 |
If objAccessControl.UserLogedIn Then
|
| - |
|
131 |
If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
|
| - |
|
132 |
If NOT objAccessControl.IsActive("ApproveForAutoBuild") Then
|
| - |
|
133 |
disabled = "disabled"
|
| - |
|
134 |
End If
|
| - |
|
135 |
End If
|
| - |
|
136 |
Else
|
| - |
|
137 |
disabled = "disabled"
|
| - |
|
138 |
End If
|
| - |
|
139 |
|
| - |
|
140 |
Else ' always check and disable the checkbox
|
| - |
|
141 |
checked = "checked"
|
| - |
|
142 |
disabled = "disabled"
|
| - |
|
143 |
End If
|
| - |
|
144 |
relContentsSTR = relContentsSTR & " <td width='1%'><input name='pv_id_list' id='pv_id_list' type=checkbox value="&rsView.Fields("pv_id")&" "&checked&" "&disabled&"></td>"& VBNewLine
|
| - |
|
145 |
Else
|
| 115 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView("pkg_state"), rsView("dlocked"), NULL, NULL, rsView("build_type"), TRUE ) &"</td>"& VBNewLine
|
146 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView("pkg_state"), rsView("dlocked"), NULL, NULL, rsView("build_type"), TRUE ) &"</td>"& VBNewLine
|
| - |
|
147 |
End If
|
| 116 |
End If
|
148 |
End If
|
| 117 |
|
149 |
|
| 118 |
relContentsSTR = relContentsSTR & " <td width='100%' nowrap><a href='"& sURL &"' class='body_txt_drk' title="""& HTMLEncode( rsView("pv_description") ) &""">"& rsView.Fields("pkg_name") &"</a></td>" & VBNewLine
|
150 |
relContentsSTR = relContentsSTR & " <td width='100%' nowrap><a href='"& sURL &"' class='body_txt_drk' title="""& HTMLEncode( rsView("pv_description") ) &""">"& rsView.Fields("pkg_name") &"</a></td>" & VBNewLine
|
| 119 |
relContentsSTR = relContentsSTR & " <td width='1%' nowrap class='envPkg'>"& rsView.Fields("pkg_version") &"</td>" & VBNewLine
|
151 |
relContentsSTR = relContentsSTR & " <td width='1%' nowrap class='envPkg'>"& rsView.Fields("pkg_version") &"</td>" & VBNewLine
|
| 120 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& IMG_locked &"</td>"
|
152 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& IMG_locked &"</td>"
|
| 121 |
relContentsSTR = relContentsSTR & "</tr>" & VBNewLine
|
153 |
relContentsSTR = relContentsSTR & "</tr>" & VBNewLine
|