Subversion Repositories DevTools

Rev

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