<%@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 '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set pkgInfoHash = CreateObject("Scripting.Dictionary") Set rsCQ = Server.CreateObject("ADODB.Recordset") Call Get_Iss_Parameters (parIss_id ) ddWidth = 20 '---------------------------------------------- %> <% Sub Get_Issue_Details (NNiss_id, OOrsCQ ) Dim SQLstr 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"&_ " 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() End Sub %> <%Call Get_Issue_Details (parIss_id, rsCQ )%> <%=rsCQ("iss_num")%> - <%=rsCQ("summary")%>
 
 Issue " readonly> " readonly>

<%Call Generate_Tab_Menu ( TABarray4, "Details", "blue" )%>
 

Issue Type Submitter
Detected in Version Submitted on Date
Project Owner
Product Approver
Package    
Priority    
Status    

Description
<%=NewLine_To_BR( Server.HTMLEncode( rsCQ("description") ) )%>