Rev 187 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| Run Time Dependencies |'| |'=====================================================%><%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="_action_buttons.asp"--><!--#include file="common/_package_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim rsTempDim rsQryDim 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") )%><html><head><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><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js"></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"><%Call RenderActionBar(parRtag_id,parPv_id)%></td><td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td></tr><tr><td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td><td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td><td background="images/bg_lght_gray.gif"> </td></tr><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, "Runtime", "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 -------------------------------------><%Call Action_Buttons ( "Runtime Dependencies" )%></td><td background="images/lbox_bg_orange.gif"> </td></tr><tr><td></td><td valign="top"><!-- DETAILS -------------------------------------------------><br><span class="body_colb">Runtime Dependencies</span><br><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Product </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Version </td><td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Comments</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">URL</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Added</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td></tr><%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Runtime_Dependencies ( parPv_id ), cint(0))%><%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" class="form_item"> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </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><%If (pkgInfoHash.Item("dlocked") = "N") OR (pkgInfoHash.Item("dlocked") = "R") Then%><td align="center" nowrap background="images/bg_form_lightgray.gif"><a href="javascript:;" onClick="MM_openBrWindow('_wform_update_runtime_dependency.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&rtd_id=<%=rsTemp("rtd_id")%>','UpdateRTD','resizable=yes,width=500,height=350')"><img src="images/i_edit.gif" alt="Edit" width="12" height="12" hspace="3" vspace="3" border="0"></a></td><%Else%><td align="center" nowrap background="images/bg_form_lightgray.gif"><img src="images/i_edit_disable.gif" alt="Edit disabled." width="12" height="12" hspace="3" vspace="3" border="0"></td><%End If%><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("pkg_name")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("pkg_version")%></td><td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("rtd_comments")%></td><td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%If NOT IsNull(rsTemp("rtd_url")) Then Response.write "<a href='http://"& rsTemp("rtd_url") &"' target='_blank'><img src='images/i_url.gif' width='15' height='15' hspace='3' vspace='3' border='0' alt='"& rsTemp("rtd_url") &"'></a>"%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=EuroDate(rsTemp("mod_date")) &" by <a href='mailto:"& rsTemp("user_email") &"' class='txt_linked'>"& rsTemp("full_name") &"</a>"%></td><%If pkgInfoHash.Item("dlocked") = "N" OR (pkgInfoHash.Item("dlocked") = "R") Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="_remove_runtime_dependency.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&rtd_id=<%=rsTemp("rtd_id")%>" onClick="return confirmDelete('this Runtime Dependency');"><img src="images/i_delete.gif" alt="Remove from list." width="13" height="12" hspace="3" border="0"></a></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><img src="images/i_delete_disable.gif" alt="Remove disabled." width="13" height="12" hspace="3" border="0"></td><%End If%></tr><%rsTemp.MoveNextWEndrsTemp.CloseSet rsTemp = nothing%></table><!------------------------------------------------------------><br><br><!-- END DETAILS -------------------------------------------------></td><td> </td></tr></table><!-- END MIDDLE --------></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>