Subversion Repositories DevTools

Rev

Rev 6785 | Rev 6790 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5927 dpurdie 1 
<%
2 
'=====================================================
3 
'   _used_by.asp
4 
'   Core Implementation.
5 
'   Needs to be used via a wrapper
6 
'=====================================================
7 
%>
8 
<%
9 
'------------ Variable Definition -------------
6785 dpurdie 10 
Dim rsTemp
5927 dpurdie 11 
Dim isDaemonEnabledRelease
12 
'------------ Constants Declaration -----------
13 
'------------ Variable Init -------------------
14 
'----------------------------------------------
15 
%>
16 
<%
17 
'-----------------------------------------------------------------------------------------------------------------------------
18 
If pageIsEmbedded Then
19 
    isDaemonEnabledRelease = TRUE
20 
Else
21 
    isDaemonEnabledRelease = is_daemon_enabled_release(parRtag_id, TRUE)
22 
End If
23 
 
24 
If Request("action") <> "" AND NOT pageIsEmbedded Then
25 
   %>
26 
   <!--#include file="_access_control_login.asp"-->
27 
   <!--#include file="_access_control_project.asp"-->
28 
   <%
29 
   If ( parRtag_id <> "") AND (parPv_id <> "") Then
30 
 
31 
      Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
32 
 
33 
      If isDaemonEnabledRelease = FALSE Then
34 
 
35 
         Set pvIdList = CreateObject("Scripting.Dictionary")
36 
         'On Error Resume Next
37 
         txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
38 
         posComma = InStr(txt, ",")
39 
 
40 
         While posComma <> 0
41 
            'Response.Write(txt)
42 
            value = Mid(txt, 1, posComma-1)
43 
            posUnderscore = Instr(value, "_")
44 
            pvId = Mid(value, 1, posUnderscore - 1)
45 
            dpvId = Mid(value, posUnderscore + 1, posComma-1)
46 
 
47 
            Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
48 
            pvIdList.Add CStr( pvId ), Empty
49 
            txt = Mid(txt, posComma + 1, Len(txt))
50 
            posComma = InStr(txt, ",")
51 
         WEnd
52 
 
53 
         If posComma = 0 And Len(txt) > 0 Then
54 
            posUnderscore = Instr(txt, "_")
55 
            pvId = Mid(txt, 1, posUnderscore - 1)
56 
            dpvId = Mid(txt, posUnderscore + 1)
57 
            Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
58 
            pvIdList.Add CStr( pvId ), Empty
59 
         End if
60 
 
61 
         apvIdList = pvIdList.Keys
62 
 
63 
      End If
64 
 
5957 dpurdie 65 
      Call Destroy_All_Objects
5927 dpurdie 66 
      Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
67 
   Else
68 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
69 
      Response.write QSTR_FullQuery
70 
   End If
71 
End If
72 
%>
73 
<script language="javascript">
74 
<!--
75 
function checkUncheckAll(theElement) {
76 
   var theForm = theElement.form, z = 0;
77 
   for(z=0; z<theForm.length;z++){
78 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
79 
         theForm[z].checked = theElement.checked;
80 
      }
81 
   }
82 
}
83 
 
5947 dpurdie 84 
//  Show users of this package
85 
function showUsedBy(el){
86 
    var url = el.value;
87 
    var baseId = 'EXTENDED';
88 
    var divel = MM_findObj(baseId);
89 
    if (url)
90 
    {
91 
        // Show the DIV we are about to load
92 
        divel.style.display = 'block';
93 
        divel.innerHTML = '<%=enumLOADING%>';
5927 dpurdie 94 
 
5947 dpurdie 95 
        // Set div name for ajax loading
96 
		ajaxdivname = baseId;
97 
 
98 
		//Create the xmlHttp object to use in the request
99 
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
100 
		// This is non-blocking (asynchronous)
101 
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
102 
 
103 
		//Send the xmlHttp get to the specified url
104 
		xmlHttp_Get(xmlHttp, url);
105 
    }
106 
    else
107 
    {
108 
        divel.style.display = 'none';
109 
    }
110 
}
111 
 
5939 dpurdie 112 
function matchValue(ename) {
113 
    var el
114 
    el = document.getElementsByName(ename);
115 
    if (el[0] && el[0].checked) return 1;
116 
    return 0;
117 
}
118 
 
5927 dpurdie 119 
//-->
120 
</script>
121 
    <%
5932 dpurdie 122 
    If pkgInfoHash.Exists("pv_id") Then
5927 dpurdie 123 
    '-- FROM START ---------------------------------------------------------------------------------------------------------
