Rev 119 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%Option explicitResponse.Expires = 0 ' always load the page, dont store%><%'=====================================================' VERSIONS HISTORY - RUNTIME'=====================================================%><!--#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="_wform_versions_history_main.asp"--><!--#include file="common/_popup_window_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim rsSQLDim retVal'------------ Constants Declaration -----------'------------ Variable Init -------------------'----------------------------------------------%><%'-----------------------------------------------------------------------------------------------------------------------------------Function DBGet_Runtime_Dependencies ( nPv_id )DBGet_Runtime_Dependencies = _" SELECT pv.pv_id, pv.pkg_id, pkg.pkg_name, pv.pkg_version, rtd.rtd_comments,"&_" rtd.rtd_url, rtd.mod_date, usr.full_name, usr.user_email"&_" FROM RUNTIME_DEPENDENCIES rtd, PACKAGES pkg, PACKAGE_VERSIONS pv, USERS usr"&_" WHERE rtd.rtd_id = pv.pv_id"&_" AND pv.pkg_id = pkg.pkg_id"&_" AND rtd.mod_user = usr.user_id"&_" AND rtd.pv_id = "& nPv_id &_" ORDER BY UPPER(pkg.pkg_name)"End Function'-----------------------------------------------------------------------------------------------------------------------------------%><!--#include file="_menu_def.asp"--><html><head><title>Release Manager</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" type="text/JavaScript"><!--function setLayerHeight () {var h = screen.height;MM_findObj("LayerDetails").style.height = (h-300)/2 +"px";MM_findObj("LayerVersions").style.height = (h-300)/2 +"px";}//--></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();setLayerHeight();"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"><tr><td width="1%" background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td><td width="100%" valign="top" background="images/bg_lght_gray.gif"><!--#include file="_version_browser.asp"--></td></tr><tr><td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="300"></td><td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td align="right" background="images/bg_lght_gray.gif"><br><!-- TABS -------------------------------------------><%If IsEmpty( Request("pv_id") ) ThenCall Generate_Tab_Menu ( TABarray5D, Empty, "blue" )ElseCall Generate_Tab_Menu ( TABarray5, "Documentation", "blue" )End If%><!-------------------------------------------------------------></td></tr><tr><td background="images/lbox_bg_blue.gif"> </td></tr></table><!---------------------------------------------- DETAILS ---------------------------------------------------><%If NOT IsEmpty( Request("pv_id") ) Then%><table width="100%" border="0" cellspacing="0" cellpadding="10"><tr><td><div id="LayerDetails" style="height: 350px; overflow: auto;" name="LayerDetails"><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"> Download </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Title </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Document Number </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">Created </td></tr><%Dim sDocTitle, sDoc_version, dDoc_createdOraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBERSet rsSQL = OraDatabase.DbCreateDynaset( GetQuery("PackageDocumentation.sql"), cint(0))%><%If rsSQL.RecordCount < 1 Then%><tr><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></tr><%End If%><%Do While ((NOT rsSQL.BOF) AND (NOT rsSQL.EOF))%><%If IsNull(rsSQL("is_latest")) ThenretVal = Short_Document_Details ( rsSQL("doc_id"), sDocTitle, sDoc_version, dDoc_created )ElseretVal = Lookup_Document ( rsSQL("doc_num"), sDocTitle, NULL, NULL, dDoc_created )sDoc_version = "Latest"End IfIf retVal <> 0 Then Exit Do%><tr><td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=DocRepositiryLink%><%=rsSQL("doc_num")%>" target="_blank"><img src="images/i_download_small.gif" width="16" height="16" border="0" title="Download document from repository"></a></td><td nowrap background="images/bg_form_lightgray.gif" valign="top" class="form_item"><a href="<%=DocRepositiryLink%><%=rsSQL("doc_num")%>" class="txt_linked" target="_blank"><%=sDocTitle%></a> </td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsSQL("doc_num")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=FormatVersion( sDoc_version )%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=EuroDate ( dDoc_created ) %></td></tr><%rsSQL.MoveNextLooprsSQL.CloseSet rsSQL = nothingOraDatabase.Parameters.Remove "PV_ID"%></table><%If retVal <> 0 Then Response.write enumMSSQL_ERROR%></div></td></tr></table><%End If%><!---------------------------------------------- END DETAILS ---------------------------------------------------></td></tr><tr><td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td><td background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="1" height="10"></td></tr></table></body></html><!-- DESTRUCTOR -------><!--#include file="common/destructor.asp"-->