Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
Option explicit
159 ghuddy 4
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 5
%>
6
<%
7
'=====================================================
159 ghuddy 8
'              ISSUE DETAILS
119 ghuddy 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
159 ghuddy 29
Dim childDevis()
30
Dim numChildDevis
31
Dim i
119 ghuddy 32
'------------ Constants Declaration -----------
33
'------------ Variable Init -------------------
34
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
35
Set rsCQ = Server.CreateObject("ADODB.Recordset")
36
Call Get_Iss_Parameters ( parIss_db, parIss_id )
37
ddWidth = 20
159 ghuddy 38
 
39
numChildDevis = 0
119 ghuddy 40
'----------------------------------------------
41
%>
42
<%
43
Sub Get_Issue_Details ( NNiss_db, NNiss_id, OOrsCQ )
159 ghuddy 44
   Dim SQLstr
45
   Dim objRegEx
46
   Dim objMatches
47
   Dim match
48
   Dim rsCQ2
49
 
50
   If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
51
      SQLstr = _
52
      " 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, "&_
53
       "        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, "&_
54
       "        ap.fullname AS approver, si.description, si.dependant_devis"&_
55
    " FROM cq_devi.admin.software_issue si INNER JOIN"&_
56
      "        cq_devi.admin.statedef sdef ON si.state = sdef.id INNER JOIN"&_
57
      "        cq_devi.admin.users sb ON si.submitter = sb.dbid INNER JOIN"&_
58
      "        cq_devi.admin.users ow ON si.owner = ow.dbid INNER JOIN"&_
59
      "        cq_devi.admin.users ap ON si.approver = ap.dbid"&_
60
      "  WHERE si.dbid = "& NNiss_id
61
 
62
   ElseIf Cint(NNiss_db) = enumCLEARQUEST_VT5DM_ID Then
63
      SQLstr = _
64
      " 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, "&_
65
       "        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, "&_
66
       "        ap.fullname AS approver, si.description"&_
67
    " FROM CQ_VT5DM.admin.software_issue si INNER JOIN"&_
68
      "        CQ_VT5DM.admin.statedef sdef ON si.state = sdef.id INNER JOIN"&_
69
      "        CQ_VT5DM.admin.users sb ON si.submitter = sb.dbid INNER JOIN"&_
70
      "        CQ_VT5DM.admin.users ow ON si.owner = ow.dbid INNER JOIN"&_
71
      "        CQ_VT5DM.admin.users ap ON si.approver = ap.dbid"&_
72
      "  WHERE si.dbid = "& NNiss_id
73
 
74
   End If
75
 
76
   OOrsCQ.ActiveConnection = CQ_conn
77
   OOrsCQ.Source = SQLstr
78
   OOrsCQ.CursorType = 0
79
   OOrsCQ.CursorLocation = 2
80
   OOrsCQ.LockType = 3
81
   OOrsCQ.Open()
82
 
83
   ' Experimental code to obtain parent and child DEVIs for the currently displaying DEVI
84
   If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
85
      Set objRegEx = New RegExp
86
      objRegEx.IgnoreCase = True
87
      objRegEx.Pattern = "[1-9][0-9]+"
88
 
89
      If NOT IsNull(OOrsCQ("iss_num") ) Then
90
         set objMatches = objRegEx.Execute(OOrsCQ("iss_num") )
91
         Set rsCQ2 = Server.CreateObject("ADODB.Recordset")
92
         For each match in objMatches
93
            rsCQ2.ActiveConnection = CQ_conn
94
            rsCQ2.Source = " SELECT  si.new_num AS iss_num"&_
95
                           " FROM cq_devi.admin.software_issue si"&_
96
                           " WHERE si.dependant_devis like '%" & match & "%'"
97
            rsCQ2.CursorType = 0
98
            rsCQ2.CursorLocation = 2
99
            rsCQ2.LockType = 3
100
            rsCQ2.Open()
101
            While (NOT rsCQ2.BOF) AND (NOT rsCQ2.EOF)
102
               numChildDevis = numChildDevis + 1
103
               ReDim Preserve childDevis(numChildDevis)
104
               childDevis(numChildDevis-1) = rsCQ2("iss_num")
105
               rsCQ2.MoveNext
106
            Wend
107
            rsCQ2.Close()
108
         Next
109
         set objMatches = Nothing
110
         Set rsCQ2 = Nothing
111
      End If
112
      Set objRegEx = Nothing
113
   End If
114
 
115
 
