Subversion Repositories DevTools

Rev

Rev 191 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
Option explicit
129 ghuddy 4 
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 5 
%>
6 
<%
7 
'=====================================================
129 ghuddy 8 
'               Import Issues
119 ghuddy 9 
'=====================================================
10 
%>
11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/qstr.asp"-->
14 
<!--#include file="common/common_subs.asp"-->
15 
<!--#include file="common/common_dbedit.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/_popup_window_common.asp"-->
18 
<%
19 
' Set rfile parameter. This is a return page after Login
20 
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
21 
'------------ ACCESS CONTROL ------------------
22 
%>
23 
<!--#include file="_access_control_login.asp"-->
24 
<!--#include file="_access_control_general.asp"-->
25 
<!--#include file="_access_control_project.asp"-->
26 
<%
27 
'------------ Variable Definition -------------
28 
Dim parPv_id
29 
Dim parFRiss_db
30 
Dim parFRiss_id
31 
Dim parFRiss_num
32 
Dim rsCQ
129 ghuddy 33 
Dim rspPage      ' current page number for multiple page results
34 
Dim rspTotal   ' total number of records
35 
Dim rspCount   ' Record counter
36 
Dim rspTotalPages   ' Total number of pages required to display results
119 ghuddy 37 
Dim imported
38 
Dim retVal
39 
Dim rsCQTemp
40 
Dim SQLstr
41 
Dim parPackage
42 
Dim parProject
43 
Dim parProduct
44 
Dim parSkipOpen
45 
Dim disabled
46 
Dim IsOptionUsed
47 
Dim parCategMain
48 
Dim parCategMinor
49 
Dim parIStates
50 
Dim parTitle
159 ghuddy 51 
Dim parDoQuery
119 ghuddy 52 
Dim oIStates
53 
Dim checked
54 
'------------ Constants Declaration -----------
129 ghuddy 55 
Const rspMax = 100   ' maximum number of records displayed
119 ghuddy 56 
Const LENUM_ALL = "ALL"
57 
Const LCONST_STAR = "*"
58 
'------------ Variable Init -------------------
59 
parPv_id = Request("pv_id")
60 
parRtag_id = Request("rtag_id")
61 
rspPage = Request("rpg")
62 
parFRiss_db = Request("FRiss_db")
63 
parFRiss_id = Request("FRiss_id")
64 
parFRiss_num = Request("FRiss_num")
65 
parPackage = Request("package")
66 
parProject = Request("project")
67 
parProduct = Request("product")
68 
parCategMain = Request("categmain")
69 
parCategMinor = Request("categminor")
70 
parSkipOpen = Request("skip_open")
71 
parIStates = Request("istates")
72 
parTitle = Request("title")
159 ghuddy 73 
parDoQuery = Request("doQuery")
119 ghuddy 74 
 
75 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
76 
 
77 
imported = FALSE
78 
IsOptionUsed = FALSE
79 
'-- CONDITIONS --------------------------------
80 
If rspPage = "" Then rspPage = 1
81 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
82 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
83 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
84 
 
129 ghuddy 85 
If parFRiss_db = "" Then parFRiss_db = enumCLEARQUEST_DEVI_ID      ' Default
119 ghuddy 86 
 
87 
If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then
129 ghuddy 88 
   If (parPackage <> "") OR  (parProject <> "")  OR  (parProduct <> "") OR (parTitle <> LCONST_STAR) Then IsOptionUsed = TRUE
119 ghuddy 89 
Else
129 ghuddy 90 
   If (parCategMain <> "") OR  (parCategMinor <> "") Then IsOptionUsed = TRUE
119 ghuddy 91 
End If
92 
 
159 ghuddy 93 
If (parDoQuery = "") Then parDoQuery = "0"
94 
 
119 ghuddy 95 
' Get DEVI issue states checked
96 
Set oIStates = GetIStates()
97 
 
98 
 
99 
'----------------------------------------------
100 
'Response.write "parPackage="& parPackage &", parProject="& parProject &", parProduct="& parProduct &", parSkipOpen="& parSkipOpen &"<br>"
101 
'Response.write "parPv_id="& parPv_id &", parRtag_id="& parRtag_id &", rspPage="& rspPage &", parFRiss_db="& parFRiss_db &", parFRiss_id="& parFRiss_id &", parFRiss_num="& parFRiss_num
102 
'Response.write "parIStates="& parIStates &", parSkipOpen="& parSkipOpen
103 
%>
104 
<%
105 
'------------------------------------------------------------------------------------------------------------------------------------
106 
Function GetIStates()
129 ghuddy 107 
   Dim IStates, aStates, stateId
108 
   Set IStates = CreateObject("Scripting.Dictionary")
109 
 
110 
   If parIStates = "" Then
111 
      IStates.Item ("ALL") = "checked"
112 
   Else
113 
 
114 
      aStates = Split( Replace( parIStates, " ", "" ), ",")
115 
 