124 
    objFormComponent.FormName = "FormName"
125 
    objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id
126 
    Call objFormComponent.FormStart()
127 
    %>
128 
    <%If Request("rtag_id") <> "" Then%>
129 
     <br>
5939 dpurdie 130 
     <span class="body_sect">Used by Packages In This Release</span>
131 
     <br>
5927 dpurdie 132 
     <!-- USED BY ------------------------------------------------>
133 
     <table width="100%" border="0" cellspacing="1" cellpadding="3">
6788 dpurdie 134 
        <tr class="body_col form_field_bg">
5927 dpurdie 135 
           <%If isDaemonEnabledRelease = FALSE Then%>
6788 dpurdie 136 
              <td nowrap width="1" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
5927 dpurdie 137 
           <%End If%>
6788 dpurdie 138 
           <td nowrap width="1"></td>
139 
           <td nowrap width="1" class="form_field">Name</td>
140 
           <td nowrap width="25%" class="form_field">Version</td>
141 
           <td nowrap width="25%" class="form_field">Location</td>
142 
           <td nowrap width="1" class="form_field"></td>
143 
           <td nowrap width="25%" class="form_field">Version Used</td>
144 
           <td nowrap width="25%" class="form_field">Last Modified</td>
5927 dpurdie 145 
        </tr>
146 
        <%
147 
        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
148 
        OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
