Subversion Repositories DevTools

Rev

Rev 5945 | Rev 5947 | 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 -------------
10 
Dim rsTemp, rsState
11 
Dim projId
12 
Dim pkgId
13 
Dim rsQry
14 
Dim isDaemonEnabledRelease
15 
'------------ Constants Declaration -----------
16 
Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"
17 
Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"
18 
Const IMG_GAP = "<img src='images/spacer.gif' width='20' height='1' border='0'>"
19 
Const IMG_POINTER = "<img src='images/i_pointer.gif' border='0'>"
20 
'------------ Variable Init -------------------
21 
'----------------------------------------------
22 
%>
23 
<%
24 
'-----------------------------------------------------------------------------------------------------------------------------
25 
If pageIsEmbedded Then
26 
    isDaemonEnabledRelease = TRUE
27 
Else
28 
    isDaemonEnabledRelease = is_daemon_enabled_release(parRtag_id, TRUE)
29 
End If
30 
 
31 
If Request("action") <> "" AND NOT pageIsEmbedded Then
32 
   %>
33 
   <!--#include file="_access_control_login.asp"-->
34 
   <!--#include file="_access_control_project.asp"-->
35 
   <%
36 
   If ( parRtag_id <> "") AND (parPv_id <> "") Then
37 
 
38 
      Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
39 
 
40 
      If isDaemonEnabledRelease = FALSE Then
41 
 
42 
         Set pvIdList = CreateObject("Scripting.Dictionary")
43 
         'On Error Resume Next
44 
         txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
45 
         posComma = InStr(txt, ",")
46 
 
47 
         While posComma <> 0
48 
            'Response.Write(txt)
49 
            value = Mid(txt, 1, posComma-1)
50 
            posUnderscore = Instr(value, "_")
51 
            pvId = Mid(value, 1, posUnderscore - 1)
52 
            dpvId = Mid(value, posUnderscore + 1, posComma-1)
53 
 
54 
            Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
55 
            pvIdList.Add CStr( pvId ), Empty
56 
            txt = Mid(txt, posComma + 1, Len(txt))
57 
            posComma = InStr(txt, ",")
58 
         WEnd
59 
 
60 
         If posComma = 0 And Len(txt) > 0 Then
61 
            posUnderscore = Instr(txt, "_")
62 
            pvId = Mid(txt, 1, posUnderscore - 1)
63 
            dpvId = Mid(txt, posUnderscore + 1)
64 
            Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
65 
            pvIdList.Add CStr( pvId ), Empty
66 
         End if
67 
 
68 
         apvIdList = pvIdList.Keys
69 
 
70 
      End If
71 
 
72 
      Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
73 
   Else
74 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
75 
      Response.write QSTR_FullQuery
76 
   End If
77 
End If
78 
%>
79 
<script language="javascript">
80 
<!--
81 
function checkUncheckAll(theElement) {
82 
   var theForm = theElement.form, z = 0;
83 
   for(z=0; z<theForm.length;z++){
84 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
85 
         theForm[z].checked = theElement.checked;
86 
      }
87 
   }
88 
}
89 
 
5939 dpurdie 90 
formTips.tips.package       = stdTip(200, 'Used by this package', 'Display package and package versions that use any version of this package name and project suffix' );
91 
formTips.tips.packageMatch  = stdTip(200, 'Exact Match', 'Display package and package versions that use exactly this version of this package ' );
92 
formTips.tips.project       = stdTip(200, 'Used by projects', 'Display projects that use any version of this package name and project suffix' );
93 
formTips.tips.projectMatch  = stdTip(200, 'Exact Match', 'Display projects that use this version of the package' );
5927 dpurdie 94 
 
