<%=Title(Request("rtag

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Run Time Dependencies | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp Dim rsQry Dim criticalSectionIsEditable '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Function Get_Runtime_Dependencies ( NNpv_id ) Get_Runtime_Dependencies = _ " SELECT rtd.rtd_id, pkg.pkg_name, pv.pkg_version, rtd.rtd_comments, rtd.rtd_url, "&_ " rtd.mod_date, usr.full_name, usr.user_email"&_ " FROM packages pkg, package_versions pv, runtime_dependencies rtd, users usr"&_ " WHERE pv.pkg_id = pkg.pkg_id"&_ " AND rtd.rtd_id = pv.pv_id"&_ " AND rtd.mod_user = usr.user_id"&_ " AND rtd.pv_id = "& NNpv_id &_ " ORDER BY UPPER(pkg.pkg_name) " End Function %> <% '------------------------- MAIN LINE --------------------------- criticalSectionIsEditable = Is_Critical_Section_Editable ( pkgInfoHash.Item ("dlocked") ) %> <%=Title(Request("rtag_id"))%>

<%Call RenderActionBar(parRtag_id,parPv_id)%>

<%Call RenderStatus(parRtag_id,parPv_id)%>

<%Call Generate_Tab_Menu ( TABarray1, "Runtime", "orange" )%>

<%Call Action_Buttons ( "Runtime Dependencies" )%>

Runtime Dependencies
<%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Runtime_Dependencies ( parPv_id ), cint(0))%> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%If (pkgInfoHash.Item("dlocked") = "N") OR (pkgInfoHash.Item("dlocked") = "R") Then%> <%Else%> <%End If%> <%If pkgInfoHash.Item("dlocked") = "N" OR (pkgInfoHash.Item("dlocked") = "R") Then%> <%Else%> <%End If%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%>

	Product	Version	Comments	URL	Added

','UpdateRTD','resizable=yes,width=500,height=350')">		<%=rsTemp("pkg_name")%>	<%=rsTemp("pkg_version")%>	<%=rsTemp("rtd_comments")%>	<%If NOT IsNull(rsTemp("rtd_url")) Then Response.write ""%>	<%=EuroDate(rsTemp("mod_date")) &" by "& rsTemp("full_name") &""%>	" onClick="return confirmDelete('this Runtime Dependency');">

<% Call Destroy_All_Objects %>