<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| USED BY | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp, rsState Dim projId Dim rsQry Dim isDaemonEnabledRelease '------------ Constants Declaration ----------- Const IMG_SVTREE = "" Const IMG_WORLD = "" Const IMG_GAP = "" Const IMG_POINTER = "" '------------ Variable Init ------------------- '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- Sub SetUnignoreWarnings (strList) 'Response.Write( pkgInfoHash.Item ("pkg_id")) OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "SELECTED", strList, ORAPARM_INPUT, ORATYPE_VARCHAR2 If pkgInfoHash.Item ("v_ext") <> "" Then OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Else OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2 End If Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UnIgnoreUsedByPackagesInThisRelease.sql"), cint(0)) While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Call SetIgnoreWarnings(NULL, rsTemp("pv_id"), parRtag_id) rsTemp.MoveNext() Wend Set rsTemp = Nothing rsTemp.Close() OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "V_EXT" OraDatabase.Parameters.Remove "SELECTED" End Sub '----------------------------------------------------------------------------------------------------------------------------- isDaemonEnabledRelease = is_daemon_enabled_release(parRtag_id, TRUE) If Request("action") <> "" Then %> <% If ( parRtag_id <> "") AND (parPv_id <> "") Then Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList If isDaemonEnabledRelease = FALSE Then Set pvIdList = CreateObject("Scripting.Dictionary") 'On Error Resume Next txt = 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, parRtag_id) pvIdList.Add CStr( pvId ), Empty txt = Mid(txt, posComma + 1, Len(txt)) posComma = InStr(txt, ",") WEnd If posComma = 0 And Len(txt) > 0 Then posUnderscore = Instr(txt, "_") pvId = Mid(txt, 1, posUnderscore - 1) dpvId = Mid(txt, posUnderscore + 1) Call SetIgnoreWarnings(dpvId, pvId, parRtag_id) pvIdList.Add CStr( pvId ), Empty End if apvIdList = pvIdList.Keys 'strList = 0 'For Each pvId In apvIdList ' strList = strList&", "&pvId 'Next 'Call SetUnignoreWarnings (strList) 'Call Notify ( parRtag_id ) End If Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id) Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If End If %> <%=Title(Request("rtag_id"))%>
<%Call RenderActionBar(parRtag_id,parPv_id)%>
<%Call RenderStatus(parRtag_id,parPv_id)%>  
 
<%Call Generate_Tab_Menu ( TABarray1, "Used by", "orange" )%>
 
 
<% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id Call objFormComponent.FormStart() %> <%If Request("rtag_id") <> "" Then%>
Used by Packages In This Release
<%If isDaemonEnabledRelease = FALSE Then%> <%End If%> <% OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER If pkgInfoHash.Item ("v_ext") <> "" Then OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Else OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2 End If Set 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%> <%If isDaemonEnabledRelease = FALSE Then%> <%End If%>
<%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <% Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%> <%If isDaemonEnabledRelease = FALSE Then%> <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%> <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%> <%Else%> <%End If%> <%End If%> <%If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%> <%Else%> <%End If%> <%rsTemp.MoveNext rsTemp.Close() rsState.Close() Set rsState = nothing WEnd Set rsTemp = nothing %>
Name Version Location Version Used Last Modified
              
_<%=rsTemp("dpv_id")%>">_<%=rsTemp("dpv_id")%>" disabled>_<%=rsTemp("dpv_id")%>" checked><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%> <%=rsTemp("pkg_version")%> <%=GetEnvName(rsTemp("env_area"))%> <%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%> parPv_id Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%> " class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%> <%=EuroDate ( rsTemp("modified_stamp") )%>
<%If isDaemonEnabledRelease = FALSE Then%>
NOTE: Click on Apply "To Ignore Warnings" On Packages Used By
<%End If%> NOTE: Versions in RED are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%>

<%End If%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>
Used by Projects <% Dim currWorld, bgColor, linkSync currWorld = -1 OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER If pkgInfoHash.Item ("v_ext") <> "" Then OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Else OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2 End If Set 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%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) projId = rsTemp("proj_id") %> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%>
Project
   
&proj_id=<%=projId%>', '<%=projId%>');"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%>

NOTE: Versions in RED are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%>
 
<% Call Destroy_All_Objects %>