116 
      For Each stateId In aStates
117 
         IStates.Item (CStr(stateId)) = "checked"
118 
      Next
119 
 
120 
 
121 
   End If
122 
 
123 
   Set GetIStates = IStates
124 
 
119 ghuddy 125 
End Function
126 
'------------------------------------------------------------------------------------------------------------------------------------
127 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ )
129 ghuddy 128 
   Dim SQLstr, issARR, iss_num, col_name, Title
119 ghuddy 129 
 
130 
 
129 ghuddy 131 
 
132 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
133 
      SQLstr = _
134 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
159 ghuddy 135 
      "   FROM CQ_DEVI.admin.software_issue si,"&_
136 
      "        CQ_DEVI.admin.STATEDEF sd"&_
129 ghuddy 137 
      "  WHERE si.STATE = sd.ID "
138 
 
139 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
140 
      SQLstr = _
141 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
159 ghuddy 142 
      "   FROM CQ_TDSE.admin.request si, "&_
143 
      "        CQ_TDSE.admin.STATEDEF sd"&_
129 ghuddy 144 
      "  WHERE si.STATE = sd.ID "
145 
 
146 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
147 
      SQLstr = _
148 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
159 ghuddy 149 
      "   FROM CQ_VT5DM.admin.software_issue si,"&_
150 
      "        CQ_VT5DM.admin.STATEDEF sd"&_
129 ghuddy 151 
      "  WHERE si.STATE = sd.ID "
152 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
153 
      SQLstr = _
154 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
159 ghuddy 155 
      "   FROM CQ_VTSUP.admin.request si, "&_
156 
      "        CQ_VTSUP.admin.STATEDEF sd"&_
129 ghuddy 157 
      "  WHERE si.STATE = sd.ID "
158 
 
159 
 
160 
 
161 
   End If
162 
 
163 
 
164 
   '-- User filter --
165 
   If (CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID) OR (CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
166 
      ' Add package Filter
167 
      If (parPackage <> "") Then
168 
         SQLstr = SQLstr &" AND  si.package_ref = '"& Replace( parPackage, "'","''" ) &"'"
169 
      End If
170 
 
171 
      ' Add project Filter
172 
      If (parProject <> "") Then
173 
         SQLstr = SQLstr &" AND  si.project = '"& Replace( parProject, "'","''" ) &"'"
174 
      End If
175 
 
176 
      ' Add product Filter
177 
      If (parProduct <> "") Then
178 
         SQLstr = SQLstr &" AND  si.product = '"& Replace( parProduct, "'","''" ) &"'"
179 
      End If
180 
 
181 
      ' Add Issue State Filter
182 
      If (parIStates <> "") Then
183 
         SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
184 
      End If
185 
 
186 
      ' Add Title keyword search
187 
      If ( parTitle <> LCONST_STAR ) Then
188 
         Title = Replace( parTitle, "'", "''" )
189 
         Title = Replace( Title, "*", "%" )
190 
         SQLstr = SQLstr &" AND  si.headline LIKE ( '"& Title &"' )"
191 
      End If
192 
 
193 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) OR ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
194 
 
195 
      ' Add project Filter
196 
      If (parProject <> "") Then
197 
         SQLstr = SQLstr &" AND  si.category_main = '"& Replace( parCategMain, "'","''" ) &"'"
198 
      End If
199 
 
200 
      ' Add product Filter
201 
      If (parProduct <> "") Then
202 
         SQLstr = SQLstr &" AND  si.category_minor = '"& Replace( parCategMinor, "'","''" ) &"'"
203 
      End If
204 
 
205 
      ' Add Issue State Filter
206 
      If (parIStates <> "") Then
207 
         SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
208 
      End If
209 
 
210 
   End If
211 
 
212 
 
213 
   '-- Keyword search --
214 
   If ( NNiss_num <> LENUM_ALL ) Then
215 
      issARR = Split( Replace( NNiss_num, " ", ""), "," )
216 
 
217 
      If ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID ) OR ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID ) Then
218 
         col_name = "job_number"
219 
      Else
220 
         col_name = "new_num"
221 
      End If
222 
      SQLstr = SQLstr & " AND ( "
223 
      For Each iss_num IN issARR
224 
         SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
225 
      Next
226 
 
227 
      SQLstr = Left( SQLstr, Len(SQLstr) - 2 )   ' Remove last 'OR'
228 
 
229 
      SQLstr = SQLstr & "     ) "
230 
 
231 
   End If
232 
 
233 
 
234 
   '-- Get record count ---
235 
   NNrecordCount = Get_Record_Count( SQLstr )
236 
 
237 
 
238 
   '-- Order by --
239 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
240 
      SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
241 
 
242 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
243 
      SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
244 
 
245 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
191 brianf 246 
      SQLstr = SQLstr &" ORDER BY si.job_number DESC"
129 ghuddy 247 
 
248 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
249 
      SQLstr = SQLstr &" ORDER BY si.new_num DESC"