116
End Sub
119 ghuddy 117
%>
118
<%If parIss_db <> enumCLEARQUEST_DEVI_ID AND parIss_db <> enumCLEARQUEST_VT5DM_ID Then Call RaiseMsg ( enum_WMSG_ERROR, "This option is not available for this issue's database!" )%>
119
<%Call Get_Issue_Details ( parIss_db, parIss_id, rsCQ )%>
120
<!--#include file="_menu_def.asp"-->
121
<html>
122
<head>
123
<title><%=rsCQ("iss_num")%> - <%=rsCQ("summary")%></title>
124
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
125
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
126
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
127
<link rel="stylesheet" href="images/navigation.css" type="text/css">
128
<script language="JavaScript" src="images/common.js"></script>
129
<script language="JavaScript">
130
<!--
131
function height()
159 ghuddy 132
{
133
   if( typeof( window.innerWidth ) == 'number' )
134
   {
135
      h = window.innerHeight;
136
   }
137
   else if(document.documentElement&&(document.documentElement.clientHeight ))
138
   {
139
      h = document.documentElement.clientHeight;
140
   }
141
   else if( document.body &&  ( document.body.clientWidth || document.body.clientHeight ) )
142
   {
143
      h = document.body.clientHeight;
144
   }
145
 
146
   var e = document.getElementById("LayerDescription");
147
 
148
   if (navigator.userAgent.indexOf('Internet Explorer'))
149
   {
150
      e.style.height = h - 350 + "px";
151
      e.style.overflow = "auto";
152
   }
153
   else
154
   {
155
      // This line shouldn't be run by IE; it doesn't seem to work. It gets run in Firefox, etc.
156
      e.style.minHeight= h - 350 + "px";
157
      e.style.overflow = "auto";
158
   }
119 ghuddy 159
}
160
//-->
161
</script>
162
</head>
163
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();height();" onresize="height();" >
164
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
159 ghuddy 165
   <tr>
166
      <td width="1%" background="images/bg_lght_gray.gif">&nbsp;</td>
167
      <td width="100%" background="images/bg_lght_gray.gif"><span class="form_field"><br>&nbsp;Issue</span>
168
         <input name="FRpname" type="text" class="form_item" size="12" value="<%=rsCQ("iss_num")%>" readonly>
169
         <input name="FRpname2" type="text" class="form_item" size="80" value="<%=HTMLEncode(rsCQ("summary"))%>" readonly>
170
      </td>
171
   </tr>
172
   <tr>
173
      <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="400"></td>
174
      <td valign="top" background="images/bg_form_lightbluedark.gif">
175
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
176
            <tr>
177
               <td align="right" background="images/bg_lght_gray.gif"><br>
178
                  <!-- TABS ------------------------------------------->
179
                  <%Call Generate_Tab_Menu ( TABarray4, "Details", "blue" )%>
180
                  <!------------------------------------------------------------->
181
               </td>
182
            </tr>
183
            <tr>
184
               <td background="images/lbox_bg_blue.gif">&nbsp;</td>
185
            </tr>
186
         </table><br>
187
         <table width="100%" border="0" cellspacing="5" cellpadding="1">
188
            <tr>
189
               <td background="images/bg_vtree_h1.gif">
190
                  <table width="100%" border="0" cellspacing="0" cellpadding="2">
191
                     <tr>
192
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Issue Type</td>
193
                        <td background="images/bg_lght_gray.gif">
194
                           <select name="group_id" class="form_item" disabled>
195
                              <option selected><%=rsCQ("issue_type")%></option>
196
                              <option><%=String(ddWidth, "_")%></option>
197
                           </select>
198
                        </td>
199
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Submitter</td>
200
                        <td background="images/bg_lght_gray.gif">
201
                           <select name="group_id" class="form_item" disabled>
202
                              <option selected><%=rsCQ("submitter")%></option>
203
                              <option><%=String(ddWidth, "_")%></option>
204
                           </select>
205
                        </td>
206
                     </tr>
207
                     <tr>
208
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Detected in Version</td>
209
                        <td background="images/bg_lght_gray.gif">
210
                           <select name="group_id" class="form_item" disabled>
211
                              <option selected><%=rsCQ("release_part1") &"."& rsCQ("release_part2") &"."& rsCQ("release_part3") %></option>
212
                              <option><%=String(ddWidth, "_")%></option>
213
                           </select>
214
                        </td>
215
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Submitted on Date</td>
216
                        <td background="images/bg_lght_gray.gif">
217
                           <select name="group_id" class="form_item" disabled>
218
                              <option selected><%=ToLongDate( rsCQ("submit_date")+1 )%></option>
219
                              <option><%=String(ddWidth, "_")%></option>
220
                           </select>
221
                        </td>
222
                     </tr>
223
                     <tr>
224
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Project</td>
225
                        <td background="images/bg_lght_gray.gif">
226
                           <select name="group_id" class="form_item" disabled>
227
                              <option selected><%=rsCQ("project")%></option>
228
                              <option><%=String(ddWidth, "_")%></option>
229
                           </select>
230
                        </td>
231
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Owner</td>
232
                        <td background="images/bg_lght_gray.gif">
233
                           <select name="group_id" class="form_item" disabled>
234
                              <option selected><%=rsCQ("owner")%></option>
235
                              <option><%=String(ddWidth, "_")%></option>
