WebSVN – DevTools – /ManagerSuite/Release_Manager/branches/dpurdie/_wform_issues_details.asp

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0   ' always load the page, dont store
%>
<%
'=====================================================
'              ISSUE DETAILS
'=====================================================
%>
<!--#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
Dim childDevis()
Dim numChildDevis
Dim i
'------------ 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

numChildDevis = 0
'----------------------------------------------
%>
<%
Sub Get_Issue_Details ( NNiss_db, NNiss_id, OOrsCQ )
   Dim SQLstr
   Dim objRegEx
   Dim objMatches
   Dim match
   Dim rsCQ2

   If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
      SQLstr = _
      " SELECT si.dbid, si.new_num AS iss_num, si.headline AS summary, sdef.name AS status, si.priority AS priority, si.issue_type, si.release_part1, "&_
       "        si.release_part2, si.release_part3, si.project, si.product AS product, si.package_ref AS package, sb.fullname AS submitter, si.submit_date, ow.fullname AS owner, "&_
       "        ap.fullname AS approver, si.description, si.dependant_devis"&_
    " FROM cq_devi.admin.software_issue si INNER JOIN"&_
      "        cq_devi.admin.statedef sdef ON si.state = sdef.id INNER JOIN"&_
      "        cq_devi.admin.users sb ON si.submitter = sb.dbid INNER JOIN"&_
      "        cq_devi.admin.users ow ON si.owner = ow.dbid INNER JOIN"&_
      "        cq_devi.admin.users ap ON si.approver = ap.dbid"&_
      "  WHERE si.dbid = "& NNiss_id

   OOrsCQ.ActiveConnection = CQ_conn
   OOrsCQ.Source = SQLstr
   OOrsCQ.CursorType = 0
   OOrsCQ.CursorLocation = 2
   OOrsCQ.LockType = 3
   OOrsCQ.Open()

   ' Experimental code to obtain parent and child DEVIs for the currently displaying DEVI
   If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
      Set objRegEx = New RegExp
      objRegEx.IgnoreCase = True
      objRegEx.Pattern = "[1-9][0-9]+"

      If NOT IsNull(OOrsCQ("iss_num") ) Then
         set objMatches = objRegEx.Execute(OOrsCQ("iss_num") )
         Set rsCQ2 = Server.CreateObject("ADODB.Recordset")
         For each match in objMatches
            rsCQ2.ActiveConnection = CQ_conn
            rsCQ2.Source = " SELECT  si.new_num AS iss_num"&_
                           " FROM cq_devi.admin.software_issue si"&_
                           " WHERE si.dependant_devis like '%" & match & "%'"
            rsCQ2.CursorType = 0
            rsCQ2.CursorLocation = 2
            rsCQ2.LockType = 3
            rsCQ2.Open()
            While (NOT rsCQ2.BOF) AND (NOT rsCQ2.EOF)
               numChildDevis = numChildDevis + 1
               ReDim Preserve childDevis(numChildDevis)
               childDevis(numChildDevis-1) = rsCQ2("iss_num")
               rsCQ2.MoveNext
            Wend
            rsCQ2.Close()
         Next
         set objMatches = Nothing
         Set rsCQ2 = Nothing
      End If
      Set objRegEx = Nothing
   End If
 End If
End Sub
%>
<%If parIss_db <> enumCLEARQUEST_DEVI_ID Then Call RaiseMsg ( enum_WMSG_ERROR, "This option is not available for this issue's database!" )%>
<%Call Get_Issue_Details ( parIss_db, parIss_id, rsCQ )%>
<!--#include file="_menu_def.asp"-->
<html>
<head>
<title><%=rsCQ("iss_num")%> - <%=rsCQ("summary")%></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 - 350 + "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 - 350 + "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="<%=HTMLEncode(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, "Details", "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 align="right" background="images/bg_lght_gray.gif" class="form_field">Issue Type</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("issue_type")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Submitter</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("submitter")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                     </tr>
                     <tr>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Detected in Version</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("release_part1") &"."& rsCQ("release_part2") &"."& rsCQ("release_part3") %></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Submitted on Date</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=ToLongDate( rsCQ("submit_date")+1 )%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                     </tr>
                     <tr>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Project</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("project")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Owner</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("owner")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                     </tr>
                     <tr>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Product</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("product")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Approver</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("approver")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                     </tr>
                     <tr>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Package</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("package")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                        <%If parIss_db = enumCLEARQUEST_DEVI_ID Then%>
                           <td align="right" background="images/bg_lght_gray.gif" class="form_field">Parent Devi</td>
                           <td background="images/bg_lght_gray.gif">
                              <select name="group_id" class="form_item" disabled>
                                 <option selected><%=rsCQ("dependant_devis")%></option>
                                 <option><%=String(ddWidth, "_")%></option>
                              </select>
                           </td>
                        <%else%>
                           <td align="right" background="images/bg_lght_gray.gif" class="form_field">&nbsp;</td>
                           <td background="images/bg_lght_gray.gif">&nbsp;</td>
                        <%end if%>
                     </tr>
                     <tr>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Priority</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("priority")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                        <%If parIss_db = enumCLEARQUEST_DEVI_ID AND numChildDevis > 0 Then%>
                           <td align="right" background="images/bg_lght_gray.gif" class="form_field">Child Devis</td>
                           <td background="images/bg_lght_gray.gif">
                              <select name="group_id" class="form_item" enabled>
                                 <%For i = 0 To numChildDevis - 1%>
                                    <%If i = 0 Then%>
                                       <option selected><%=childDevis(i)%></option>
                                    <%else%>
                                       <option><%=childDevis(i)%></option>
                                    <%End If%>
                                 <%Next%>
                              </select>
                           </td>

                        <%else%>
                           <td align="right" background="images/bg_lght_gray.gif" class="form_field">&nbsp;</td>
                           <td background="images/bg_lght_gray.gif">&nbsp;</td>
                        <%end if%>
                     </tr>
                     <tr>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Status</td>
                        <td background="images/bg_lght_gray.gif">
                           <select name="group_id" class="form_item" disabled>
                              <option selected><%=rsCQ("status")%></option>
                              <option><%=String(ddWidth, "_")%></option>
                           </select>
                        </td>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">&nbsp;</td>
                        <td background="images/bg_lght_gray.gif">&nbsp;</td>
                     </tr>
                     <tr>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field"><br></td>
                        <td background="images/bg_lght_gray.gif"></td>
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field"></td>
                        <td background="images/bg_lght_gray.gif"></td>
                     </tr>
                  </table>
               </td>
            </tr>
            <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">Description</span><br>
                           <div id="LayerDescription" style="height:height(); overflow: auto;"><%=NewLine_To_BR( Server.HTMLEncode( rsCQ("description") ) )%></div>
                        </td>
                     </tr>
                  </table>
               </td>
            </tr>
         </table>
      </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"-->
Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/branches/dpurdie/_wform_issues_details.asp – Rev 4021