250 
 
251 
   End If
252 
 
253 
   'Response.write SQLstr
254 
 
255 
   OOrsCQ.ActiveConnection = CQ_conn
256 
   OOrsCQ.Source = SQLstr
257 
   OOrsCQ.CursorType = 0
258 
   OOrsCQ.CursorLocation = 2
259 
   OOrsCQ.LockType = 3
260 
 
261 
   On Error Resume Next
262 
   OOrsCQ.Open()
263 
 
264 
   Get_Issues = Err.Number
265 
 
266 
End Function
119 ghuddy 267 
'------------------------------------------------------------------------------------------------------------------------------------
268 
Function Get_Record_Count ( SSsql )
129 ghuddy 269 
   Dim rsTemp
270 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
271 
   rsTemp.ActiveConnection = CQ_conn
272 
 
273 
   rsTemp.Source = _
274 
   " SELECT COUNT(*) as record_count "&_
275 
   "   FROM ("& SSsql &") ct"
276 
 
277 
   rsTemp.CursorType = 0
278 
   rsTemp.CursorLocation = 2
279 
   rsTemp.LockType = 3
280 
   rsTemp.Open()
281 
 
282 
   If (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) Then
283 
      Get_Record_Count = rsTemp("record_count")
284 
   Else
285 
      Get_Record_Count = 0
286 
   End If
287 
 
288 
   rsTemp.Close
289 
   Set rsTemp = nothing
119 ghuddy 290 
End Function
291 
'------------------------------------------------------------------------------------------------------------------------------------
292 
Sub Get_CQ_Issues_States ( sIssIdList, nIssDB, outObjCQissState )
129 ghuddy 293 
   Dim rsTemp, SQLstr
294 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
295 
   rsTemp.ActiveConnection = CQ_conn
296 
 
297 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
298 
      SQLstr = _
299 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
159 ghuddy 300 
      "  FROM CQ_DEVI.admin.software_issue si,"&_
301 
      "       CQ_DEVI.admin.statedef sd"&_
129 ghuddy 302 
      " WHERE si.STATE = sd.ID"&_
303 
      "   AND si.dbid IN ("& sIssIdList &")"
304 
 
305 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
306 
      SQLstr = _
307 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
159 ghuddy 308 
      "  FROM CQ_TDSE.admin.request si,"&_
309 
      "       CQ_TDSE.admin.statedef sd"&_
129 ghuddy 310 
      " WHERE si.STATE = sd.ID"&_
311 
      "   AND si.dbid IN ("& sIssIdList &")"
312 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
313 
      SQLstr = _
314 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
159 ghuddy 315 
      "  FROM CQ_VT5DM.admin.software_issue si,"&_
316 
      "       CQ_VT5DM.admin.statedef sd"&_
129 ghuddy 317 
      " WHERE si.STATE = sd.ID"&_
318 
      "   AND si.dbid IN ("& sIssIdList &")"
319 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
320 
      SQLstr = _
321 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
159 ghuddy 322 
      "  FROM CQ_VTSUP.admin.request si,"&_
323 
      "       CQ_VTSUP.admin.statedef sd"&_
129 ghuddy 324 
      " WHERE si.STATE = sd.ID"&_
325 
      "   AND si.dbid IN ("& sIssIdList &")"
326 
 
327 
 
328 
   End If
329 
 
330 
 
331 
   rsTemp.Source = SQLstr
332 
   rsTemp.CursorType = 0
333 
   rsTemp.CursorLocation = 2
334 
   rsTemp.LockType = 3
335 
   rsTemp.Open()
336 
 
337 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
338 
      outObjCQissState.Add CStr(rsTemp("dbid")), CStr(rsTemp("state_name"))
339 
      rsTemp.MoveNext
340 
   WEnd
341 
 
342 
   rsTemp.Close
343 
   Set rsTemp = nothing
119 ghuddy 344 
End Sub
345 
'------------------------------------------------------------------------------------------------------------------------------------
346 
Function Is_Pkg_Official ( nPv_id )
129 ghuddy 347 
   Dim rsTemp, Query_String
348 
   Query_String = _
349 
   " SELECT dlocked"&_
350 
   "  FROM package_versions "&_
351 
   " WHERE pv_id = "& nPv_id
352 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
353 
   If rsTemp("dlocked") = "Y" Then
354 
      Is_Pkg_Official = TRUE
355 
   Else
356 
      Is_Pkg_Official = FALSE
357 
   End If
358 
   rsTemp.Close
359 
   Set rsTemp = nothing
119 ghuddy 360 
End Function
361 
'------------------------------------------------------------------------------------------------------------------------------------
362 
Function Set_Issue_State ( sCQState )
129 ghuddy 363 
   If parSkipOpen <> "" Then
364 
      Set_Issue_State = enumISSUES_STATE_FIXED
365 
 
366 
   Else
367 
      Set_Issue_State = enumISSUES_STATE_IMPORTED
