Subversion Repositories DevTools

Rev

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

Rev 129 Rev 145
Line 25... Line 25...
25 
<!--#include file="_access_control_general.asp"-->
 25 
<!--#include file="_access_control_general.asp"-->
26 
<%
 26 
<%
27 
'------------ Variable Definition -------------
 27 
'------------ Variable Definition -------------
28 
Dim rsTemp, rsState
 28 
Dim rsTemp, rsState
29 
Dim projId
 29 
Dim projId
30 
Dim   rsQry
 30 
Dim rsQry
- 
 
 31 
Dim isDaemonEnabledRelease
31 
'------------ Constants Declaration -----------
 32 
'------------ Constants Declaration -----------
32 
Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"
 33 
Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"
33 
Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"
 34 
Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"
34 
Const IMG_GAP = "<img src='images/spacer.gif' width='20' height='1' border='0'>"
 35 
Const IMG_GAP = "<img src='images/spacer.gif' width='20' height='1' border='0'>"
35 
Const IMG_POINTER = "<img src='images/i_pointer.gif' border='0'>"
 36 
Const IMG_POINTER = "<img src='images/i_pointer.gif' border='0'>"
Line 67... Line 68...
67 
   OraDatabase.Parameters.Remove "V_EXT"
 68 
   OraDatabase.Parameters.Remove "V_EXT"
68 
   OraDatabase.Parameters.Remove "SELECTED"
 69 
   OraDatabase.Parameters.Remove "SELECTED"
69 
 
 70 
 
70 
End Sub
 71 
End Sub
71 
'-----------------------------------------------------------------------------------------------------------------------------
 72 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 73 
 
- 
 
 74 
isDaemonEnabledRelease = is_daemon_enabled_release(parRtag_id, TRUE)
- 
 
 75 
 
72 
If Request("action") <> "" Then
 76 
If Request("action") <> "" Then
73 
   %>
 77 
   %>
74 
   <!--#include file="_access_control_login.asp"-->
 78 
   <!--#include file="_access_control_login.asp"-->
75 
   <!--#include file="_access_control_project.asp"-->
 79 
   <!--#include file="_access_control_project.asp"-->
76 
   <%
 80 
   <%
77 
   If ( parRtag_id <> "") AND (parPv_id <> "") Then
 81 
   If ( parRtag_id <> "") AND (parPv_id <> "") Then
78 
      Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
 - 
 
79 
 
 82 
 
80 
      Set pvIdList = CreateObject("Scripting.Dictionary")
 - 
 
81 
      'On Error Resume Next
 - 
 
82 
      txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
 - 
 
83 
      posComma = InStr(txt, ",")
 - 
 
84 
 
 - 
 
85 
      While posComma <> 0
 - 
 
86 
         'Response.Write(txt)
 - 
 
87 
         value = Mid(txt, 1, posComma-1)
 - 
 
88 
         posUnderscore = Instr(value, "_")
 - 
 
89 
         pvId = Mid(value, 1, posUnderscore - 1)
 - 
 
90 
         dpvId = Mid(value, posUnderscore + 1, posComma-1)
 - 
 
91 
 
 - 
 
92 
         Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
 83 
      Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
93 
         pvIdList.Add CStr( pvId ), Empty
 - 
 
94 
         txt = Mid(txt, posComma + 1, Len(txt))
 - 
 
95 
         posComma = InStr(txt, ",")
 - 
 
96 
      Wend
 - 
 
97 
 
 84 
 
98 
      If posComma = 0 And Len(txt) > 0 Then
 85 
      If isDaemonEnabledRelease = FALSE Then
99 
         posUnderscore = Instr(txt, "_")
 - 
 
100 
         pvId = Mid(txt, 1, posUnderscore - 1)
 - 
 
101 
         dpvId = Mid(txt, posUnderscore + 1)
 - 
 
102 
         Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
 - 
 
103 
         pvIdList.Add CStr( pvId ), Empty
 - 
 
104 
      End if
 - 
 
105 
 
 86 
 
