<% '------------ Variable Definition ------------- Dim biQry Dim utQry Dim rsQry '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- ' Get a set of Build Instances for the current package ' Populates biQry Sub getBuildInstances Dim query query = _ "select bi.BUILD_ID, bi.PV_ID, bi.RTAG_ID,pv.pkg_id, bi.build_ref," &_ " SUBSTR(NVL(pj.PROJ_NAME,'-Deleted-'), 0, 60) as PROJ_NAME, " &_ " pj.PROJ_ID, " &_ " SUBSTR(NVL(rt.RTAG_NAME,'-Deleted-'), 0, 60) as RTAG_NAME, " &_ " TO_CHAR(bi.TIMESTAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as TIMESTAMP, " &_ " DECODE(bi.reason, 'N', 'New Version', 'R', 'Ripple', 'T', 'Test', 'P', 'Restored', 'F', 'ForcedRipple', 'Unknown') as REASON," &_ " DECODE(bi.state, 'B', 'Buiding', 'C', 'Complete', 'E', 'Error', 'S', 'SysErr', 'Unknown') as STATE" &_ " from BUILD_INSTANCES bi, " &_ " projects pj, " &_ " RELEASE_TAGS rt, " &_ " packages p, " &_ " PACKAGE_VERSIONS pv" &_ " where bi.PV_ID = pv.pv_id " &_ " and pv.PKG_ID = p.PKG_ID" &_ " and bi.RTAG_ID = rt.RTAG_ID(+)" &_ " and rt.proj_id = pj.proj_id(+)" &_ " and bi.PV_ID = :PV_ID" &_ " order by bi.BUILD_ID desc" Set biQry = nothing OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER Set biQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "PV_ID" End Sub ' Get a set of test results for a specified build instance ' Populates utQry Sub getTestResults(nBuildId) Dim query query = _ "select * from " &_ " TEST_RUN tr" &_ " where tr.BUILD_ID = :BUILD_ID" &_ " order by PLATFORM desc,TYPE desc" Set utQry = nothing OraDatabase.Parameters.Add "BUILD_ID", nBuildId, ORAPARM_INPUT, ORATYPE_NUMBER Set utQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "BUILD_ID" End Sub '---------------------------------------------- Sub BuildJsButtonHref (bState, sClass, sTitle, sImageClass, shref)%> <%If bState Then%> <%Else%> <%End If%> <%End Sub %> <% Call getBuildInstances %> <%If biQry.RecordCount < 1 Then%> <%End If%> <% Dim displayClass : displayClass = "display-table" Dim displayClassI : displayClassI = "display-inline" Dim displayClass1 : displayClass1 = "display-none" Dim displayClassI1 : displayClassI1 = "display-none" While ((NOT biQry.BOF) AND (NOT biQry.EOF)) %> <% displayClass = "display-none" displayClass1 = "display-table" displayClassI = "display-none" displayClassI1 = "display-inline" biQry.MoveNext WEnd biQry.Close Set biQry = nothing %>

Project	Release	Time	Reason	Result
<%BuildJsButtonHref biQry("build_ref") <> "", "vixIframeDialog", "Associated Log Files", "logIcon", "_iframe_build_logs.asp?rtag_id="&biQry("RTAG_ID")&"&build_ref="&biQry("build_ref")%> <%=biQry("proj_name")%>	<%=biQry("rtag_name")%>	<%=biQry("timestamp")%>	<%=biQry("reason")%>	<%=biQry("state")%>
<%Call getTestResults(biQry("BUILD_ID"))%>      <%If utQry.RecordCount < 1 Then %> <%Else%> <%End If%> No Test Results found Tests : <%=utQry.RecordCount%> <%If utQry.RecordCount < 1 Then %> <%Else%> <%End If%> <%While ((NOT utQry.BOF) AND (NOT utQry.EOF))%> <% utQry.MoveNext WEnd utQry.Close Set utQry = nothing %> No Test Results found Platform  Type  Test Name  Duration  Outcome  <%=utQry("platform")%> <%=utQry("type")%> <%=utQry("test_name")%> <%=utQry("time_taken")%> <%=utQry("test_outcome")%>