368 
 
369 
   End If
119 ghuddy 370 
End Function
371 
'------------------------------------------------------------------------------------------------------------------------------------
372 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
129 ghuddy 373 
   Dim issArr, iss_id, oCQissState, iss_num, iss_state, iss_state_human_readable
374 
   If NNiss_id_list = "" Then Exit Sub
375 
   Set oCQissState = CreateObject("Scripting.Dictionary")
376 
 
377 
   issArr = Split ( NNiss_id_list, ",")
378 
 
379 
   Call Get_CQ_Issues_States ( NNiss_id_list, NNiss_db, oCQissState )
380 
 
381 
   objEH.TryORA ( OraSession )
382 
   On Error Resume Next
383 
 
384 
   For Each iss_id In issArr
385 
      iss_num = GetIssueNumber ( NNiss_db, iss_id )
386 
      iss_state = Set_Issue_State ( oCQissState.Item (Trim(iss_id)) )
387 
 
388 
      If Err.Number = 0 Then
389 
         OraDatabase.ExecuteSQL _
390 
            " INSERT INTO cq_issues ( pv_id, iss_db, iss_id, iss_state, mod_date )"&_
391 
            " VALUES ( "& NNpv_id &", "& NNiss_db &", "& iss_id &", "& iss_state &", "& ORA_SYSDATE &")"
392 
 
393 
         If iss_state = 0 Then
394 
            iss_state_human_readable = "No"
395 
         Else
396 
            iss_state_human_readable = "Yes"
397 
         End If
398 
 
399 
         If Err.Number = 0 Then
400 
            OraDatabase.ExecuteSQL _
401 
               "BEGIN  Log_Action ( "& NNpv_id &", 'issue_add', "& objAccessControl.UserId &", 'Issue number: "& iss_num &", Fixed: "& iss_state_human_readable &"' );  END;"
402 
         End If
403 
      End If
404 
 
405 
   Next
406 
 
407 
   objEH.CatchORA ( OraSession )
119 ghuddy 408 
End Sub
409 
'------------------------------------------------------------------------------------------------------------------------------------
410 
%>
411 
<%
412 
'Process submition
413 
If CBool(Request("action")) AND (Request("btn") = "Import")  AND objAccessControl.UserLogedIn Then
129 ghuddy 414 
   Call Import_Issues ( parPv_id, parFRiss_db, parFRiss_id )
415 
   imported = TRUE
416 
   Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
417 
 
119 ghuddy 418 
End If
419 
%>
420 
<%
421 
'-------------- Main Line ---------------
159 ghuddy 422 
If parDoQuery <> "0" Then
423 
   retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ )
424 
End If
119 ghuddy 425 
 
426 
' total number of pages required
427 
rspTotalPages = rspTotal \ rspMax
428 
If (rspTotal Mod rspMax) > 0 Then rspTotalPages = rspTotalPages + 1
429 
%>
430 
<html>
431 
<head>
432 
<title>Release Manager</title>
433 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
434 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
435 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
436 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
437 
<script language="JavaScript" src="images/common.js"></script>
438 
<script language="javascript">
439 
<!--
129 ghuddy 440 
   function toggleOptions()
441 
   {
442 
      var dbOpt = MM_findObj("FRiss_db");
443 
      var dbName = dbOpt.options[dbOpt.selectedIndex].text;
444 
 
445 
      if (dbName == "DEVI")
446 
      {
447 
         MM_findObj("DIVOPTIONSTDSE").style.display = "none";
448 
         MM_findObj("DIVOPTIONSDEVI").style.display = "block";
449 
      }
450 
      else
451 
      {
452 
         MM_findObj("DIVOPTIONSDEVI").style.display = "none";
453 
         MM_findObj("DIVOPTIONSTDSE").style.display = "block";
454 
      }
455 
   }
119 ghuddy 456 
//-->
457 
</script>
458 
</head>
459 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
460 
<%If retVal = 0 Then%>
461 
<form name="importform" method="post" action="<%=scriptName%>">
159 ghuddy 462 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
463 
      <tr>
464 
         <td height="1%" background="images/bg_admin_dark.gif"><img src="images/spacer.gif" width="10" height="40"></td>
465 
         <td nowrap colspan="3" class="wform_ttl" background="images/bg_admin_dark.gif">
466 
            <table width="100" border="0" cellspacing="5" cellpadding="0">
467 
               <tr>
468 
                  <td align="left" class="wform_ttl">Issue&nbsp;Number</td>
469 
                  <td nowrap>
470 
                     <input name="FRiss_num" type="text" class="form_item" id="FRiss_num" value="<%=parFRiss_num%>" size="30" >
471 
                     <span class="form_wtxt_link">Example: ALL, 123, DEVI-123 </span>
472 
                  </td>
473 
               </tr>
474 
               <tr>
475 
                  <td align="left" class="wform_ttl">Database</td>
476 
                  <td>
