| Line 30... |
Line 30... |
| 30 |
Dim numChildDevis
|
30 |
Dim numChildDevis
|
| 31 |
Dim i
|
31 |
Dim i
|
| 32 |
'------------ Constants Declaration -----------
|
32 |
'------------ Constants Declaration -----------
|
| 33 |
'------------ Variable Init -------------------
|
33 |
'------------ Variable Init -------------------
|
| 34 |
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
|
34 |
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
|
| 35 |
Set rsCQ = Server.CreateObject("ADODB.Recordset")
|
- |
|
| 36 |
Call Get_Iss_Parameters ( parIss_db, parIss_id )
|
35 |
Call Get_Iss_Parameters ( parIss_db, parIss_id )
|
| 37 |
ddWidth = 20
|
36 |
ddWidth = 20
|
| 38 |
|
37 |
|
| 39 |
numChildDevis = 0
|
38 |
numChildDevis = 0
|
| 40 |
'----------------------------------------------
|
39 |
'----------------------------------------------
|
| 41 |
%>
|
40 |
%>
|
| 42 |
<%
|
41 |
<%
|
| 43 |
Sub Get_Issue_Details ( NNiss_db, NNiss_id, OOrsCQ )
|
42 |
Sub Get_Issue_Details ( NNiss_db, NNiss_id, OOrsCQ )
|
| 44 |
Dim SQLstr
|
43 |
Dim SQLstr
|
| - |
|
44 |
Dim SQLstr2
|
| 45 |
Dim objRegEx
|
45 |
Dim objRegEx
|
| 46 |
Dim objMatches
|
46 |
Dim objMatches
|
| 47 |
Dim match
|
47 |
Dim match
|
| 48 |
Dim rsCQ2
|
48 |
Dim rsCQ2
|
| 49 |
|
49 |
|
| - |
|
50 |
' NOTE si.dependant_devis - not in table - at the moment !!!
|
| - |
|
51 |
'
|
| 50 |
If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
|
52 |
If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
|
| 51 |
SQLstr = _
|
53 |
SQLstr = _
|
| 52 |
" SELECT si.dbid, si.new_num AS iss_num, si.headline AS summary, sdef.name AS status, si.priority AS priority, si.issue_type, si.release_part1, "&_
|
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, "&_
|
| 53 |
" si.release_part2, si.release_part3, si.project, si.product AS product, si.package_ref AS package, sb.fullname AS submitter, si.submit_date, ow.fullname AS owner, "&_
|
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, "&_
|
| 54 |
" ap.fullname AS approver, si.description, si.dependant_devis"&_
|
56 |
" ap.fullname AS approver, dbms_lob.substr( si.description, 4000, 1 ) as description, si.dependant_devis"&_
|
| 55 |
" FROM cq_devi.admin.software_issue si INNER JOIN"&_
|
57 |
" FROM release_manager.CQ_software_issue si INNER JOIN"&_
|
| 56 |
" cq_devi.admin.statedef sdef ON si.state = sdef.id INNER JOIN"&_
|
58 |
" release_manager.CQ_statedef sdef ON si.state = sdef.id INNER JOIN"&_
|
| 57 |
" cq_devi.admin.users sb ON si.submitter = sb.dbid INNER JOIN"&_
|
59 |
" release_manager.CQ_users sb ON si.submitter = sb.dbid INNER JOIN"&_
|
| 58 |
" cq_devi.admin.users ow ON si.owner = ow.dbid INNER JOIN"&_
|
60 |
" release_manager.CQ_users ow ON si.owner = ow.dbid INNER JOIN"&_
|
| 59 |
" cq_devi.admin.users ap ON si.approver = ap.dbid"&_
|
61 |
" release_manager.CQ_users ap ON si.approver = ap.dbid"&_
|
| 60 |
" WHERE si.dbid = "& NNiss_id
|
62 |
" WHERE si.dbid = "& NNiss_id
|
| 61 |
|
63 |
|
| 62 |
OOrsCQ.ActiveConnection = CQ_conn
|
64 |
Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
|
| 63 |
OOrsCQ.Source = SQLstr
|
- |
|
| 64 |
OOrsCQ.CursorType = 0
|
- |
|
| 65 |
OOrsCQ.CursorLocation = 2
|
- |
|
| 66 |
OOrsCQ.LockType = 3
|
- |
|
| 67 |
OOrsCQ.Open()
|
- |
|
| 68 |
|
65 |
|
| 69 |
' Experimental code to obtain parent and child DEVIs for the currently displaying DEVI
|
66 |
' Experimental code to obtain parent and child DEVIs for the currently displaying DEVI
|
| 70 |
If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
|
67 |
If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
|
| 71 |
Set objRegEx = New RegExp
|
68 |
Set objRegEx = New RegExp
|
| 72 |
objRegEx.IgnoreCase = True
|
69 |
objRegEx.IgnoreCase = True
|
| 73 |
objRegEx.Pattern = "[1-9][0-9]+"
|
70 |
objRegEx.Pattern = "[1-9][0-9]+"
|
| 74 |
|
71 |
|
| 75 |
If NOT IsNull(OOrsCQ("iss_num") ) Then
|
72 |
If NOT IsNull(OOrsCQ("iss_num") ) Then
|
| 76 |
set objMatches = objRegEx.Execute(OOrsCQ("iss_num") )
|
73 |
set objMatches = objRegEx.Execute(OOrsCQ("iss_num") )
|
| 77 |
Set rsCQ2 = Server.CreateObject("ADODB.Recordset")
|
- |
|
| 78 |
For each match in objMatches
|
74 |
For each match in objMatches
|
| 79 |
rsCQ2.ActiveConnection = CQ_conn
|
- |
|
| 80 |
rsCQ2.Source = " SELECT si.new_num AS iss_num"&_
|
75 |
SQLstr2 = " SELECT si.new_num AS iss_num"&_
|
| 81 |
" FROM cq_devi.admin.software_issue si"&_
|
76 |
" FROM release_manager.CQ_software_issue si"&_
|
| 82 |
" WHERE si.dependant_devis like '%" & match & "%'"
|
77 |
" WHERE si.dependant_devis like '%" & match & "%'"
|
| 83 |
rsCQ2.CursorType = 0
|
- |
|
| 84 |
rsCQ2.CursorLocation = 2
|
78 |
Set rsCQ2 = OraDatabase.DbCreateDynaset( SQLstr2, cint(0))
|
| 85 |
rsCQ2.LockType = 3
|
- |
|
| 86 |
rsCQ2.Open()
|
- |
|
| - |
|
79 |
|
| 87 |
While (NOT rsCQ2.BOF) AND (NOT rsCQ2.EOF)
|
80 |
While (NOT rsCQ2.BOF) AND (NOT rsCQ2.EOF)
|
| 88 |
numChildDevis = numChildDevis + 1
|
81 |
numChildDevis = numChildDevis + 1
|
| 89 |
ReDim Preserve childDevis(numChildDevis)
|
82 |
ReDim Preserve childDevis(numChildDevis)
|
| 90 |
childDevis(numChildDevis-1) = rsCQ2("iss_num")
|
83 |
childDevis(numChildDevis-1) = rsCQ2("iss_num")
|
| 91 |
rsCQ2.MoveNext
|
84 |
rsCQ2.MoveNext
|