5939 dpurdie 149 
		OraDatabase.Parameters.Add "V_EXT",   EmptyToNull(pkgInfoHash.Item ("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2
5927 dpurdie 150 
 
151 
        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
152 
 
153 
        OraDatabase.Parameters.Remove "RTAG_ID"
154 
        OraDatabase.Parameters.Remove "PKG_ID"
155 
        OraDatabase.Parameters.Remove "V_EXT"
156 
        %>
157 
        <%If rsTemp.RecordCount < 1 Then%>
6788 dpurdie 158 
           <tr class="form_item_pad form_field_grey_bg">
159 
              <td nowrap>&nbsp;</td>
160 
           <%If isDaemonEnabledRelease = FALSE Then%>
161 
              <td class="form_item_pad"></td>
162 
           <%End If%>
163 
              <td class="form_item_pad" colspan=6>Leaf Package - Is not used by any other package in this Release</td>
5927 dpurdie 164 
           </tr>
6788 dpurdie 165 
        <%Else%>
5927 dpurdie 166 
        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
6788 dpurdie 167 
           <tr  class="form_item_pad form_field_grey_bg">
5927 dpurdie 168 
              <%If isDaemonEnabledRelease = FALSE Then%>
169 
                 <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
6788 dpurdie 170 
                    <td nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
5927 dpurdie 171 
                 <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
6788 dpurdie 172 
                    <td nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
5927 dpurdie 173 
                 <%Else%>
6788 dpurdie 174 
                    <td nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
5927 dpurdie 175 
                 <%End If%>
176 
              <%End If%>
177 
 
6785 dpurdie 178 
              <%If rsTemp("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%>
6788 dpurdie 179 
                 <td><%=DefineStateIcon ( rsTemp("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
5927 dpurdie 180 
              <%Else%>
6788 dpurdie 181 
                 <td><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
5927 dpurdie 182 
              <%End If%>
183 
 
6788 dpurdie 184 
              <td class="form_item_pad" nowrap><a href="used_by.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>
185 
              <td class="form_item_pad"><%=rsTemp("pkg_version")%></td>
186 
              <td class="form_item_pad"  nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
187 
              <td class="form_item_pad"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
188 
              <td <%If rsTemp("dpv_id") <> parPv_id Then%>class="err_alert"<%Else%>class="form_item_pad"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%></td>
189 
              <td class="form_item_pad"><%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%>&nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%></td>
5927 dpurdie 190 
           </tr>
191 
           <%rsTemp.MoveNext
6788 dpurdie 192 
 
5927 dpurdie 193 
        WEnd
194 
        %>
6788 dpurdie 195 
           <tr class="form_item_pad form_field_grey_bg">
196 
           <%If isDaemonEnabledRelease = FALSE Then%>
197 
              <td class="form_item_pad"></td>
198 
           <%End If%>
199 
              <td class="form_item_pad" nowrap colspan=7>Total Packages: <%=rsTemp.RecordCount%></td>
200 
           </tr>
201 
        <%End If%>
5927 dpurdie 202 
     </table>
6788 dpurdie 203 
     <%If rsTemp.RecordCount > 0 Then%>
5927 dpurdie 204 
     <%If isDaemonEnabledRelease = FALSE Then%>
205 
        <input name="btn" type="submit" class="form_btn" value="Apply"><br>
206 
        <SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
207 
     <%End If%>
208 
     <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>
209 
     <input type="hidden" name="action" value="true">
210 
    <%End If%>
6788 dpurdie 211 
    <%End If%>
212 
     <%rsTemp.Close()%>
213 
     <%Set rsTemp = nothing%>
5927 dpurdie 214 
    <%
215 
    Call objFormComponent.FormEnd()
216 
    '-- FROM END ----------------------------------------------------------------------------------------------------------------
217 
    %>
5947 dpurdie 218 
    <!-- Extended Searching ---------------------------------------->
5939 dpurdie 219 
    <br>
5947 dpurdie 220 
    <span class=body_txt>Extended Package Usage</span>
221 
    <select class=body_txt onChange="showUsedBy(this);">
222 
        <option value ="">Select one</option>
6126 dpurdie 223 
 
5948 dpurdie 224 
        <option disabled="disabled">Projects</option>
5947 dpurdie 225 
        <option value='RequestUsedByThisProjectSummary.asp?pv_id=<%=parPv_id%>&mode=2'>Projects that use: (<%=pkgInfoHash.Item("pkg_name")%>&nbsp;<%=pkgInfoHash.Item("pkg_version")%>)</option>
226 
        <option value='RequestUsedByThisProjectSummary.asp?pv_id=<%=parPv_id%>&mode=1'>Projects that use: (<%=pkgInfoHash.Item("pkg_name")%><%=pkgInfoHash.Item("v_ext")%>)</option>
227 
        <option value='RequestUsedByThisProjectSummary.asp?pv_id=<%=parPv_id%>&mode=0'>Projects that use: (<%=pkgInfoHash.Item("pkg_name")%>)</option>
6126 dpurdie 228 
 
5948 dpurdie 229 
        <option disabled="disabled">Packages</option>
5947 dpurdie 230 
        <option value='UsedByPackageSummary.asp?pv_id=<%=parPv_id%>&mode=2'>Packages that use: (<%=pkgInfoHash.Item("pkg_name")%>&nbsp;<%=pkgInfoHash.Item("pkg_version")%>)</option>
231 
        <option value='UsedByPackageSummary.asp?pv_id=<%=parPv_id%>&mode=1'>Packages that use: (<%=pkgInfoHash.Item("pkg_name")%><%=pkgInfoHash.Item("v_ext")%>)</option>
232 
        <option value='UsedByPackageSummary.asp?pv_id=<%=parPv_id%>&mode=0'>Packages that use: (<%=pkgInfoHash.Item("pkg_name")%>)</option>
6126 dpurdie 233 
 
5948 dpurdie 234 
        <option disabled="disabled">SDKs</option>
5947 dpurdie 235 
        <option value='UsedBySDKSummary.asp?pv_id=<%=parPv_id%>&mode=2'>SDKs that use: (<%=pkgInfoHash.Item("pkg_name")%>&nbsp;<%=pkgInfoHash.Item("pkg_version")%>)</option>
236 
        <option value='UsedBySDKSummary.asp?pv_id=<%=parPv_id%>&mode=1'>SDKs that use: (<%=pkgInfoHash.Item("pkg_name")%><%=pkgInfoHash.Item("v_ext")%>)</option>
237 
        <option value='UsedBySDKSummary.asp?pv_id=<%=parPv_id%>&mode=0'>SDKs that use: (<%=pkgInfoHash.Item("pkg_name")%>)</option>
6126 dpurdie 238 
 
239 
        <option disabled="disabled">SBOMS</option>
240 
        <option value='UsedBySBOMSummary.asp?pv_id=<%=parPv_id%>&mode=2'>SBOMs that use: (<%=pkgInfoHash.Item("pkg_name")%>&nbsp;<%=pkgInfoHash.Item("pkg_version")%>)</option>
241 
        <option value='UsedBySBOMSummary.asp?pv_id=<%=parPv_id%>&mode=1'>SBOMs that use: (<%=pkgInfoHash.Item("pkg_name")%><%=pkgInfoHash.Item("v_ext")%>)</option>
242 
        <option value='UsedBySBOMSummary.asp?pv_id=<%=parPv_id%>&mode=0'>SBOMs that use: (<%=pkgInfoHash.Item("pkg_name")%>)</option>
243 
 
5947 dpurdie 244 
    </select>
245 
    <DIV class="form_item" id="EXTENDED" style="display:none;"><%=enumLOADING%></DIV>
5927 dpurdie 246 
    <p>
247 
    <div class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
248 
    <br>
5932 dpurdie 249 
<%End If%>