Subversion Repositories DevTools

Rev

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