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>
185 brianf 69
		    <td width="100%" background="images/bg_action_norm.gif"><%Call RenderActionBar(parRtag_id,parPv_id)%></td>
119 ghuddy 70
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
71
		  </tr>
183 brianf 72
          <tr>
73
            <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td>
187 brianf 74
            <td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td>
183 brianf 75
            <td background="images/bg_lght_gray.gif">&nbsp;</td>
76
          </tr>
119 ghuddy 77
		  <tr>
78
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
79
		    <td valign="bottom" background="images/bg_lght_gray.gif">
80
		      <table width="100" border="0" cellspacing="0" cellpadding="0">
81
		        <tr>
82
		          <td><IMG height=1 src="images/spacer.gif" width=50></td>
83
		          <td>
84
				  <!-- TABS ------------------------------------->
85
				  <%Call Generate_Tab_Menu ( TABarray1, "Documentation", "orange" )%>
86
				  </td>
87
		        </tr>
88
		      </table>
89
		    </td>
90
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
91
		  </tr>
92
		  <tr>
93
		    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
94
		    <td background="images/lbox_bg_orange.gif">
95
			<!-- TAB ACTION BUTTONS ------------------------------------->
96
			<%Call Action_Buttons ( "Documentation" )%> 
97
			</td>
98
		    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
99
		  </tr>
100
		  <tr>
101
		    <td></td>
102
		    <td valign="top">
103
			<!-- DETAILS ------------------------------------------------->
104
			<br> 					  
105
                        <span class="body_colb">Documentation</span><br>
106
                        <table width="100%" border="0" cellspacing="1" cellpadding="2">
107
                          <tr> 
108
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;Download&nbsp;</td>
109
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Title&nbsp;&nbsp;</td>
110
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Document Number&nbsp;&nbsp;</td>
111
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Version&nbsp;&nbsp;</td>
112
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Created&nbsp;&nbsp;</td>
113
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
114
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"></td>
115
                          </tr>
116
                          <%
117
						  Dim sDocTitle, sDoc_version, dDoc_created, sLink
118
						  OraDatabase.Parameters.Add "PV_ID", parPv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER 
119
 
120
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDocumentation.sql"), cint(0))
121
						  %>
122
                          <%If rsTemp.RecordCount < 1 Then%>
123
                          <tr> 
124
                            <td background="images/bg_form_lightgray.gif" nowrap>&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
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
129
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
130
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
131
                          </tr>
132
                          <%End If%>
133
                          <%Do While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
134
						  	<%
135
							If IsNull(rsTemp("is_latest")) Then
136
								retVal =  Short_Document_Details ( rsTemp("doc_id"), sDocTitle, sDoc_version, dDoc_created  )
137
								sLink = DocRepositiryLinkOld & rsTemp("doc_id")
138
							Else
139
								retVal =  Lookup_Document ( rsTemp("doc_num"), sDocTitle, NULL, NULL, dDoc_created  )
140
								sLink = DocRepositiryLink & rsTemp("doc_num")
141
								sDoc_version = "Latest"
142
							End If
143
 
144
							If retVal <> 0 Then Exit Do
145
							%>
146
                          <tr>
147
							<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>
148
                            <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>
149
                            <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("doc_num")%></td>
150
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=FormatVersion( sDoc_version )%></td>
151
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=EuroDate ( dDoc_created )%></td>
152
							<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>
153
                           	<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>
154
                          </tr>
155
                          <%rsTemp.MoveNext
156
						  Loop
157
						  rsTemp.Close
158
						  Set rsTemp = nothing
159
						  OraDatabase.Parameters.Remove "PV_ID"
160
						  %>
161
                        </table>
162
						<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
163
                        <!------------------------------------------------------------>
164
           <br>
165
 
166
			<!-- END DETAILS ------------------------------------------------->
167
			</td>
168
		    <td>&nbsp;</td>
169
		  </tr>
170
		</table>
171
		<!-- END MIDDLE -------->
172
		</td>
173
	</tr>
174
</table>
175
 
176
<!-- FOOTER -->
177
<!--#include file="_footer.asp"-->
178
 
179
</body>
180
</html>			
181
<%
182
Call Destroy_All_Objects
183
%>