477 
                     <select name="FRiss_db" class="form_item" id="FRiss_db" onChange="toggleOptions();">
478 
                        <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
479 
                        <option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
480 
                        <%If objAccessControl.IsActive("ImportVasttrafikIssues") Then%>
481 
                           <option value="<%=enumCLEARQUEST_VT5DM_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>selected<%End If%>>VT5DM</option>
482 
                           <option value="<%=enumCLEARQUEST_VTSUP_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>selected<%End If%>>VTSUP</option>
483 
                        <%End If%>
484 
                     </select>
485 
                  </td>
486 
               </tr>
487 
               <tr>
488 
                  <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
489 
                  <td><a href="javascript:;" onClick="ToggleDisplay('DIVOPTIONS');" class="form_wtxt_link">Options...</a></td>
490 
               </tr>
491 
            </table>
129 ghuddy 492 
 
159 ghuddy 493 
            <DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
494 
               <DIV id="DIVOPTIONSDEVI" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID OR CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
495 
                  <table width="100" border="0" cellspacing="5" cellpadding="0">
496 
                     <tr>
497 
                        <td align="left" class="wform_ttl" valign="top">Title</td>
498 
                        <td class="form_wtxt_link"><input name="title" type="text" class="form_item" id="title" value="<%=parTitle%>" style="width:100%;"> * Wildcard available</td>
499 
                     </tr>
500 
                     <tr>
501 
                        <td align="left" class="wform_ttl">Package</td>
502 
                        <td>
503 
                           <select name="package" class="form_item" id="package" style="width:100%;">
504 
                              <option value="">ALL</option>
505 
                              <%
506 
                              '---- PACKAGES ----
507 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
508 
                              rsCQTemp.ActiveConnection = CQ_conn
129 ghuddy 509 
 
159 ghuddy 510 
                              '-- Get projects
511 
                              SQLstr = _
512 
                              "SELECT si.PACKAGE_REF"&_
513 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
514 
                              " WHERE NOT si.PACKAGE_REF IS NULL"&_
515 
                              " GROUP BY si.PACKAGE_REF"&_
516 
                              " ORDER BY si.PACKAGE_REF"
129 ghuddy 517 
 
159 ghuddy 518 
                              rsCQTemp.Source = SQLstr
519 
                              rsCQTemp.CursorType = 0
520 
                              rsCQTemp.CursorLocation = 2
521 
                              rsCQTemp.LockType = 3
522 
                              rsCQTemp.Open()
129 ghuddy 523 
 
159 ghuddy 524 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
525 
                                 %>
526 
                                 <option value="<%=rsCQTemp("package_ref")%>" <%If parPackage = Cstr(rsCQTemp("package_ref")) Then%>selected<%End If%>><%=rsCQTemp("package_ref")%></option>
527 
                                 <%
528 
                                 rsCQTemp.MoveNext
529 
                              WEnd
530 
                              rsCQTemp.Close()
531 
                              %>
532 
                           </select>
533 
                        </td>
534 
                     </tr>
535 
                     <tr>
536 
                        <td align="left" class="wform_ttl">Project</td>
537 
                        <td>
538 
                           <select name="project" class="form_item" id="project" style="width:100%;">
539 
                              <option value="">ALL</option>
540 
                              <%
541 
                              '---- PROJECT ----
542 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
543 
                              rsCQTemp.ActiveConnection = CQ_conn
129 ghuddy 544 
 
159 ghuddy 545 
                              '-- Get projects
546 
                              SQLstr = _
547 
                              "SELECT si.PROJECT"&_
548 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
549 
                              " WHERE NOT si.PROJECT IS NULL"&_
550 
                              " GROUP BY si.PROJECT"&_
551 
                              " ORDER BY si.PROJECT"
129 ghuddy 552 
 
159 ghuddy 553 
                              rsCQTemp.Source = SQLstr
554 
                              rsCQTemp.CursorType = 0
555 
                              rsCQTemp.CursorLocation = 2
556 
                              rsCQTemp.LockType = 3
557 
                              rsCQTemp.Open()
129 ghuddy 558 
 
159 ghuddy 559 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
560 
                                 %>
561 
                                 <option value="<%=rsCQTemp("project")%>" <%If parProject = Cstr(rsCQTemp("project")) Then%>selected<%End If%>><%=rsCQTemp("project")%></option>
562 
                                 <%
563 
                                 rsCQTemp.MoveNext
564 
                              WEnd
565 
                              rsCQTemp.Close()
566 
                              %>
567 
                           </select>
568 
                        </td>
569 
                     </tr>
570 
                     <tr>
571 
                        <td align="left" class="wform_ttl">Product</td>
572 
                        <td>
573 
                           <select name="product" class="form_item" id="product" style="width:100%;">
574 
                              <option value="">ALL</option>
575 
                              <%
576 
                              '---- PRODUCT ----
577 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
578 
                              rsCQTemp.ActiveConnection = CQ_conn
