Subversion Repositories DevTools

Rev

Rev 6579 | 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
%>
6181 dpurdie 22
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 23
<!--#include file="_access_control_general.asp"-->
24
<%
25
'------------ Variable Definition -------------
26
Dim rsCQ
27
Dim ddWidth
28
Dim parIss_db
29
Dim parIss_id
30
'------------ Constants Declaration -----------
31
'------------ Variable Init -------------------
32
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
33
Call Get_Iss_Parameters ( parIss_db, parIss_id )
34
ddWidth = 20
35
'----------------------------------------------
36
%>
37
<%
38
Sub Get_Issue_Notes ( NNiss_db, NNiss_id, OOrsCQ )
39
    Dim SQLstr
40
    If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
41
        SQLstr = _
42
        "SELECT dbid AS iss_id, new_num AS iss_num, headline AS summary, dbms_lob.substr( notes_log, 4000, 1 ) as notes_log"&_
43
        " FROM release_manager.CQ_software_issue si"&_
44
        " WHERE si.dbid = "& NNiss_id
45
    End If
46
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
47
End Sub
48
%>
49
<%
50
Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ )
51
%>
52
<!--#include file="_menu_def.asp"-->
53
<html>
54
<head>
55
<title>Release Manager</title>
56
<link rel="shortcut icon" href="<%=FavIcon%>"/>
57
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
58
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 59
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
60
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
61
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 62
<script language="JavaScript">
63
<!--
64
function height()
65
{
66
	if( typeof( window.innerWidth ) == 'number' )
67
	{
68
		h = window.innerHeight;
69
	}
70
	else if(document.documentElement&&(document.documentElement.clientHeight ))
71
	{
72
		h = document.documentElement.clientHeight;
73
	}
74
	else if( document.body &&	( document.body.clientWidth || document.body.clientHeight ) )
75
	{
76
		h = document.body.clientHeight;
77
	}
78
 
79
	var e = document.getElementById("LayerDescription");
80
 
81
	if (navigator.userAgent.indexOf('Internet Explorer'))
82
	{
83
		e.style.height = h - 150 + "px";
84
		e.style.overflow = "auto";
85
	}
86
	else
87
	{
88
		// This line shouldn't be run by IE; it doesn't seem to work. It gets run in Firefox, etc.
89
		e.style.minHeight= h - 150 + "px";
90
		e.style.overflow = "auto";
91
	}
92
}
93
//-->
94
</script>
95
 
96
 
97
</head>
98
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();height();" onresize="height();">
99
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
100
  <tr>
101
    <td width="1%" background="images/bg_lght_gray.gif">&nbsp;</td>
102
    <td width="100%" background="images/bg_lght_gray.gif"><span class="form_field"><br>&nbsp;Issue</span>
103
      <input name="FRpname" type="text" class="form_item" size="12" value="<%=rsCQ("iss_num")%>" readonly>
104
      <input name="FRpname2" type="text" class="form_item" size="80" value="<%=rsCQ("summary")%>" readonly> </td>
105
  </tr>
106
  <tr>
107
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="400"></td>
108
    <td valign="top" background="images/bg_form_lightbluedark.gif">
109
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
110
        <tr>
6790 dpurdie 111
          <td align="left" background="images/bg_lght_gray.gif"><br>
5357 dpurdie 112
            <!-- TABS ------------------------------------------->
113
            <%Call Generate_Tab_Menu ( TABarray4, "Notes", "blue" )%>
114
            <!------------------------------------------------------------->
115
          </td>
116
        </tr>
117
        <tr>
118
          <td background="images/lbox_bg_blue.gif">&nbsp;</td>
119
        </tr>
120
      </table><br>
121
      <table width="100%" border="0" cellspacing="5" cellpadding="1">
122
        <tr>
123
          <td background="images/bg_vtree_h1.gif">
124
		      <table width="100%" border="0" cellspacing="0" cellpadding="2">
125
		        <tr>
126
		          <td bgcolor="White" class="form_item"><span class="form_field">Notes Log</span><br>
127
					<div id="LayerDescription" style="height:height(); overflow: auto;">
128
					<%
129
					If NOT IsNull(rsCQ("notes_log")) OR (rsCQ("notes_log") <> "") Then
130
						Response.write NewLine_To_BR( Server.HTMLEncode( rsCQ("notes_log") ) )
131
					End If
132
					%>
133
					</div>
134
				  </td>
135
		        </tr>
136
		      </table>
137
		  </td>
138
        </tr>
139
      </table><br>
140
	  </td>
141
  </tr>
142
  <tr>
143
    <td background="images/bg_lght_gray.gif">&nbsp;</td>
144
    <td background="images/lbox_bg_blue.gif">&nbsp;</td>
145
  </tr>
146
</table>
147
</body>
148
</html>
149
<!-- DESTRUCTOR ------->
150
<!--#include file="common/destructor.asp"-->