Blame | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| USED BY |'| |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/common_dbedit.asp"--><!--#include file="_tabs.asp"--><!--#include file="common/_package_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim rsTemp, rsStateDim projIdDim rsQry'------------ Constants Declaration -----------Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"Const IMG_GAP = "<img src='images/spacer.gif' width='20' height='1' border='0'>"Const IMG_POINTER = "<img src='images/i_pointer.gif' border='0'>"'------------ Variable Init -------------------'----------------------------------------------%><%'-----------------------------------------------------------------------------------------------------------------------------Sub SetUnignoreWarnings (strList)'Response.Write( pkgInfoHash.Item ("pkg_id"))OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "SELECTED", strList, ORAPARM_INPUT, ORATYPE_VARCHAR2If pkgInfoHash.Item ("v_ext") <> "" ThenOraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2ElseOraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2End IfSet rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UnIgnoreUsedByPackagesInThisRelease.sql"), cint(0))While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))Call SetIgnoreWarnings(NULL, rsTemp("pv_id"))rsTemp.MoveNext()WendSet rsTemp = NothingrsTemp.Close()OraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "PKG_ID"OraDatabase.Parameters.Remove "V_EXT"OraDatabase.Parameters.Remove "SELECTED"End Sub'---------------------------------------------------------------------------------------------------------------------Sub SetIgnoreWarnings (dpvId, pvId)OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "PV_ID", pvId, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "IGNORE_ID_LIST", dpvId, ORAPARM_INPUT, ORATYPE_VARCHAR2OraSession.BeginTransOraDatabase.ExecuteSQL _"BEGIN "&_" Ignore_Dependency_Warnings( :RTAG_ID, :PV_ID, :IGNORE_ID_LIST, FALSE, :USER_ID ); "&_"END; "OraSession.CommitTransOraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "PV_ID"OraDatabase.Parameters.Remove "USER_ID"OraDatabase.Parameters.Remove "IGNORE_ID_LIST"End Sub'-----------------------------------------------------------------------------------------------------------------------------If Request("action") <> "" Then%><!--#include file="_access_control_login.asp"--><!--#include file="_access_control_project.asp"--><%If ( parRtag_id <> "") AND (parPv_id <> "") ThenDim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strListSet pvIdList = CreateObject("Scripting.Dictionary")'On Error Resume Nexttxt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))posComma = InStr(txt, ",")While posComma <> 0'Response.Write(txt)value = Mid(txt, 1, posComma-1)posUnderscore = Instr(value, "_")pvId = Mid(value, 1, posUnderscore - 1)dpvId = Mid(value, posUnderscore + 1, posComma-1)Call SetIgnoreWarnings(dpvId, pvId)pvIdList.Add CStr( pvId ), Emptytxt = Mid(txt, posComma + 1, Len(txt))posComma = InStr(txt, ",")WendIf posComma = 0 And Len(txt) > 0 ThenposUnderscore = Instr(txt, "_")pvId = Mid(txt, 1, posUnderscore - 1)dpvId = Mid(txt, posUnderscore + 1)Call SetIgnoreWarnings(dpvId, pvId)pvIdList.Add CStr( pvId ), EmptyEnd ifapvIdList = pvIdList.Keys'strList = 0'For Each pvId In apvIdList' strList = strList&", "&pvId'Next'Call SetUnignoreWarnings (strList)'Call Notify ( parRtag_id )Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)ElseResponse.write "Some mandatory parameters are missing!" & "<br>" 'TODOResponse.write QSTR_AllEnd IfEnd If%><html><title><%=Title(Request("rtag_id"))%></title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script><script language="JavaScript" src="scripts/remote_scripting.js"></script><script language="javascript"><!--function checkUncheckAll(theElement) {var theForm = theElement.form, z = 0;for(z=0; z<theForm.length;z++){if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){theForm[z].checked = theElement.checked;}}}//--></script><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js"></script><script language="JavaScript" type="text/javascript"><!--function RequestUsedByThisProject( paramString, rowId ){var requestURL = 'RequestUsedByThisProject.asp';// Show divToggleDisplay( 'PROJECT_'+ rowId, 'IMG_EXPAND_USED_BY_' + rowId, 'IMG_COLLAPSE_USED_BY_' + rowId );// Set ajax divnameajaxdivname = 'PROJECT_'+ rowId;if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>'){//Append the name to search for to the requestURLvar url = requestURL + paramString;//Create the xmlHttp object to use in the request//stateChangeHandler will fire when the state has changed, i.e. data is received back// This is non-blocking (asynchronous)xmlHttp = GetXmlHttpObject(stateChangeHandler);//Send the xmlHttp get to the specified urlxmlHttp_Get(xmlHttp, url);}}//--></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- MENU LAYERS --------------------------------------><div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"><!-----------------------------------------------------></div><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td valign="top" width="1" background="images/bg_bage.gif"><!-- LEFT --><!--#include file="_environment.asp"--></td><td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td><td valign="top" width="100%"><!-- MIDDLE --><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td><td width="100%" background="images/bg_action_norm.gif"><!--#include file="_pkg_action_buttons.asp"--></td><td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td></tr><!-- PACKAGE PROPERTIES ---------------------------- --><%Call RenderPackageProperties ()%><tr><td background="images/bg_lght_gray.gif"> </td><td valign="bottom" background="images/bg_lght_gray.gif"><table width="100" border="0" cellspacing="0" cellpadding="0"><tr><td><IMG height=1 src="images/spacer.gif" width=50></td><td><!-- TABS -------------------------------------><%Call Generate_Tab_Menu ( TABarray1, "Used by", "orange" )%></td></tr></table></td><td background="images/bg_lght_gray.gif"> </td></tr><tr><td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td><td background="images/lbox_bg_orange.gif"><!-- TAB ACTION BUTTONS -------------------------------------></td><td background="images/lbox_bg_orange.gif"> </td></tr><tr><td></td><td valign="top"><!-- DETAILS -------------------------------------------------><%'-- FROM START ---------------------------------------------------------------------------------------------------------objFormComponent.FormName = "FormName"objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_idCall objFormComponent.FormStart()%><%If Request("rtag_id") <> "" Then%><br><span class="body_sect">Used by Packages In This Release</span> <br><!-- USED BY ------------------------------------------------><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><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><td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td><td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td><td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td><td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td><td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td></tr><%OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBERIf pkgInfoHash.Item ("v_ext") <> "" ThenOraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2ElseOraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2End IfSet rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))OraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "PKG_ID"OraDatabase.Parameters.Remove "V_EXT"%><%If rsTemp.RecordCount < 1 Then%><tr><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" nowrap> </td><br><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td></tr><%End If%><%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%><tr><%Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%><%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%><td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td><%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%><td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td><%Else%><td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td><%End If%><%If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%><td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td><%Else%><td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td><%End If%><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><td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td><td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td><td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td><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><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> <%=EuroDate ( rsTemp("modified_stamp") )%></td></tr><%rsTemp.MoveNextrsTemp.Close()rsState.Close()Set rsState = nothingWEndSet rsTemp = nothing%></table><input name="btn" type="submit" class="form_btn" value="Apply"><br><SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br><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><br><br><input type="hidden" name="action" value="true"><%End If%><%Call objFormComponent.FormEnd()'-- FROM END ----------------------------------------------------------------------------------------------------------------%><!------------------------------------------------------------><br><span class="body_sect">Used by Projects</span><table width="100%" border="0" cellspacing="1" cellpadding="4"><tr><td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td><td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td></tr><%Dim currWorld, bgColor, linkSynccurrWorld = -1OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBERIf pkgInfoHash.Item ("v_ext") <> "" ThenOraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2ElseOraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2End IfSet rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )OraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "PKG_ID"OraDatabase.Parameters.Remove "V_EXT"%><%If rsTemp.RecordCount < 1 Then%><tr><td background="images/bg_form_lightgray.gif" nowrap class="form_item"> </td><td background="images/bg_form_lightgray.gif" nowrap class="form_item"> </td></tr><%End If%><%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))projId = rsTemp("proj_id")%><tr><td background="images/bg_form_lightgray.gif" class="form_item"></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><SPAN id="IMG_EXPAND_USED_BY_<%=projId%>" name="IMG_EXPAND_USED_BY_<%=projId%>" style="display:block;"><a href="javascript:;" class="txt_linked" onClick="RequestUsedByThisProject('?pv_id=<%=pkgInfoHash.Item("pv_id")%>&proj_id=<%=projId%>', '<%=projId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN><SPAN id="IMG_COLLAPSE_USED_BY_<%=projId%>" name="IMG_COLLAPSE_USED_BY_<%=projId%>" style="display:none;"><a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'PROJECT_<%=projId%>', 'IMG_EXPAND_USED_BY_<%=projId%>', 'IMG_COLLAPSE_USED_BY_<%=projId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN><DIV id="PROJECT_<%=projId%>" name="PROJECT_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV></td></tr><%rsTemp.MoveNextWEndrsTemp.CloseSet rsTemp = nothing%></table><br><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><br><!-- END DETAILS -------------------------------------------------> </td><td> </td></tr></table><!-- END MIDDLE --------></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>