- 
 
 87 
         Set pvIdList = CreateObject("Scripting.Dictionary")
- 
 
 88 
         'On Error Resume Next
- 
 
 89 
         txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
106 
      apvIdList = pvIdList.Keys
 90 
         posComma = InStr(txt, ",")
107 
 
 91 
 
- 
 
 92 
         While posComma <> 0
- 
 
 93 
            'Response.Write(txt)
- 
 
 94 
            value = Mid(txt, 1, posComma-1)
- 
 
 95 
            posUnderscore = Instr(value, "_")
- 
 
 96 
            pvId = Mid(value, 1, posUnderscore - 1)
- 
 
 97 
            dpvId = Mid(value, posUnderscore + 1, posComma-1)
- 
 
 98 
 
- 
 
 99 
            Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
- 
 
 100 
            pvIdList.Add CStr( pvId ), Empty
- 
 
 101 
            txt = Mid(txt, posComma + 1, Len(txt))
- 
 
 102 
            posComma = InStr(txt, ",")
- 
 
 103 
         WEnd
- 
 
 104 
 
- 
 
 105 
         If posComma = 0 And Len(txt) > 0 Then
- 
 
 106 
            posUnderscore = Instr(txt, "_")
- 
 
 107 
            pvId = Mid(txt, 1, posUnderscore - 1)
- 
 
 108 
            dpvId = Mid(txt, posUnderscore + 1)
- 
 
 109 
            Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
- 
 
 110 
            pvIdList.Add CStr( pvId ), Empty
- 
 
 111 
         End if
- 
 
 112 
 
- 
 
 113 
         apvIdList = pvIdList.Keys
- 
 
 114 
 
108 
      'strList = 0
 115 
         'strList = 0
- 
 
 116 
 
- 
 
 117 
         'For Each pvId In apvIdList
- 
 
 118 
         '   strList = strList&", "&pvId
- 
 
 119 
         'Next
109 
 
 120 
 
110 
      'For Each pvId In apvIdList
 - 
 
111 
      '   strList = strList&", "&pvId
 - 
 
112 
      'Next
 - 
 
113 
 
 121 
 
- 
 
 122 
         'Call SetUnignoreWarnings (strList)
- 
 
 123 
         'Call Notify ( parRtag_id )
114 
 
 124 
 
115 
      'Call SetUnignoreWarnings (strList)
 - 
 
116 
      'Call Notify ( parRtag_id )
 125 
      End If
117 
 
 126 
 
118 
      Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
 127 
      Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
119 
   Else
 128 
   Else
120 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 129 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
121 
      Response.write QSTR_All
 130 
      Response.write QSTR_All
Line 236... Line 245...
236 
                     <br>
 245 
                     <br>
237 
                     <span class="body_sect">Used by Packages In This Release</span>         <br>
 246 
                     <span class="body_sect">Used by Packages In This Release</span>         <br>
238 
                     <!-- USED BY ------------------------------------------------>
 247 
                     <!-- USED BY ------------------------------------------------>
239 
                     <table width="100%" border="0" cellspacing="1" cellpadding="3">
 248 
                     <table width="100%" border="0" cellspacing="1" cellpadding="3">
240 
                        <tr>
 249 
                        <tr>
- 
 
 250 
                           <%If isDaemonEnabledRelease = FALSE Then%>
241 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
 251 
                              <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
- 
 
 252 
                           <%End If%>
242 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
 253 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
243 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
 254 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
244 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
 255 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
245 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
 256 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
246 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
 257 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
247 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
 258 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
248 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
 259 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
249 
                        </tr>
 260 
                        </tr>
250 
                        <%
 261 
                        <%
251 
                        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,    ORAPARM_INPUT, ORATYPE_NUMBER
 262 
                        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
252 
                        OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
 263 
                        OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
253 
 
 264 
 
254 
                        If pkgInfoHash.Item ("v_ext") <> "" Then
 265 
                        If pkgInfoHash.Item ("v_ext") <> "" Then
255 
                              OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"),       ORAPARM_INPUT, ORATYPE_VARCHAR2
 266 
                           OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
