<%@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")
Call Get_Iss_Parameters ( parIss_db, parIss_id )
ddWidth = 20
numChildDevis = 0
'----------------------------------------------
%>
<%
Sub Get_Issue_Details ( NNiss_db, NNiss_id, OOrsCQ )
Dim SQLstr
Dim SQLstr2
Dim objRegEx
Dim objMatches
Dim match
Dim rsCQ2
' NOTE si.dependant_devis - not in table - at the moment !!!
'
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, dbms_lob.substr( si.description, 4000, 1 ) as description, si.dependant_devis"&_
" FROM release_manager.CQ_software_issue si INNER JOIN"&_
" release_manager.CQ_statedef sdef ON si.state = sdef.id INNER JOIN"&_
" release_manager.CQ_users sb ON si.submitter = sb.dbid INNER JOIN"&_
" release_manager.CQ_users ow ON si.owner = ow.dbid INNER JOIN"&_
" release_manager.CQ_users ap ON si.approver = ap.dbid"&_
" WHERE si.dbid = "& NNiss_id
Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
' 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") )
For each match in objMatches
SQLstr2 = " SELECT si.new_num AS iss_num"&_
" FROM release_manager.CQ_software_issue si"&_
" WHERE si.dependant_devis like '%" & match & "%'"
Set rsCQ2 = OraDatabase.DbCreateDynaset( SQLstr2, cint(0))
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")%>