95 
//
96 
//	Load/Hide/Show an Ajax expander
97 
//	BaseId - Base for two IDs.
98 
//			 IMG_BaseId - image to to toggle
99 
//			 BaseId - Div to load data into
100 
//	url - Url used to load subcontrol
101 
function ToggleUsedByControl(baseId, url)
102 
{
103 
	var img, dmode;
104 
	var imgel = MM_findObj("IMG_" + baseId);
105 
	var divel = MM_findObj(baseId);
106 
	var showing = divel.getAttribute("data-show");
107 
	if(showing == 1)
108 
	{
109 
		img = "images/bt_minus.gif";
110 
		dmode = 'block';
111 
		showing = 2
112 
	}
113 
	else if(showing == 2)
114 
	{
115 
		img = "images/bt_plus.gif";
116 
		dmode = 'none';
117 
		showing = 1;
118 
	}
119 
	else
120 
	{
121 
		img = "images/bt_minus.gif";
122 
		dmode = 'block';
123 
		showing = 2;
124 
 
125 
		// Set div name for ajax loading
126 
		ajaxdivname = baseId;
127 
 
128 
		//Create the xmlHttp object to use in the request
129 
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
130 
		// This is non-blocking (asynchronous)
131 
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
132 
 
133 
		//Send the xmlHttp get to the specified url
134 
		xmlHttp_Get(xmlHttp, url);
135 
	}
136 
	// Update image and attributes
137 
	imgel.src = img;
138 
	divel.style.display = dmode;
139 
	divel.setAttribute("data-show", showing);
140 
}
5939 dpurdie 141 
 
142 
function matchValue(ename) {
143 
    var el
144 
    el = document.getElementsByName(ename);
145 
    if (el[0] && el[0].checked) return 1;
146 
    return 0;
147 
}
148 
 
5927 dpurdie 149 
//-->
150 
</script>
151 
    <%
5932 dpurdie 152 
    If pkgInfoHash.Exists("pv_id") Then
5927 dpurdie 153 
    '-- FROM START ---------------------------------------------------------------------------------------------------------
154 
    objFormComponent.FormName = "FormName"
155 
    objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id
156 
    Call objFormComponent.FormStart()
157 
    %>
158 
    <%If Request("rtag_id") <> "" Then%>
159 
     <br>
5939 dpurdie 160 
     <span class="body_sect">Used by Packages In This Release</span>
161 
     <br>
5927 dpurdie 162 
     <!-- USED BY ------------------------------------------------>
163 
     <table width="100%" border="0" cellspacing="1" cellpadding="3">
164 
        <tr>
165 
           <%If isDaemonEnabledRelease = FALSE Then%>
166 
              <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>
167 
           <%End If%>
168 
           <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
169 
           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
170 
           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
171 
           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
172 
           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
173 
           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
174 
           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
175 
        </tr>
176 
        <%
177 
        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
178 
        OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
