Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
5357 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
Option explicit
4
Response.Expires = 0	' always load the page, dont store
5
%>
6
<%
7
'=====================================================
8
'					ISSUE NOTES
9
'=====================================================
10
%>
11
<!--#include file="common/conf.asp"-->
12
<!--#include file="common/globals.asp"-->
13
<!--#include file="common/formating.asp"-->
14
<!--#include file="common/qstr.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="_tabs.asp"-->
17
<!--#include file="common/cq_common_subs.asp"-->
18
<!--#include file="common/_popup_window_common.asp"-->
19
<%
20
'------------ ACCESS CONTROL ------------------
21
%>
22
<!--#include file="_access_control_general.asp"-->
23
<%
24
'------------ Variable Definition -------------
25
Dim rsCQ
26
Dim ddWidth
27
Dim parIss_db
28
Dim parIss_id
29
'------------ Constants Declaration -----------
30
'------------ Variable Init -------------------
31
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
32
Call Get_Iss_Parameters ( parIss_db, parIss_id )
33
ddWidth = 20
34
'----------------------------------------------
35
%>
36
<%
37
Sub Get_Issue_Notes ( NNiss_db, NNiss_id, OOrsCQ )
38
	Dim SQLstr
39
	If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
40
		SQLstr = _
41
		" SELECT si.dbid AS iss_id, " &_
42
        "        si.new_num AS iss_num," &_
43
        "        si.headline AS summary," &_
44
        "        his.action_timestamp AS change_stamp," &_
45
        "        his.user_name, "&_
46
        "        his.action_name, " &_
47
        "        his.new_state"&_
48
        " FROM release_manager.CQ_software_issue si LEFT OUTER JOIN"&_
49
        "      release_manager.CQ_history his ON si.dbid = his.entity_dbid"&_
50
		"  WHERE si.dbid =  "& NNiss_id &_
51
		"  ORDER BY his.action_timestamp"
52
 
53
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
54
    End If
55
End Sub
56
%>
57
<%
58
Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ )
59
%>
60
<!--#include file="_menu_def.asp"-->
61
<html>
62
<head>
63
<title>Release Manager</title>
64
<link rel="shortcut icon" href="<%=FavIcon%>"/>
65
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
66
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
67
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
68
<link rel="stylesheet" href="images/navigation.css" type="text/css">
69
<script language="JavaScript" src="images/common.js"></script>
70
<script language="JavaScript" type="text/JavaScript">
71
<!--
72
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
73
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
74
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
75
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
76
}
77
MM_reloadPage(true);
78
//-->
79
</script>
80
</head>
81
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
82
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
83
  <tr>
84
    <td width="1%" background="images/bg_lght_gray.gif">&nbsp;</td>
85
    <td width="100%" background="images/bg_lght_gray.gif"><span class="form_field"><br>&nbsp;Issue</span>
86
      <input name="FRpname" type="text" class="form_item" size="12" value="<%=rsCQ("iss_num")%>" readonly>
87
      <input name="FRpname2" type="text" class="form_item" size="80" value="<%=rsCQ("summary")%>" readonly> </td>
88
  </tr>
89
  <tr>
90
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="400"></td>
91
    <td valign="top" background="images/bg_form_lightbluedark.gif">
92
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
93
        <tr>
94
          <td align="right" background="images/bg_lght_gray.gif"><br>
95
            <!-- TABS ------------------------------------------->
96
            <%Call Generate_Tab_Menu ( TABarray4, "History", "blue" )%>
97
            <!------------------------------------------------------------->
98
          </td>
99
        </tr>
100
        <tr>
101
          <td background="images/lbox_bg_blue.gif">&nbsp;</td>
102
        </tr>
103
      </table><br>
104
      <table width="100%" border="0" cellspacing="5" cellpadding="1">
105
        <tr>
106
          <td background="images/bg_vtree_h1.gif">
107
			<div id="LayerHistory" style="height:360px; overflow: auto;">
108
		            <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
109
		              <tr>
110
                        <td valign="top" bgcolor="#FFFFFF">
111
                          <table width="100%" border="0" cellspacing="0" cellpadding="0">
112
							<tr>
113
							  <td background="images/bg_vtree_footer.gif">
114
								<table width="100%" border="0" cellspacing="1" cellpadding="2">
115
								  <tr class="form_field">
116
									<td width="1%" nowrap background="images/bg_form_lightgray.gif">Change Date</td>
117
									<td width="100%" nowrap background="images/bg_form_lightgray.gif">User Name</td>
118
									<td width="1%" nowrap background="images/bg_form_lightgray.gif">Action</td>
119
									<td width="1%" nowrap background="images/bg_form_lightgray.gif">New State</td>
120
								  </tr>
121
								  <%If Not IsNull(rsCQ("change_stamp")) Then%>
122
								  <%While (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) %>
123
								  <tr class="form_item">
124
									<td bgcolor="#FFFFFF" nowrap><%=Day(rsCQ("change_stamp")) &"-"& MonthName(Month(rsCQ("change_stamp")), TRUE) &"-"& Year(rsCQ("change_stamp")) &" "& FormatDateTime( rsCQ("change_stamp"), 4 )%></td>
125
									<td bgcolor="#FFFFFF" nowrap><%=rsCQ("user_name")%></td>
126
									<td bgcolor="#FFFFFF" nowrap><%=rsCQ("action_name")%></td>
127
									<td bgcolor="#FFFFFF" nowrap><%=rsCQ("new_state")%></td>
128
								  </tr>
129
								  <%rsCQ.MoveNext
130
								    Wend%>
131
								  <%End If%>
132
								</table>
133
							  </td>
134
							</tr>
135
						  </table>
136
					    </td>
137
                      </tr>
138
                   </table>
139
            </div>
140
		  </td>
141
        </tr>
142
      </table><br>
143
	  </td>
144
  </tr>
145
  <tr>
146
    <td background="images/bg_lght_gray.gif">&nbsp;</td>
147
    <td background="images/lbox_bg_blue.gif">&nbsp;</td>
148
  </tr>
149
</table>
150
</body>
151
</html>
152
 
153
 
154
<!-- DESTRUCTOR ------->
155
<!--#include file="common/destructor.asp"-->