<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' ISSUE DETAILS
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim rsCQ
Dim ddWidth
Dim parIss_db
Dim parIss_id
Dim childDevis()
Dim numChildDevis
Dim i
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
Set rsCQ = Server.CreateObject("ADODB.Recordset")
Call Get_Iss_Parameters ( parIss_db, parIss_id )
ddWidth = 20
numChildDevis = 0
'----------------------------------------------
%>
<%
Sub Get_Issue_Details ( NNiss_db, NNiss_id, OOrsCQ )
Dim SQLstr
Dim objRegEx
Dim objMatches
Dim match
Dim rsCQ2
If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
SQLstr = _
" 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, "&_
" 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, "&_
" ap.fullname AS approver, si.description, si.dependant_devis"&_
" FROM cq_devi.admin.software_issue si INNER JOIN"&_
" cq_devi.admin.statedef sdef ON si.state = sdef.id INNER JOIN"&_
" cq_devi.admin.users sb ON si.submitter = sb.dbid INNER JOIN"&_
" cq_devi.admin.users ow ON si.owner = ow.dbid INNER JOIN"&_
" cq_devi.admin.users ap ON si.approver = ap.dbid"&_
" WHERE si.dbid = "& NNiss_id
OOrsCQ.ActiveConnection = CQ_conn
OOrsCQ.Source = SQLstr
OOrsCQ.CursorType = 0
OOrsCQ.CursorLocation = 2
OOrsCQ.LockType = 3
OOrsCQ.Open()
' Experimental code to obtain parent and child DEVIs for the currently displaying DEVI
If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
Set objRegEx = New RegExp
objRegEx.IgnoreCase = True
objRegEx.Pattern = "[1-9][0-9]+"
If NOT IsNull(OOrsCQ("iss_num") ) Then
set objMatches = objRegEx.Execute(OOrsCQ("iss_num") )
Set rsCQ2 = Server.CreateObject("ADODB.Recordset")
For each match in objMatches
rsCQ2.ActiveConnection = CQ_conn
rsCQ2.Source = " SELECT si.new_num AS iss_num"&_
" FROM cq_devi.admin.software_issue si"&_
" WHERE si.dependant_devis like '%" & match & "%'"
rsCQ2.CursorType = 0
rsCQ2.CursorLocation = 2
rsCQ2.LockType = 3
rsCQ2.Open()
While (NOT rsCQ2.BOF) AND (NOT rsCQ2.EOF)
numChildDevis = numChildDevis + 1
ReDim Preserve childDevis(numChildDevis)
childDevis(numChildDevis-1) = rsCQ2("iss_num")
rsCQ2.MoveNext
Wend
rsCQ2.Close()
Next
set objMatches = Nothing
Set rsCQ2 = Nothing
End If
Set objRegEx = Nothing
End If
End If
End Sub
%>
<%If parIss_db <> enumCLEARQUEST_DEVI_ID Then Call RaiseMsg ( enum_WMSG_ERROR, "This option is not available for this issue's database!" )%>
<%Call Get_Issue_Details ( parIss_db, parIss_id, rsCQ )%>
<%=rsCQ("iss_num")%> - <%=rsCQ("summary")%>
