Rev 187 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| Documentation |'| |'=====================================================%><%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 retVal'------------ Constants Declaration -----------'------------ Variable Init -------------------'----------------------------------------------%><html><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, "Documentation", "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 ( "Documentation" )%></td><td background="images/lbox_bg_orange.gif"> </td></tr><tr><td></td><td valign="top"><!-- DETAILS -------------------------------------------------><br><span class="body_colb">Documentation</span><br><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><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"></td></tr><%Dim sDocTitle, sDoc_version, dDoc_created, sLinkOraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBERSet rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDocumentation.sql"), cint(0))%><%If rsTemp.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><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 rsTemp.BOF) AND (NOT rsTemp.EOF))%><%If IsNull(rsTemp("is_latest")) ThenretVal = Short_Document_Details ( rsTemp("doc_id"), sDocTitle, sDoc_version, dDoc_created )sLink = DocRepositiryLinkOld & rsTemp("doc_id")ElseretVal = Lookup_Document ( rsTemp("doc_num"), sDocTitle, NULL, NULL, dDoc_created )sLink = DocRepositiryLink & rsTemp("doc_num")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="<%=sLink%>" 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="<%=sLink%>" class="txt_linked" target="_blank"><%=sDocTitle%></a> </td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("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><td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="javascript:;" onClick="MM_openBrWindow('_wform_import_docs.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&version_id=<%=rsTemp("doc_id")%>&doc_num=<%=Server.URLEncode( rsTemp("doc_num") )%>&action=true&edit=true','ImportDocs','resizable=yes,width=600,height=220')" ><img src="images/i_edit.gif" title="Edit" hspace="3" border="0"></a></td><td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="_remove_doc.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=rsTemp("pv_id")%>&doc_id=<%=rsTemp("doc_id")%>" onClick="return confirmDelete('this Document entry');"><img src="images/i_delete.gif" title="Remove from list" width="13" height="12" hspace="3" border="0"></a></td></tr><%rsTemp.MoveNextLooprsTemp.CloseSet rsTemp = nothingOraDatabase.Parameters.Remove "PV_ID"%></table><%If retVal <> 0 Then Response.write enumMSSQL_ERROR%><!------------------------------------------------------------><br><!-- END DETAILS -------------------------------------------------></td><td> </td></tr></table><!-- END MIDDLE --------></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>