256 
                        Else
 267 
                        Else
257 
                           OraDatabase.Parameters.Add "V_EXT",   NULL,       ORAPARM_INPUT, ORATYPE_VARCHAR2
 268 
                           OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2
258 
                        End If
 269 
                        End If
259 
 
 270 
 
260 
                        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
 271 
                        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
261 
 
 272 
 
262 
                        OraDatabase.Parameters.Remove "RTAG_ID"
 273 
                        OraDatabase.Parameters.Remove "RTAG_ID"
263 
                        OraDatabase.Parameters.Remove "PKG_ID"
 274 
                        OraDatabase.Parameters.Remove "PKG_ID"
264 
                        OraDatabase.Parameters.Remove "V_EXT"
 275 
                        OraDatabase.Parameters.Remove "V_EXT"
265 
                        %>
 276 
                        %>
266 
                        <%If rsTemp.RecordCount < 1 Then%>
 277 
                        <%If rsTemp.RecordCount < 1 Then%>
267 
                           <tr>
 278 
                           <tr>
- 
 
 279 
                              <%If isDaemonEnabledRelease = FALSE Then%>
268 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 280 
                                 <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
- 
 
 281 
                              <%End If%>
269 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 282 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
270 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 283 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
271 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 284 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
272 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td><br>
 285 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td><br>
273 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 286 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
Line 278... Line 291...
278 
                        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
 291 
                        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
279 
                           <tr>
 292 
                           <tr>
280 
                              <%
 293 
                              <%
281 
                              Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
 294 
                              Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
282 
 
 295 
 
- 
 
 296 
                              <%If isDaemonEnabledRelease = FALSE Then%>
283 
                              <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
 297 
                                 <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
284 
                                 <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
 298 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
285 
                              <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
 299 
                                 <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
286 
                                 <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
 300 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
287 
                              <%Else%>
 301 
                                 <%Else%>
288 
                                 <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
 302 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
- 
 
 303 
                                 <%End If%>
289 
                              <%End If%>
 304 
                              <%End If%>
290 
                              <%
 - 
 
- 
 
 305 
 
291 
                              If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then
 306 
                              <%If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%>
292 
                              %>
 - 
 
293 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
 307 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
294 
                              <%Else%>
 308 
                              <%Else%>
295 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
 309 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
296 
                              <%End If%>
 310 
                              <%End If%>
- 
 
 311 
 
297 
                              <td background="images/bg_form_lightgray.gif" nowrap><a href="used_by.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>
 312 
                              <td background="images/bg_form_lightgray.gif" nowrap><a href="used_by.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>
298 
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
 313 
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
299 
                              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
 314 
                              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
300 
                              <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
 315 
                              <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
301 
                              <td background="images/bg_form_lightgray.gif" <%If rsTemp("dpv_id") <> parPv_id Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%></td>
 316 
                              <td background="images/bg_form_lightgray.gif" <%If rsTemp("dpv_id") <> parPv_id Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%></td>
Line 308... Line 323...
308 
                           Set rsState = nothing
 323 
                           Set rsState = nothing
309 
                        WEnd
 324 
                        WEnd
310 
                        Set rsTemp = nothing
 325 
                        Set rsTemp = nothing
311 
                        %>
 326 
                        %>
312 
                     </table>
 327 
                     </table>
- 
 
 328 
                     <%If isDaemonEnabledRelease = FALSE Then%>
313 
                     <input name="btn" type="submit" class="form_btn" value="Apply"><br>
 329 
                        <input name="btn" type="submit" class="form_btn" value="Apply"><br>
314 
                     <SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
 330 
                        <SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
- 
 
 331 
                     <%End If%>
315 
                     <SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
 332 
                     <SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
316 
                     <br><br>
 333 
                     <br><br>
317 
                     <input type="hidden" name="action" value="true">
 334 
                     <input type="hidden" name="action" value="true">
318 
                  <%End If%>
 335 
                  <%End If%>
319 
                  <%
 336 
                  <%