Current List of Build Machines
| DISPLAY NAME |
MACHINE HOSTNAME |
GBE_MACHTYPE |
ALLOW USE |
DESCRIPTION |
PLATFORMS |
Edit |
<%
Dim rsQry, query
Dim gbe_id, gbe_value
Dim bmcon_id
Dim display_name
Dim machine_hostname, description, active, activeChecked, platforms
query = "SELECT" &_
" bm.bmcon_id," &_
" bm.display_name," &_
" bm.machine_hostname," &_
" bm.description," &_
" bm.gbe_id," &_
" bm.active," &_
" gb.gbe_value," &_
" LISTAGG(bp_name, ', ') WITHIN GROUP( ORDER BY bp_name ) AS platforms" &_
" FROM" &_
" build_machine_config bm," &_
" gbe_machtype gb," &_
" build_platforms bp," &_
" build_platforms_config2 bpc2" &_
" WHERE" &_
" bm.gbe_id = gb.gbe_id" &_
" AND bpc2.bmcon_id (+) = bm.bmcon_id" &_
" AND bp.bp_id (+) = bpc2.bp_id" &_
" GROUP BY" &_
" bm.bmcon_id," &_
" bm.display_name," &_
" bm.machine_hostname," &_
" bm.description," &_
" bm.gbe_id," &_
" bm.active," &_
" gb.gbe_value" &_
" ORDER BY" &_
" bm.display_name"
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
bmcon_id = rsQry("bmcon_id")
display_name = rsQry("display_name")
machine_hostname = rsQry("machine_hostname")
active = rsQry("active")
If active = "Y" Then activeChecked = "checked" Else activeChecked = ""
description = rsQry("description")
gbe_id = rsQry("gbe_id")
gbe_value = rsQry("gbe_value")
platforms = rsQry("platforms")
%>
| <%=display_name%> |
<%=machine_hostname%> |
<%=gbe_value%> |
> |
<%=description%> |
<%=platforms%> |
<%
BuildJsButton bCanEdit, "btnEdit", "Edit basic machine properties", "src='icons/i_edit.gif'"
BuildJsButton bCanEdit, "btnClone", "Clone platform", "src='icons/i_clone.gif'"
BuildJsButton bCanEdit, "btnDel ", "Delete the build machine", "src='icons/i_remove.gif'"
%>
|
<%
rsQry.MoveNext()
Wend
rsQry.Close()
Set rsQry = nothing
%>
|
<% BuildEditButtonRaw bCanEdit, "Add Build Machine", "Add New Build Machine",TRUE, _
"src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
"MM_openVixIFrame('wAddBuildMachine.asp','Add Build Machine')"%>
|
<%=objPMod.ComposeHiddenTags()%>
<%Call objFormComponent.FormEnd()%>
|