Subversion Repositories DevTools

Rev

Rev 3975 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3975 Rev 4553
Line 28... Line 28...
28 
Dim parPv_id
 28 
Dim parPv_id
29 
Dim parFRiss_db
 29 
Dim parFRiss_db
30 
Dim parFRiss_id
 30 
Dim parFRiss_id
31 
Dim parFRiss_num
 31 
Dim parFRiss_num
32 
Dim rsCQ
 32 
Dim rsCQ
33 
Dim rspPage      ' current page number for multiple page results
 33 
Dim rspPage         ' current page number for multiple page results
34 
Dim rspTotal   ' total number of records
 34 
Dim rspTotal        ' total number of records
35 
Dim rspCount   ' Record counter
 35 
Dim rspCount        ' Record counter
36 
Dim rspTotalPages   ' Total number of pages required to display results
 36 
Dim rspTotalPages   ' Total number of pages required to display results
37 
Dim imported
 37 
Dim imported
38 
Dim retVal
 38 
Dim retVal
39 
Dim rsCQTemp
 39 
Dim rsCQTemp
40 
Dim SQLstr
 40 
Dim SQLstr
Line 49... Line 49...
49 
Dim parIStates
 49 
Dim parIStates
50 
Dim parTitle
 50 
Dim parTitle
51 
Dim parDoQuery
 51 
Dim parDoQuery
52 
Dim oIStates
 52 
Dim oIStates
53 
Dim checked
 53 
Dim checked
- 
 
 54 
Dim summaryText
- 
 
 55 
 
54 
'------------ Constants Declaration -----------
 56 
'------------ Constants Declaration -----------
55 
Const rspMax = 100   ' maximum number of records displayed
 57 
Const rspMax = 100   ' maximum number of records displayed
56 
Const LENUM_ALL = "ALL"
 58 
Const LENUM_ALL = "ALL"
57 
Const LCONST_STAR = "*"
 59 
Const LCONST_STAR = "*"
58 
'------------ Variable Init -------------------
 60 
'------------ Variable Init -------------------
Line 70... Line 72...
70 
parSkipOpen = Request("skip_open")
 72 
parSkipOpen = Request("skip_open")
71 
parIStates = Request("istates")
 73 
parIStates = Request("istates")
72 
parTitle = Request("title")
 74 
parTitle = Request("title")
73 
parDoQuery = Request("doQuery")
 75 
parDoQuery = Request("doQuery")
74 
 
 76 
 
75 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
 - 
 
76 
 
 - 
 
77 
imported = FALSE
 77 
imported = FALSE
78 
IsOptionUsed = FALSE
 78 
IsOptionUsed = FALSE
79 
'-- CONDITIONS --------------------------------
 79 
'-- CONDITIONS --------------------------------
80 
If rspPage = "" Then rspPage = 1
 80 
If rspPage = "" Then rspPage = 1
81 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
 81 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
Line 126... Line 126...
126 
'------------------------------------------------------------------------------------------------------------------------------------
 126 
'------------------------------------------------------------------------------------------------------------------------------------
127 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ )
 127 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ )
128 
   Dim SQLstr, issARR, iss_num, col_name, Title
 128 
   Dim SQLstr, issARR, iss_num, col_name, Title
129 
 
 129 
 
130 
 
 130 
 
131 
 
 - 
 
132 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 131 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
133 
      SQLstr = _
 132 
      SQLstr = _
134 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 133 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
135 
      "   FROM CQ_DEVI.admin.software_issue si,"&_
 134 
      "   FROM release_manager.CQ_software_issue si,"&_
136 
      "        CQ_DEVI.admin.STATEDEF sd"&_
 135 
      "        release_manager.CQ_STATEDEF sd"&_
137 
      "  WHERE si.STATE = sd.ID "
 136 
      "  WHERE si.STATE = sd.ID "
138 
   End If
 137 
   End If
139 
 
 138 
 
140 
 
 139 
 
141 
   '-- User filter --
 140 
   '-- User filter --
Line 195... Line 194...
195 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 194 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
196 
      SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
 195 
      SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
197 
   End If
 196 
   End If
198 
 
 197 
 
199 
   'Response.write SQLstr
 198 
   'Response.write SQLstr
200 
 
 - 
 
201 
   OOrsCQ.ActiveConnection = CQ_conn
 - 
 
202 
   OOrsCQ.Source = SQLstr
 - 
 
203 
   OOrsCQ.CursorType = 0
 - 
 
204 
   OOrsCQ.CursorLocation = 2
 - 
 