129 ghuddy 579 
 
159 ghuddy 580 
                              '-- Get projects
581 
                              SQLstr = _
582 
                              "SELECT si.PRODUCT"&_
583 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
584 
                              " WHERE NOT si.PRODUCT IS NULL"&_
585 
                              " GROUP BY si.PRODUCT"&_
586 
                              " ORDER BY si.PRODUCT"
129 ghuddy 587 
 
159 ghuddy 588 
                              rsCQTemp.Source = SQLstr
589 
                              rsCQTemp.CursorType = 0
590 
                              rsCQTemp.CursorLocation = 2
591 
                              rsCQTemp.LockType = 3
592 
                              rsCQTemp.Open()
129 ghuddy 593 
 
159 ghuddy 594 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
595 
                                 %>
596 
                                 <option value="<%=rsCQTemp("product")%>" <%If parProduct = Cstr(rsCQTemp("product")) Then%>selected<%End If%>><%=rsCQTemp("product")%></option>
597 
                                 <%
598 
                                 rsCQTemp.MoveNext
599 
                              WEnd
600 
                              rsCQTemp.Close()
601 
                              %>
602 
                           </select>
603 
                        </td>
604 
                     </tr>
605 
                     <tr>
606 
                        <td align="left" class="wform_ttl">&nbsp;</td>
607 
                        <td>
608 
                           <fieldset>
609 
                              <legend class="form_wtxt_link">Issue Status </legend>
610 
                              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
611 
                                 <%
612 
                                 '---- ISSUE STATES ----
613 
                                 Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
614 
                                 rsCQTemp.ActiveConnection = CQ_conn
129 ghuddy 615 
 
159 ghuddy 616 
                                 '-- Get Issuestates
617 
                                 SQLstr = _
618 
                                 " SELECT sd.ID,"&_
619 
                                 "       sd.NAME"&_
620 
                                 "  FROM CQ_DEVI.admin.STATEDEF sd"&_
621 
                                 " ORDER BY sd.ORDINAL"
129 ghuddy 622 
 
159 ghuddy 623 
                                 rsCQTemp.Source = SQLstr
624 
                                 rsCQTemp.CursorType = 0
625 
                                 rsCQTemp.CursorLocation = 2
626 
                                 rsCQTemp.LockType = 3
627 
                                 rsCQTemp.Open()
129 ghuddy 628 
 
159 ghuddy 629 
                                 While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
630 
                                    checked = ""
129 ghuddy 631 
 
159 ghuddy 632 
                                    If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
633 
                                    %>
634 
                                    <tr>
635 
                                       <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
636 
                                       <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
637 
                                    </tr>
638 
                                    <%
639 
                                    rsCQTemp.MoveNext
640 
                                 WEnd
641 
                                 rsCQTemp.Close()
642 
                                 %>
643 
                              </table>
644 
                           </fieldset>
645 
                        </td>
646 
                     </tr>
647 
                     <tr>
648 
                        <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
649 
                        <td><img src="images/spacer.gif" width="100" height="1"></td>
650 
                     </tr>
651 
                  </table>
652 
               </DIV>
653 
               <DIV id="DIVOPTIONSTDSE" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID OR CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
654 
                  <table width="100" border="0" cellspacing="5" cellpadding="0">
655 
                     <tr>
656 
                        <td align="left" class="wform_ttl">Project</td>
657 
                        <td>
658 
                           <select name="categmain" class="form_item" id="categmain" style="width:100%;">
659 
                              <option value="">ALL</option>
660 
                              <%
661 
                              '---- PROJECT ----
662 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
663 
                              rsCQTemp.ActiveConnection = CQ_conn
129 ghuddy 664 
 
159 ghuddy 665 
                              '-- Get projects
666 
                              SQLstr = _
667 
                              "SELECT si.CATEGORY_MAIN"&_
668 
                              "  FROM CQ_TDSE.admin.REQUEST si"&_
669 
                              " WHERE NOT si.CATEGORY_MAIN IS NULL"&_
670 
                              " GROUP BY si.CATEGORY_MAIN"&_
671 
                              " ORDER BY si.CATEGORY_MAIN"
129 ghuddy 672 
 
159 ghuddy 673 
                              rsCQTemp.Source = SQLstr
674 
                              rsCQTemp.CursorType = 0
675 
                              rsCQTemp.CursorLocation = 2
676 
                              rsCQTemp.LockType = 3
677 
                              rsCQTemp.Open()
129 ghuddy 678 
 
159 ghuddy 679 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
680 
                                 %>
