Subversion Repositories DevTools

Rev

Rev 5514 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5356 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|			          Package_History				 |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
Response.Expires = 0
12
%>
13
<!--#include file="common/globals.asp"-->
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="class/classRepeater.asp"-->
17
 
18
<!--#include file="common/_product_common.asp"-->
19
<%
20
'------------ ACCESS CONTROL ------------------
21
%>
22
<!--#include file="_access_control_general.asp"-->
23
<%
24
'------------ VARIABLE DEFINITION -------------
25
Dim rsQry
26
Dim objRepeater
27
'------------ CONSTANTS DECLARATION -----------
28
'------------ VARIABLE INIT -------------------
29
Set objRepeater = New Repeater
30
'------------ CONDITIONS ----------------------
31
'----------------------------------------------
32
%>
33
<%
34
'------------ RUN BEFORE PAGE RENDER ----------
35
'----------------------------------------------
36
%>
37
<html>
38
<head>
39
<title>Production Manager</title>
40
<link rel="shortcut icon" href="<%=FavIcon%>"/>
41
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
42
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
43
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
44
<script language="JavaScript" src="scripts/common.js"></script>
45
</head>
46
 
47
<body leftmargin="0" topmargin="0">
48
<!-- HEADER ++++++++++++++++ -->
49
<!--#include file="_header.asp"-->
50
<!-- +++++++++++++++++++++++ -->
51
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
52
<!--#include file="_main_menu.asp"-->
53
<!-- +++++++++++++++++++++++++++++++++++++ -->
54
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
55
  <tr>
56
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
57
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
58
	<!--#include file="_bom_browser.asp"-->
59
	<!-- END OF NODE BROWSER +++++++++++++++ -->
60
	</td>
61
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
62
    <td width="100%" valign="top" bgcolor="#FFFFFF">
63
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
64
	  <tr>
65
        <td valign="top" background="images/bg_green.gif"></td>
66
        <td align="right" valign="bottom" background="images/bg_green.gif" class="body_txtw"><%Call RenderTitle( objProdCollector )%></td>
67
        <td background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="20"></td>
68
      </tr>
69
      <tr>
70
        <td width="1%" valign="top" background="images/bg_green.gif"></td>
71
        <td width="100%" valign="bottom" background="images/bg_green.gif">
72
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
73
		<!--#include file="_tabs_definition.asp"-->
74
		<%
75
		Set objTabControl = New TabControl
76
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
77
		objTabControl.TabStyle = "StyleWinXP"
78
		objTabControl.AddTabDefnition ( arrProdTabDef )
79
		objTabControl.SelectByName("Package History")
80
		objTabControl.Render ()
81
		%>
82
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
83
		</td>
84
        <td width="1%" background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="35"></td>
85
        </tr>
86
      <tr>
87
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
88
        <td background="images/bg_bage_0.gif">&nbsp;</td>
89
        <td background="images/bg_green.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
90
        </tr>
91
      <tr>
92
        <td>&nbsp;</td>
93
        <td>&nbsp;</td>
94
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
95
        </tr>
96
    </table>
97
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
98
      <tr>
99
        <td>
100
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
101
		<%
102
		OraDatabase.Parameters.Add "PROD_ID", 	Request("prod_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
103
 
104
 
105
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PkgHistory.sql") , ORADYN_DEFAULT )
106
 
107
		'Pass record set to Repeater
108
		objRepeater.RecordSet = rsQry
109
 
110
		'Define Table Row with bound variables
111
		objRepeater.Row = _
112
			"<tr>"&_
113
			"  <td bgcolor='#FFFFFF' class='body_smltxtg' nowrap valign='top'>""& <#DATE_TIME_STAMP#> &""</td>"&_
114
			"  <td bgcolor='#FFFFFF' class='body_row' valign='top'>""& <#TRAIL_ACTION#> &""</td>"&_
115
			"  <td bgcolor='#FFFFFF' class='body_row' nowrap valign='top'><a href='mailto:""& <#USER_EMAIL#> &""' class='body_link'>"&_
116
			"    <img src='icons/i_email.gif' width='15' height='10' hspace='2' border='0' align='absmiddle' title='Send email to ""& <#USER_EMAIL#> &""'>""& <#FULL_NAME#> &""</a></td>"&_
117
			"</tr>"
118
		%>
119
		<%Call objRepeater.Navigator ( TRUE, TRUE )%>
120
		<!-- DATA TABLE ++++++++++++++++++++++++++++++++++++++++++++++ -->
121
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
122
            <tr>
123
              <td background="images/bg_bage_0a.gif">
124
			   <table width="100%"  border="0" cellspacing="1" cellpadding="3">
125
                <tr>
126
                  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Date</td>
127
                  <td width="40%" background="images/bg_bage_0.gif" class="body_col" nowrap>Action</td>
128
				  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>User</td>
129
                </tr>
130
				<%objRepeater.RenderDataGrid ()%>
131
              </table>
132
			 </td>
133
            </tr>
134
          </table>
135
		  <%
136
		  OraDatabase.Parameters.Remove "PROD_ID"
137
 
138
		  rsQry.Close()
139
		  Set rsQry = Nothing
140
		  %>
141
		  <%Call objRepeater.Navigator ( FALSE, TRUE )%>
142
		<br>
143
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
144
		</td>
145
      </tr>
146
    </table>
147
	</td>
148
    <td width="1%" valign="top" background="images/bg_favourits.gif">
149
	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
150
 
151
	<%End If%>
152
   </td>
153
  </tr>
154
  <tr>
155
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
156
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
157
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
158
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
159
  </tr>
160
  <tr>
161
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
162
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
163
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
164
    <td bgcolor="#FFFFFF">&nbsp;</td>
165
  </tr>
166
</table>
167
<!-- FOOTER ++++++++++++++++ -->
168
<!--#include file="_footer.asp"-->
169
<!-- +++++++++++++++++++++++ -->
170
</body>
171
</html>