205 
   OOrsCQ.LockType = 3
 - 
 
206 
 
 - 
 
207 
   On Error Resume Next
 199 
   On Error Resume Next
208 
   OOrsCQ.Open()
 200 
   Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
209 
 
 - 
 
210 
   Get_Issues = Err.Number
 201 
   Get_Issues = Err.Number
- 
 
 202 
   'Response.write  "Result Code" & Get_Issues
211 
 
 203 
 
212 
End Function
 204 
End Function
213 
'------------------------------------------------------------------------------------------------------------------------------------
 205 
'------------------------------------------------------------------------------------------------------------------------------------
214 
Function Get_Record_Count ( SSsql )
 206 
Function Get_Record_Count ( SSsql )
215 
   Dim rsTemp
 207 
   Dim rsTemp, sqlTemp
216 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
217 
   rsTemp.ActiveConnection = CQ_conn
 - 
 
218 
 
 208 
 
219 
   rsTemp.Source = _
 209 
   sqlTemp = _
220 
   " SELECT COUNT(*) as record_count "&_
 210 
   " SELECT COUNT(*) as record_count "&_
221 
   "   FROM ("& SSsql &") ct"
 211 
   "   FROM ("& SSsql &") ct"
222 
 
 212 
 
223 
   rsTemp.CursorType = 0
 - 
 
224 
   rsTemp.CursorLocation = 2
 213 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlTemp, cint(0))
225 
   rsTemp.LockType = 3
 - 
 
226 
   rsTemp.Open()
 - 
 
227 
 
 214 
 
228 
   If (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) Then
 215 
   If (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) Then
229 
      Get_Record_Count = rsTemp("record_count")
 216 
      Get_Record_Count = rsTemp("record_count")
230 
   Else
 217 
   Else
231 
      Get_Record_Count = 0
 218 
      Get_Record_Count = 0
Line 235... Line 222...
235 
   Set rsTemp = nothing
 222 
   Set rsTemp = nothing
236 
End Function
 223 
End Function
237 
'------------------------------------------------------------------------------------------------------------------------------------
 224 
'------------------------------------------------------------------------------------------------------------------------------------
238 
Sub Get_CQ_Issues_States ( sIssIdList, nIssDB, outObjCQissState )
 225 
Sub Get_CQ_Issues_States ( sIssIdList, nIssDB, outObjCQissState )
239 
   Dim rsTemp, SQLstr
 226 
   Dim rsTemp, SQLstr
240 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
241 
   rsTemp.ActiveConnection = CQ_conn
 - 
 
242 
 
 227 
 
243 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 228 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
244 
      SQLstr = _
 229 
      SQLstr = _
245 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 230 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
246 
      "  FROM CQ_DEVI.admin.software_issue si,"&_
 231 
      "  FROM release_manager.CQ_software_issue si,"&_
247 
      "       CQ_DEVI.admin.statedef sd"&_
 232 
      "       release_manager.CQ_statedef sd"&_
248 
      " WHERE si.STATE = sd.ID"&_
 233 
      " WHERE si.STATE = sd.ID"&_
249 
      "   AND si.dbid IN ("& sIssIdList &")"
 234 
      "   AND si.dbid IN ("& sIssIdList &")"
250 
   End If
 235 
   End If
251 
 
 - 
 
252 
 
 - 
 
253 
   rsTemp.Source = SQLstr
 236 
   Set rsTemp = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
254 
   rsTemp.CursorType = 0
 - 
 
255 
   rsTemp.CursorLocation = 2
 - 
 
256 
   rsTemp.LockType = 3
 - 
 
257 
   rsTemp.Open()
 - 
 
258 
 
 237 
 
259 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
 238 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
260 
      outObjCQissState.Add CStr(rsTemp("dbid")), CStr(rsTemp("state_name"))
 239 
      outObjCQissState.Add CStr(rsTemp("dbid")), CStr(rsTemp("state_name"))
261 
      rsTemp.MoveNext
 240 
      rsTemp.MoveNext
262 
   WEnd
 241 
   WEnd
Line 419... Line 398...
419 
                        <td>
 398 
                        <td>
420 
                           <select name="package" class="form_item" id="package" style="width:100%;">
 399 
                           <select name="package" class="form_item" id="package" style="width:100%;">
421 
                              <option value="">ALL</option>
 400 
                              <option value="">ALL</option>
422 
                              <%
 401 
                              <%
423 
                              '---- PACKAGES ----
 402 
                              '---- PACKAGES ----
424 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
425 
                              rsCQTemp.ActiveConnection = CQ_conn
 - 
 