681 
                                 <option value="<%=rsCQTemp("CATEGORY_MAIN")%>" <%If parCategMain = Cstr(rsCQTemp("CATEGORY_MAIN")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MAIN")%></option>
682 
                                 <%
683 
                                 rsCQTemp.MoveNext
684 
                              WEnd
685 
                              rsCQTemp.Close()
686 
                              %>
687 
                           </select>
688 
                        </td>
689 
                     </tr>
690 
                     <tr>
691 
                        <td align="left" class="wform_ttl">Product</td>
692 
                        <td>
693 
                           <select name="categminor" class="form_item" id="categminor" style="width:100%;">
694 
                              <option value="">ALL</option>
695 
                              <%
696 
                              '---- PRODUCT ----
697 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
698 
                              rsCQTemp.ActiveConnection = CQ_conn
129 ghuddy 699 
 
159 ghuddy 700 
                              '-- Get product
701 
                              SQLstr = _
702 
                              "SELECT si.CATEGORY_MINOR"&_
703 
                              "  FROM CQ_TDSE.admin.REQUEST si"&_
704 
                              " WHERE NOT si.CATEGORY_MINOR IS NULL"&_
705 
                              " GROUP BY si.CATEGORY_MINOR"&_
706 
                              " ORDER BY si.CATEGORY_MINOR"
129 ghuddy 707 
 
159 ghuddy 708 
                              rsCQTemp.Source = SQLstr
709 
                              rsCQTemp.CursorType = 0
710 
                              rsCQTemp.CursorLocation = 2
711 
                              rsCQTemp.LockType = 3
712 
                              rsCQTemp.Open()
129 ghuddy 713 
 
159 ghuddy 714 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
715 
                                 %>
716 
                                 <option value="<%=rsCQTemp("CATEGORY_MINOR")%>" <%If parCategMinor = Cstr(rsCQTemp("CATEGORY_MINOR")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MINOR")%></option>
717 
                                 <%
718 
                                 rsCQTemp.MoveNext
719 
                              WEnd
720 
                              rsCQTemp.Close()
721 
                              %>
722 
                           </select>
723 
                        </td>
724 
                     </tr>
725 
                     <tr>
726 
                        <td align="left" class="wform_ttl">&nbsp;</td>
727 
                        <td>
728 
                           <fieldset>
729 
                              <legend class="form_wtxt_link">Issue Status </legend>
730 
                              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
731 
                                 <%
732 
                                 '---- ISSUE STATES ----
733 
                                 Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
734 
                                 rsCQTemp.ActiveConnection = CQ_conn
129 ghuddy 735 
 
159 ghuddy 736 
                                 '-- Get Issuestates
737 
                                 SQLstr = _
738 
                                 " SELECT sd.ID,"&_
739 
                                 "       sd.NAME"&_
740 
                                 "  FROM CQ_TDSE.admin.STATEDEF sd"&_
741 
                                 " UNION "&_
742 
                                 " SELECT sd.ID,"&_
743 
                                 "       sd.NAME"&_
744 
                                 "  FROM CQ_VTSUP.admin.STATEDEF sd"
129 ghuddy 745 
 
159 ghuddy 746 
                                 rsCQTemp.Source = SQLstr
747 
                                 rsCQTemp.CursorType = 0
748 
                                 rsCQTemp.CursorLocation = 2
749 
                                 rsCQTemp.LockType = 3
750 
                                 rsCQTemp.Open()
129 ghuddy 751 
 
159 ghuddy 752 
                                 While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
753 
                                    checked = ""
129 ghuddy 754 
 
159 ghuddy 755 
                                    If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
129 ghuddy 756 
 
159 ghuddy 757 
                                    %>
758 
                                    <tr>
759 
                                       <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
760 
                                       <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
761 
                                    </tr>
762 
                                    <%
763 
                                    rsCQTemp.MoveNext
764 
                                 WEnd
765 
                                 rsCQTemp.Close()
766 
                                 %>
767 
                              </table>
768 
                           </fieldset>
769 
                        </td>
770 
                     </tr>
771 
                     <tr>
772 
                        <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
773 
                        <td><img src="images/spacer.gif" width="100" height="1"></td>
774 
                     </tr>
775 
                  </table>
776 
               </DIV>
777 
            </DIV>
129 ghuddy 778 
 
159 ghuddy 779 
            <table width="400" border="0" cellspacing="5" cellpadding="0">
780 
               <tr background="images/lbox_bg_blue.gif">
781 
                  <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
782 
               </tr>
129 ghuddy 783 
               <tr>
159 ghuddy 784 
                  <td width="1">&nbsp;</td>
785 
                  <td width="100%">
786 
                     <input type="submit" name="btn" value="Find &raquo;" class="form_btn_comp">
787 
                     <span class="form_wtxt_link">Click Find to initiate clearquest query based on your options</span>
788 
                  </td>
789 
               </tr>
119 ghuddy 790 
            </table>
159 ghuddy 791 
         </td>
792 
      </tr>
119 ghuddy 793 
 
159 ghuddy 794 
      <tr>
795 
         <td background="images/lbox_bg_blue.gif" width="1%" height="1%">&nbsp;</td>
796 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;</td>
797 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
798 
            <input type="submit" name="btn" value="Import" class="form_btn_comp">
799 
            <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
800 
         </td>
801 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
802 
            <img src="images/h_trsp_dot.gif" width="5" height="22">
803 
         </td>
804 
      </tr>
805 
      <tr>
806 
         <td height="100%" width="1%">&nbsp;</td>
807 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
808 
            <%
809 
            If imported Then
810 
               Call DisplayInfo ( "ISSUES_IMPORTED", "300" )
129 ghuddy 811 
            End If
159 ghuddy 812 
            %>
813 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
814 
               <tr>
815 
                  <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
816 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Number</td>
817 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
818 
                  <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
819 
               </tr>
820 
               <%
821 
               rspCount = 0
822 
               If (parDoQuery <> "0") Then
823 
                  If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
824 
                     rsCQ.Move( rspMax * (rspPage - 1))
129 ghuddy 825 
 
159 ghuddy 826 
                     While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
129 ghuddy 827 
 
159 ghuddy 828 
                        If (objAccessControl.IsActive("ImportOpenIssues")) Then
829 
                           Select Case UCase( rsCQ("state") )
830 
                           Case "OPEN"
831 
                              disabled = ""
832 
                           Case "SUSPENDED"
833 
                              disabled = ""
834 
                           Case Else
835 
                              disabled = ""
836 
                           End Select
837 
                        End If
129 ghuddy 838 
 
159 ghuddy 839 
                        If NOT (objAccessControl.IsActive("ImportOpenIssues")) Then
840 
                           If (parSkipOpen <> "") Then
841 
                              Select Case UCase( rsCQ("state") )
842 
                              Case "OPEN"
843 
                                 disabled = "disabled"
844 
                              Case Else
845 
                                 disabled = ""
846 
                              End Select
847 
                           Else
848 
                              Select Case UCase( rsCQ("state") )
849 
                              Case "CLOSED"
850 
                                 disabled = "disabled"
851 
                              Case Else
852 
                                 disabled = ""
853 
                              End Select
854 
                           End If
855 
                        End If
856 
                        %>
857 
                        <tr>
858 
                           <td>
859 
                              <input type="checkbox" name="FRiss_id" value="<%=rsCQ("iss_id")%>" <%=disabled%>>
860 
                           </td>
861 
                           <td nowrap class="form_item">
862 
                              <a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=parFRiss_db%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked">
863 
                                 <%If parFRiss_num <> LENUM_ALL Then%>
864 
                                    <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
865 
                                 <%Else%>
866 
                                    <%=rsCQ("iss_num")%>
867 
                                 <%End If%>
868 
                              </a>
869 
                           </td>
870 
                           <td class="form_item"><%=rsCQ("state")%></td>
871 
                           <td class="form_item"><%=Server.HTMLEncode(rsCQ("summary"))%></td>
872 
                        </tr>
873 
                        <%
874 
                        rspCount = rspCount + 1
875 
                        rsCQ.MoveNext
876 
                     WEnd
877 
                     rsCQ.Close
878 
                     Set rsCQ = nothing
879 
                  End If
129 ghuddy 880 
               End If
159 ghuddy 881 
               %>
882 
               <tr>
883 
                  <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
884 
                  <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
885 
                     <%
886 
                     If rspTotal > rspMax Then
887 
                        If CInt(rspPage) = CInt(rspTotalPages) Then
888 
                           Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
889 
                        Else
890 
                           Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
891 
                        End If
892 
                     Else
893 
                        Response.write "Found "& rspTotal &" records"
894 
                     End If
895 
                     %>
896 
                  </td>
897 
               </tr>
898 
            </table>
899 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
900 
               <tr>
901 
                  <td align="center">
902 
                     <%If CInt(rspPage) > 1 Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) - 1;  importform.submit();" class="txt_linked">&lt;previous</a><%End If%>&nbsp;
903 
                     <%If CInt(rspPage) < CInt(rspTotalPages) Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) + 1;  importform.btn.value='next';" class="txt_linked">next &gt;</a><%End If%>
904 
                  </td>
905 
               </tr>
906 
            </table>
907 
            <br>
129 ghuddy 908 
         </td>
159 ghuddy 909 
      </tr>
910 
      <tr>
911 
         <td width="1%" height="1%" background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
912 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
913 
      </tr>
914 
   </table>
915 
   <input name="rpg" type="hidden" value="<%=rspPage%>">
916 
   <input name="skip_open" type="hidden" value="<%=parSkipOpen%>">
917 
   <input name="pv_id" type="hidden" value="<%=parPv_id%>">
918 
   <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
919 
   <input name="doQuery" id="doQuery" type="hidden" value="1">
920 
   <input name="action" type="hidden" value="true">
119 ghuddy 921 
</form>
922 
<%Else%>
923 
<%=enumMSSQL_ERROR%>
924 
<%End If%>
925 
</body>
926 
</html>
927 
 
928 
 
929 
<!-- DESTRUCTOR ------->
129 ghuddy 930 
<!--#include file="common/destructor.asp"-->