<%@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 Dim canEdit '------------ Constants Declaration ----------- '------------ Variable Init ------------------- criticalSectionIsEditable = Is_Critical_Section_Editable ( pkgInfoHash.Item ("dlocked") ) canEdit = pkgInfoHash.Item("dlocked") = "N" OR (pkgInfoHash.Item("dlocked") = "R") OR criticalSectionIsEditable '---------------------------------------------- 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 --------------------------- %>

<%Call RenderActionBar(parRtag_id,parPv_id)%> <%Call RenderStatus(parRtag_id,parPv_id)%>     <%Call Generate_Tab_Menu ( TABarray1, "Runtime", "orange" )%>   <%Call Action_Buttons_State ( "Runtime Dependencies", canEdit )%> 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))%> <%BuildActionButtonClick canEdit,"", "Edit", False, _ "src='images/i_edit.gif' width='12' height='12' hspace='3' vspace='3' border='0'", _ "MM_openVixIFrame('_wform_update_runtime_dependency.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&rtd_id=" & rsTemp("rtd_id") & "','Update Runtime Dependency')" %> <%BuildActionButtonClick canEdit, "", "Delete", false, _ "src='images/i_delete.gif' width='13' height='12' hspace='3' border='0'",_ "vixConfirm('Are you sure you want to delete this Runtime Dependency?', {url : '"& "_remove_runtime_dependency.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&rtd_id=" & rsTemp("rtd_id") &"'})"%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%> Product   Version   Comments URL Added               <%=rsTemp("pkg_name")%> <%=rsTemp("pkg_version")%> <%=rsTemp("rtd_comments")%> <%If NOT IsNull(rsTemp("rtd_url")) Then Response.write ""%> <%=DisplayDate(rsTemp("mod_date"))%> by <%=emailField(enum_imgUser & rsTemp("full_name") ,rsTemp("user_email"))%>