426 
 
 403 
 
427 
                              '-- Get projects
 404 
                              '-- Get projects
428 
                              SQLstr = _
 405 
                              SQLstr = _
429 
                              "SELECT si.PACKAGE_REF"&_
 406 
                              "SELECT si.PACKAGE_REF"&_
430 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
 407 
                              " FROM release_manager.CQ_SOFTWARE_ISSUE si"&_
431 
                              " WHERE NOT si.PACKAGE_REF IS NULL"&_
 408 
                              " WHERE NOT si.PACKAGE_REF IS NULL"&_
432 
                              " GROUP BY si.PACKAGE_REF"&_
 409 
                              " GROUP BY si.PACKAGE_REF"&_
433 
                              " ORDER BY si.PACKAGE_REF"
 410 
                              " ORDER BY si.PACKAGE_REF"
434 
 
 411 
 
435 
                              rsCQTemp.Source = SQLstr
 412 
                              Set rsCQTemp = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
436 
                              rsCQTemp.CursorType = 0
 - 
 
437 
                              rsCQTemp.CursorLocation = 2
 - 
 
438 
                              rsCQTemp.LockType = 3
 - 
 
439 
                              rsCQTemp.Open()
 - 
 
440 
 
 413 
 
441 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 414 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
442 
                                 %>
 415 
                                 %>
443 
                                 <option value="<%=rsCQTemp("package_ref")%>" <%If parPackage = Cstr(rsCQTemp("package_ref")) Then%>selected<%End If%>><%=rsCQTemp("package_ref")%></option>
 416 
                                 <option value="<%=rsCQTemp("package_ref")%>" <%If parPackage = Cstr(rsCQTemp("package_ref")) Then%>selected<%End If%>><%=rsCQTemp("package_ref")%></option>
444 
                                 <%
 417 
                                 <%
Line 454... Line 427...
454 
                        <td>
 427 
                        <td>
455 
                           <select name="project" class="form_item" id="project" style="width:100%;">
 428 
                           <select name="project" class="form_item" id="project" style="width:100%;">
456 
                              <option value="">ALL</option>
 429 
                              <option value="">ALL</option>
457 
                              <%
 430 
                              <%
458 
                              '---- PROJECT ----
 431 
                              '---- PROJECT ----
459 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
460 
                              rsCQTemp.ActiveConnection = CQ_conn
 - 
 
461 
 
 432 
 
462 
                              '-- Get projects
 433 
                              '-- Get projects
463 
                              SQLstr = _
 434 
                              SQLstr = _
464 
                              "SELECT si.PROJECT"&_
 435 
                              "SELECT si.PROJECT"&_
465 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
 436 
                              "  FROM release_manager.CQ_SOFTWARE_ISSUE si"&_
466 
                              " WHERE NOT si.PROJECT IS NULL"&_
 437 
                              " WHERE NOT si.PROJECT IS NULL"&_
467 
                              " GROUP BY si.PROJECT"&_
 438 
                              " GROUP BY si.PROJECT"&_
468 
                              " ORDER BY si.PROJECT"
 439 
                              " ORDER BY si.PROJECT"
469 
 
 440 
 
470 
                              rsCQTemp.Source = SQLstr
 441 
                              Set rsCQTemp = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
471 
                              rsCQTemp.CursorType = 0
 - 
 
472 
                              rsCQTemp.CursorLocation = 2
 - 
 
473 
                              rsCQTemp.LockType = 3
 - 
 
474 
                              rsCQTemp.Open()
 - 
 
475 
 
 442 
 
476 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 443 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
477 
                                 %>
 444 
                                 %>
478 
                                 <option value="<%=rsCQTemp("project")%>" <%If parProject = Cstr(rsCQTemp("project")) Then%>selected<%End If%>><%=rsCQTemp("project")%></option>
 445 
                                 <option value="<%=rsCQTemp("project")%>" <%If parProject = Cstr(rsCQTemp("project")) Then%>selected<%End If%>><%=rsCQTemp("project")%></option>
479 
                                 <%
 446 
                                 <%
Line 489... Line 456...
489 
                        <td>
 456 
                        <td>
490 
                           <select name="product" class="form_item" id="product" style="width:100%;">
 457 
                           <select name="product" class="form_item" id="product" style="width:100%;">
491 
                              <option value="">ALL</option>
 458 
                              <option value="">ALL</option>
492 
                              <%
 459 
                              <%
493 
                              '---- PRODUCT ----
 460 
                              '---- PRODUCT ----
494 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
495 
                              rsCQTemp.ActiveConnection = CQ_conn
 - 
 
