Subversion Repositories DevTools

Rev

Rev 1281 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0    ' always load the page, dont store
%>
<%
'=====================================================
'                                       ISSUE NOTES
'=====================================================
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="_tabs.asp"-->
<!--#include file="common/cq_common_subs.asp"-->
<!--#include file="common/_popup_window_common.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim rsCQ
Dim ddWidth
Dim parIss_db
Dim parIss_id
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
Set rsCQ = Server.CreateObject("ADODB.Recordset")
Call Get_Iss_Parameters ( parIss_db, parIss_id )
ddWidth = 20
'----------------------------------------------
%>
<%
Sub Get_Issue_Notes ( NNiss_db, NNiss_id, OOrsCQ )
        Dim SQLstr
        If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
                SQLstr = _
                " SELECT dbid AS iss_id, new_num AS iss_num, headline AS summary, notes_log"&_
    "   FROM cq_devi.admin.software_issue si"&_
                "  WHERE si.dbid = "& NNiss_id
        End If
        OOrsCQ.ActiveConnection = CQ_conn
        OOrsCQ.Source = SQLstr
        OOrsCQ.CursorType = 0
        OOrsCQ.CursorLocation = 2
        OOrsCQ.LockType = 3
        OOrsCQ.Open()
End Sub
%>
<%
Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ )
%>
<!--#include file="_menu_def.asp"-->
<html>
<head>
<title>Release Manager</title>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
<link rel="stylesheet" href="images/navigation.css" type="text/css">
<script language="JavaScript" src="images/common.js"></script>
<script language="JavaScript">
<!--
function height()
{
        if( typeof( window.innerWidth ) == 'number' )
        {
                h = window.innerHeight;
        }
        else if(document.documentElement&&(document.documentElement.clientHeight ))
        {
                h = document.documentElement.clientHeight;
        }
        else if( document.body &&       ( document.body.clientWidth || document.body.clientHeight ) )
        {
                h = document.body.clientHeight;
        }

        var e = document.getElementById("LayerDescription");

        if (navigator.userAgent.indexOf('Internet Explorer'))
        {
                e.style.height = h - 150 + "px";
                e.style.overflow = "auto";
        }
        else
        {
                // This line shouldn't be run by IE; it doesn't seem to work. It gets run in Firefox, etc.
                e.style.minHeight= h - 150 + "px";
                e.style.overflow = "auto";
        }
}
//-->
</script>


</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();height();" onresize="height();">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="1%" background="images/bg_lght_gray.gif">&nbsp;</td>
    <td width="100%" background="images/bg_lght_gray.gif"><span class="form_field"><br>&nbsp;Issue</span>
      <input name="FRpname" type="text" class="form_item" size="12" value="<%=rsCQ("iss_num")%>" readonly>
      <input name="FRpname2" type="text" class="form_item" size="80" value="<%=rsCQ("summary")%>" readonly> </td>
  </tr>
  <tr>
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="400"></td>
    <td valign="top" background="images/bg_form_lightbluedark.gif">
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="right" background="images/bg_lght_gray.gif"><br>
            <!-- TABS ------------------------------------------->
            <%Call Generate_Tab_Menu ( TABarray4, "Notes", "blue" )%>
            <!------------------------------------------------------------->
          </td>
        </tr>
        <tr>
          <td background="images/lbox_bg_blue.gif">&nbsp;</td>
        </tr>
      </table><br>
      <table width="100%" border="0" cellspacing="5" cellpadding="1">
        <tr>
          <td background="images/bg_vtree_h1.gif">
                      <table width="100%" border="0" cellspacing="0" cellpadding="2">
                        <tr>
                          <td bgcolor="White" class="form_item"><span class="form_field">Notes Log</span><br>
                                        <div id="LayerDescription" style="height:height(); overflow: auto;">
                                        <%
                                        If NOT IsNull(rsCQ("notes_log")) OR (rsCQ("notes_log") <> "") Then
                                                Response.write NewLine_To_BR( Server.HTMLEncode( rsCQ("notes_log") ) )
                                        End If
                                        %>
                                        </div>
                                  </td>
                        </tr>
                      </table>
                  </td>
        </tr>
      </table><br>
          </td>
  </tr>
  <tr>
    <td background="images/bg_lght_gray.gif">&nbsp;</td>
    <td background="images/lbox_bg_blue.gif">&nbsp;</td>
  </tr>
</table>
</body>
</html>


<!-- DESTRUCTOR ------->
<!--#include file="common/destructor.asp"-->