<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' ISSUE NOTES '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsCQ Dim ddWidth Dim parIss_db Dim parIss_id '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set pkgInfoHash = CreateObject("Scripting.Dictionary") Call Get_Iss_Parameters ( parIss_db, parIss_id ) ddWidth = 20 '---------------------------------------------- %> <% Sub Get_Issue_Notes ( NNiss_db, NNiss_id, OOrsCQ ) Dim SQLstr If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then SQLstr = _ " SELECT si.dbid AS iss_id, " &_ " si.new_num AS iss_num," &_ " si.headline AS summary," &_ " his.action_timestamp AS change_stamp," &_ " his.user_name, "&_ " his.action_name, " &_ " his.new_state"&_ " FROM release_manager.CQ_software_issue si LEFT OUTER JOIN"&_ " release_manager.CQ_history his ON si.dbid = his.entity_dbid"&_ " WHERE si.dbid = "& NNiss_id &_ " ORDER BY his.action_timestamp" Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0)) End If End Sub %> <% Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ ) %> Release Manager
 
 Issue " readonly> " readonly>

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

<%If Not IsNull(rsCQ("change_stamp")) Then%> <%While (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) %> <%rsCQ.MoveNext Wend%> <%End If%>
Change Date User Name Action New State
<%=Day(rsCQ("change_stamp")) &"-"& MonthName(Month(rsCQ("change_stamp")), TRUE) &"-"& Year(rsCQ("change_stamp")) &" "& FormatDateTime( rsCQ("change_stamp"), 4 )%> <%=rsCQ("user_name")%> <%=rsCQ("action_name")%> <%=rsCQ("new_state")%>