236
                           </select>
237
                        </td>
238
                     </tr>
239
                     <tr>
240
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Product</td>
241
                        <td background="images/bg_lght_gray.gif">
242
                           <select name="group_id" class="form_item" disabled>
243
                              <option selected><%=rsCQ("product")%></option>
244
                              <option><%=String(ddWidth, "_")%></option>
245
                           </select>
246
                        </td>
247
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Approver</td>
248
                        <td background="images/bg_lght_gray.gif">
249
                           <select name="group_id" class="form_item" disabled>
250
                              <option selected><%=rsCQ("approver")%></option>
251
                              <option><%=String(ddWidth, "_")%></option>
252
                           </select>
253
                        </td>
254
                     </tr>
255
                     <tr>
256
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Package</td>
257
                        <td background="images/bg_lght_gray.gif">
258
                           <select name="group_id" class="form_item" disabled>
259
                              <option selected><%=rsCQ("package")%></option>
260
                              <option><%=String(ddWidth, "_")%></option>
261
                           </select>
262
                        </td>
263
                        <%If parIss_db = enumCLEARQUEST_DEVI_ID Then%>
264
                           <td align="right" background="images/bg_lght_gray.gif" class="form_field">Parent Devi</td>
265
                           <td background="images/bg_lght_gray.gif">
266
                              <select name="group_id" class="form_item" disabled>
267
                                 <option selected><%=rsCQ("dependant_devis")%></option>
268
                                 <option><%=String(ddWidth, "_")%></option>
269
                              </select>
270
                           </td>
271
                        <%else%>
272
                           <td align="right" background="images/bg_lght_gray.gif" class="form_field">&nbsp;</td>
273
                           <td background="images/bg_lght_gray.gif">&nbsp;</td>
274
                        <%end if%>
275
                     </tr>
276
                     <tr>
277
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Priority</td>
278
                        <td background="images/bg_lght_gray.gif">
279
                           <select name="group_id" class="form_item" disabled>
280
                              <option selected><%=rsCQ("priority")%></option>
281
                              <option><%=String(ddWidth, "_")%></option>
282
                           </select>
283
                        </td>
284
                        <%If parIss_db = enumCLEARQUEST_DEVI_ID AND numChildDevis > 0 Then%>
285
                           <td align="right" background="images/bg_lght_gray.gif" class="form_field">Child Devis</td>
286
                           <td background="images/bg_lght_gray.gif">
287
                              <select name="group_id" class="form_item" enabled>
288
                                 <%For i = 0 To numChildDevis - 1%>
289
                                    <%If i = 0 Then%>
290
                                       <option selected><%=childDevis(i)%></option>
291
                                    <%else%>
292
                                       <option><%=childDevis(i)%></option>
293
                                    <%End If%>
294
                                 <%Next%>
295
                              </select>
296
                           </td>
297
 
298
                        <%else%>
299
                           <td align="right" background="images/bg_lght_gray.gif" class="form_field">&nbsp;</td>
300
                           <td background="images/bg_lght_gray.gif">&nbsp;</td>
301
                        <%end if%>
302
                     </tr>
303
                     <tr>
304
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">Status</td>
305
                        <td background="images/bg_lght_gray.gif">
306
                           <select name="group_id" class="form_item" disabled>
307
                              <option selected><%=rsCQ("status")%></option>
308
                              <option><%=String(ddWidth, "_")%></option>
309
                           </select>
310
                        </td>
311
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field">&nbsp;</td>
312
                        <td background="images/bg_lght_gray.gif">&nbsp;</td>
313
                     </tr>
314
                     <tr>
315
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field"><br></td>
316
                        <td background="images/bg_lght_gray.gif"></td>
317
                        <td align="right" background="images/bg_lght_gray.gif" class="form_field"></td>
318
                        <td background="images/bg_lght_gray.gif"></td>
319
                     </tr>
320
                  </table>
321
               </td>
322
            </tr>
323
            <tr>
324
               <td background="images/bg_vtree_h1.gif">
325
                  <table width="100%" border="0" cellspacing="0" cellpadding="2">
326
                     <tr>
327
                        <td bgcolor="White" class="form_item"><span class="form_field">Description</span><br>
328
                           <div id="LayerDescription" style="height:height(); overflow: auto;"><%=NewLine_To_BR( Server.HTMLEncode( rsCQ("description") ) )%></div>
329
                        </td>
330
                     </tr>
331
                  </table>
332
               </td>
333
            </tr>
334
         </table>
335
      </td>
336
   </tr>
337
   <tr>
338
      <td background="images/bg_lght_gray.gif">&nbsp;</td>
339
      <td background="images/lbox_bg_blue.gif">&nbsp;</td>
340
   </tr>
119 ghuddy 341
</table>
342
</body>
343
</html>
344
 
345
 
346
<!-- DESTRUCTOR ------->
159 ghuddy 347
<!--#include file="common/destructor.asp"-->