5939 dpurdie 179 
		OraDatabase.Parameters.Add "V_EXT",   EmptyToNull(pkgInfoHash.Item ("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2
5927 dpurdie 180 
 
181 
        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
182 
 
183 
        OraDatabase.Parameters.Remove "RTAG_ID"
184 
        OraDatabase.Parameters.Remove "PKG_ID"
185 
        OraDatabase.Parameters.Remove "V_EXT"
186 
        %>
187 
        <%If rsTemp.RecordCount < 1 Then%>
188 
           <tr>
189 
              <%If isDaemonEnabledRelease = FALSE Then%>
190 
                 <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
191 
              <%End If%>
192 
              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
193 
              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
194 
              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
195 
              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td><br>
196 
              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
197 
              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
198 
              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
199 
           </tr>
200 
        <%End If%>
201 
        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
202 
           <tr>
5939 dpurdie 203 
              <% Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
5927 dpurdie 204 
              <%If isDaemonEnabledRelease = FALSE Then%>
205 
                 <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
206 
                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
207 
                 <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
208 
                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
209 
                 <%Else%>
210 
                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
211 
                 <%End If%>
212 
              <%End If%>
213 
 
214 
              <%If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%>
215 
                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
216 
              <%Else%>
217 
                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
218 
              <%End If%>
219 
 
220 
              <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>
221 
              <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
222 
              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
223 
              <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
224 
              <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>
225 
              <td background="images/bg_form_lightgray.gif" class="form_item"><a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%></a>&nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%></td>
226 
           </tr>
227 
           <%rsTemp.MoveNext
228 
           rsTemp.Close()
229 
           rsState.Close()
230 
 
231 
           Set rsState = nothing
232 
        WEnd
233 
        Set rsTemp = nothing
234 
        %>
235 
     </table>
236 
     <%If isDaemonEnabledRelease = FALSE Then%>
237 
        <input name="btn" type="submit" class="form_btn" value="Apply"><br>
238 
        <SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
239 
     <%End If%>
240 
     <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>
241 
     <input type="hidden" name="action" value="true">
242 
    <%End If%>
243 
    <%
244 
    Call objFormComponent.FormEnd()
245 
    '-- FROM END ----------------------------------------------------------------------------------------------------------------
246 
    %>
5946 dpurdie 247 
    <!-- Used by Projects Exact ---------------------------------------->
248 
    <span class="body_sect" onClick="ToggleUsedByControl('EPROJECT','RequestUsedByThisProjectSummary.asp?pv_id=<%=parPv_id%>&mode=2');">
249 
        <img id=IMG_EPROJECT src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
250 
        Projects that use this version: (<%=pkgInfoHash.Item("pkg_name")%>&nbsp;<%=pkgInfoHash.Item("pkg_version")%>)
5939 dpurdie 251 
        </span>
252 
        <%=Quick_Help("project")%>
5946 dpurdie 253 
    <DIV class="form_item" id="EPROJECT" style="display:none;"><%=enumLOADING%></DIV>
254 
    <!-- Used by Projects Name.Suffix ---------------------------------------->
5939 dpurdie 255 
    <br>
5946 dpurdie 256 
    <span class="body_sect" onClick="ToggleUsedByControl('APROJECT','RequestUsedByThisProjectSummary.asp?pv_id=<%=parPv_id%>&mode=1');">
257 
        <img id=IMG_APROJECT src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
258 
        Projects that use this package and project suffix: (<%=pkgInfoHash.Item("pkg_name")%><%=pkgInfoHash.Item("v_ext")%>)
5939 dpurdie 259 
        </span>
5946 dpurdie 260 
        <%=Quick_Help("project")%>
261 
    <DIV class="form_item" id="APROJECT" style="display:none;"><%=enumLOADING%></DIV>
262 
    <!-- Used by Projects Name only---------------------------------------->
263 
    <br>
264 
    <span class="body_sect" onClick="ToggleUsedByControl('PROJECT','RequestUsedByThisProjectSummary.asp?pv_id=<%=parPv_id%>&mode=0' );">
265 
        <img id=IMG_PROJECT src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
266 
        Projects that use this package name: (<%=pkgInfoHash.Item("pkg_name")%>)
267 
        </span>
5939 dpurdie 268 
        <%=Quick_Help("projectMatch")%>
5946 dpurdie 269 
    <DIV class="form_item" id="PROJECT" style="display:none;"><%=enumLOADING%></DIV>
5939 dpurdie 270 
    <!-- Used by Packages Exact ---------------------------------------->
271 
    <br>
5946 dpurdie 272 
    <span class="body_sect" onClick="ToggleUsedByControl('EPKGSUMMARY','UsedByPackageSummary.asp?pv_id=<%=parPv_id%>&mode=2');">
5939 dpurdie 273 
        <img id=IMG_EPKGSUMMARY src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
5946 dpurdie 274 
        Packages used by this version: (<%=pkgInfoHash.Item("pkg_name")%>&nbsp;<%=pkgInfoHash.Item("pkg_version")%>)
5939 dpurdie 275 
    </span><%=Quick_Help("packageMatch")%>
276 
    <DIV class="form_item" id="EPKGSUMMARY" name="EPKGSUMMARY" style="display:none;"><%=enumLOADING%></DIV>
5946 dpurdie 277 
    <!-- Used by Packages Name.Suffix ---------------------------------------->
278 
    <br>
279 
    <span class="body_sect" onClick="ToggleUsedByControl('APKGSUMMARY','UsedByPackageSummary.asp?pv_id=<%=parPv_id%>&mode=1');">
280 
        <img id=IMG_APKGSUMMARY src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
281 
        Packages that use this package and project suffix: (<%=pkgInfoHash.Item("pkg_name")%><%=pkgInfoHash.Item("v_ext")%>)
282 
    </span><%=Quick_Help("package")%>
283 
    <DIV class="form_item" id="APKGSUMMARY" name="APKGSUMMARY" style="display:none;"><%=enumLOADING%></DIV>
284 
    <!-- Used by Packages Name Only ---------------------------------------->
285 
    <br>
286 
    <span class="body_sect" onClick="ToggleUsedByControl('PKGSUMMARY','UsedByPackageSummary.asp?pv_id=<%=parPv_id%>&mode=0');">
287 
        <img id=IMG_PKGSUMMARY src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
288 
        Packages that use this package name: (<%=pkgInfoHash.Item("pkg_name")%>
289 
    </span><%=Quick_Help("package")%>)
290 
    <DIV class="form_item" id="PKGSUMMARY" name="PKGSUMMARY" style="display:none;"><%=enumLOADING%></DIV>
5945 dpurdie 291 
    <!-- Used by SDK Exact ---------------------------------------->
292 
    <br>
293 
    <span class="body_sect" onClick="ToggleUsedByControl('ESDKSUMMARY','UsedBySDKSummary.asp?pv_id=<%=parPv_id%>&mode=2');">
294 
        <img id=IMG_ESDKSUMMARY src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
5946 dpurdie 295 
        SDKs that use this version: (<%=pkgInfoHash.Item("pkg_name")%>&nbsp;<%=pkgInfoHash.Item("pkg_version")%>)
5945 dpurdie 296 
    </span><%=Quick_Help("packageMatch")%>
297 
    <DIV class="form_item" id="ESDKSUMMARY" style="display:none;"><%=enumLOADING%></DIV>
298 
    <!-- Used by SDK Package.Project------------------------------->
299 
    <br>
300 
    <span class="body_sect" onClick="ToggleUsedByControl('ASDKSUMMARY','UsedBySDKSummary.asp?pv_id=<%=parPv_id%>&mode=1');">
301 
        <img id=IMG_ASDKSUMMARY src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
5946 dpurdie 302 
        SDKs that use this package and project suffix: (<%=pkgInfoHash.Item("pkg_name")%><%=pkgInfoHash.Item("v_ext")%>)
5945 dpurdie 303 
    </span><%=Quick_Help("packageMatch")%>
304 
    <DIV class="form_item" id="ASDKSUMMARY" style="display:none;"><%=enumLOADING%></DIV>
305 
    <!-- Used by SDK Package.Project------------------------------->
306 
    <br>
307 
    <span class="body_sect" onClick="ToggleUsedByControl('PSDKSUMMARY','UsedBySDKSummary.asp?pv_id=<%=parPv_id%>&mode=0');">
308 
        <img id=IMG_PSDKSUMMARY src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
5946 dpurdie 309 
        SDKs that use this package name: (<%=pkgInfoHash.Item("pkg_name")%>)
5945 dpurdie 310 
    </span><%=Quick_Help("packageMatch")%>
311 
    <DIV class="form_item" id="PSDKSUMMARY" style="display:none;"><%=enumLOADING%></DIV>
5927 dpurdie 312 
 
313 
    <p>
314 
    <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>
315 
    <br>
5932 dpurdie 316 
<%End If%>