496 
 
 461 
 
497 
                              '-- Get projects
 462 
                              '-- Get projects
498 
                              SQLstr = _
 463 
                              SQLstr = _
499 
                              "SELECT si.PRODUCT"&_
 464 
                              "SELECT si.PRODUCT"&_
500 
                              "  FROM CQ_DEVI.admin.SOFTWARE_ISSUE si"&_
 465 
                              "  FROM release_manager.CQ_SOFTWARE_ISSUE si"&_
501 
                              " WHERE NOT si.PRODUCT IS NULL"&_
 466 
                              " WHERE NOT si.PRODUCT IS NULL"&_
502 
                              " GROUP BY si.PRODUCT"&_
 467 
                              " GROUP BY si.PRODUCT"&_
503 
                              " ORDER BY si.PRODUCT"
 468 
                              " ORDER BY si.PRODUCT"
504 
 
 469 
 
505 
                              rsCQTemp.Source = SQLstr
 470 
                              Set rsCQTemp = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
506 
                              rsCQTemp.CursorType = 0
 - 
 
507 
                              rsCQTemp.CursorLocation = 2
 - 
 
508 
                              rsCQTemp.LockType = 3
 - 
 
509 
                              rsCQTemp.Open()
 - 
 
510 
 
 471 
 
511 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 472 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
512 
                                 %>
 473 
                                 %>
513 
                                 <option value="<%=rsCQTemp("product")%>" <%If parProduct = Cstr(rsCQTemp("product")) Then%>selected<%End If%>><%=rsCQTemp("product")%></option>
 474 
                                 <option value="<%=rsCQTemp("product")%>" <%If parProduct = Cstr(rsCQTemp("product")) Then%>selected<%End If%>><%=rsCQTemp("product")%></option>
514 
                                 <%
 475 
                                 <%
Line 525... Line 486...
525 
                           <fieldset>
 486 
                           <fieldset>
526 
                              <legend class="form_wtxt_link">Issue Status </legend>
 487 
                              <legend class="form_wtxt_link">Issue Status </legend>
527 
                              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 488 
                              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
528 
                                 <%
 489 
                                 <%
529 
                                 '---- ISSUE STATES ----
 490 
                                 '---- ISSUE STATES ----
530 
                                 Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
531 
                                 rsCQTemp.ActiveConnection = CQ_conn
 - 
 
532 
 
 491 
 
533 
                                 '-- Get Issuestates
 492 
                                 '-- Get Issuestates
534 
                                 SQLstr = _
 493 
                                 SQLstr = _
535 
                                 " SELECT sd.ID,"&_
 494 
                                 " SELECT sd.ID,"&_
536 
                                 "       sd.NAME"&_
 495 
                                 "       sd.NAME"&_
537 
                                 "  FROM CQ_DEVI.admin.STATEDEF sd"&_
 496 
                                 "  FROM release_manager.CQ_STATEDEF sd" &_
538 
                                 " ORDER BY sd.ORDINAL"
 497 
                                 " ORDER BY sd.ORDINAL"
539 
 
 498 
 
540 
                                 rsCQTemp.Source = SQLstr
 499 
                                Set rsCQTemp = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
541 
                                 rsCQTemp.CursorType = 0
 - 
 
542 
                                 rsCQTemp.CursorLocation = 2
 - 
 
543 
                                 rsCQTemp.LockType = 3
 - 
 
544 
                                 rsCQTemp.Open()
 - 
 
545 
 
 500 
 
546 
                                 While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 501 
                                 While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
547 
                                    checked = ""
 502 
                                    checked = ""
548 
 
 503 
 
549 
                                    If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
 504 
                                    If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
Line 611... Line 566...
611 
               </tr>
 566 
               </tr>
612 
               <%
 567 
               <%
613 
               rspCount = 0
 568 
               rspCount = 0
614 
               If (parDoQuery <> "0") Then
 569 
               If (parDoQuery <> "0") Then
615 
                  If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
 570 
                  If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
616 
                     rsCQ.Move( rspMax * (rspPage - 1))
 571 
                     rsCQ.MoveTo( 1+(rspMax * (rspPage - 1)))
617 
 
 572 
 
618 
                     While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
 573 
                     While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
619 
 
 574 
 
620 
                        If (objAccessControl.IsActive("ImportOpenIssues")) Then
 575 
                        If (objAccessControl.IsActive("ImportOpenIssues")) Then
621 
                           Select Case UCase( rsCQ("state") )
 576 
                           Select Case UCase( rsCQ("state") )