Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|		           Documentation		             |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
13
%>
14
<!--#include file="common/conf.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<!--#include file="common/common_dbedit.asp"-->
20
<!--#include file="_tabs.asp"-->
21
<!--#include file="_action_buttons.asp"-->
22
<!--#include file="common/_package_common.asp"-->
23
<%
24
'------------ ACCESS CONTROL ------------------
25
%>
26
<!--#include file="_access_control_general.asp"-->
27
<%
28
'------------ Variable Definition -------------
29
Dim rsTemp
30
Dim	rsQry
31
Dim retVal
32
'------------ Constants Declaration -----------
33
'------------ Variable Init -------------------
34
'----------------------------------------------
35
%>
36
<html>
37
<title><%=Title(Request("rtag_id"))%></title>
38
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
39
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
40
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
41
<link rel="stylesheet" href="images/navigation.css" type="text/css">
42
<script language="JavaScript" src="images/common.js"></script>
43
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
44
 
45
<!-- DROPDOWN MENUS -->
46
<!--#include file="_menu_def.asp"-->
47
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
48
</head>
49
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
50
<!-- MENU LAYERS -------------------------------------->
51
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"> 
52
  <!----------------------------------------------------->
53
</div>
54
<!-- HEADER -->
55
<!--#include file="_header.asp"-->
56
<!-- BODY ---->
57
<table width="100%" border="0" cellspacing="0" cellpadding="0">
58
	<tr> 
59
		<td valign="top" width="1" background="images/bg_bage.gif">
60
		<!-- LEFT -->
61
		<!--#include file="_environment.asp"-->
62
		</td>
63
		<td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
64
		<td valign="top" width="100%">
65
		<!-- MIDDLE -->
66
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
67
		  <tr>
68
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
69
		    <td width="100%" background="images/bg_action_norm.gif"><!--#include file="_pkg_action_buttons.asp"--></td>
70
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
71
		  </tr>
72
		  <!-- PACKAGE PROPERTIES ----------------------------  -->
73
  		  <%Call RenderPackageProperties ()%>
74
		  <tr>
75
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
76
		    <td valign="bottom" background="images/bg_lght_gray.gif">
77
		      <table width="100" border="0" cellspacing="0" cellpadding="0">
78
		        <tr>
79
		          <td><IMG height=1 src="images/spacer.gif" width=50></td>
80
		          <td>
81
				  <!-- TABS ------------------------------------->
82
				  <%Call Generate_Tab_Menu ( TABarray1, "Documentation", "orange" )%>
83
				  </td>
84
		        </tr>
85
		      </table>
86
		    </td>
87
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
88
		  </tr>
89
		  <tr>
90
		    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
91
		    <td background="images/lbox_bg_orange.gif">
92
			<!-- TAB ACTION BUTTONS ------------------------------------->
93
			<%Call Action_Buttons ( "Documentation" )%> 
94
			</td>
95
		    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
96
		  </tr>
97
		  <tr>
98
		    <td></td>
99
		    <td valign="top">
100
			<!-- DETAILS ------------------------------------------------->
101
			<br> 					  
102
                        <span class="body_colb">Documentation</span><br>
103
                        <table width="100%" border="0" cellspacing="1" cellpadding="2">
104
                          <tr> 
105
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;Download&nbsp;</td>
106
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Title&nbsp;&nbsp;</td>
107
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Document Number&nbsp;&nbsp;</td>
108
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Version&nbsp;&nbsp;</td>
109
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Created&nbsp;&nbsp;</td>
110
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
111
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
112
                          </tr>
113
                          <%
114
						  Dim sDocTitle, sDoc_version, dDoc_created, sLink
115
						  OraDatabase.Parameters.Add "PV_ID", parPv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER 
116
 
117
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDocumentation.sql"), cint(0))
118
						  %>
119
                          <%If rsTemp.RecordCount < 1 Then%>
120
                          <tr> 
121
                            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
122
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
123
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
124
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
125
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
126
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
127
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
128
                          </tr>
129
                          <%End If%>
130
                          <%Do While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
131
						  	<%
132
							If IsNull(rsTemp("is_latest")) Then
133
								retVal =  Short_Document_Details ( rsTemp("doc_id"), sDocTitle, sDoc_version, dDoc_created  )
134
								sLink = DocRepositiryLinkOld & rsTemp("doc_id")
135
							Else
136
								retVal =  Lookup_Document ( rsTemp("doc_num"), sDocTitle, NULL, NULL, dDoc_created  )
137
								sLink = DocRepositiryLink & rsTemp("doc_num")
138
								sDoc_version = "Latest"
139
							End If
140
 
141
							If retVal <> 0 Then Exit Do
142
							%>
143
                          <tr>
144
							<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>
145
                            <td nowrap background="images/bg_form_lightgray.gif" valign="top" class="form_item"><a href="<%=sLink%>" class="txt_linked" target="_blank"><%=sDocTitle%></a>&nbsp;&nbsp;</td>
146
                            <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("doc_num")%></td>
147
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=FormatVersion( sDoc_version )%></td>
148
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=EuroDate ( dDoc_created )%></td>
149
							<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>
150
                           	<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>
151
                          </tr>
152
                          <%rsTemp.MoveNext
153
						  Loop
154
						  rsTemp.Close
155
						  Set rsTemp = nothing
156
						  OraDatabase.Parameters.Remove "PV_ID"
157
						  %>
158
                        </table>
159
						<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
160
                        <!------------------------------------------------------------>
161
           <br>
162
 
163
			<!-- END DETAILS ------------------------------------------------->
164
			</td>
165
		    <td>&nbsp;</td>
166
		  </tr>
167
		</table>
168
		<!-- END MIDDLE -------->
169
		</td>
170
	</tr>
171
</table>
172
 
173
<!-- FOOTER -->
174
<!--#include file="_footer.asp"-->
175
 
176
</body>
177
</html>			
178
<%
179
Call Destroy_All_Objects
180
%>