| Line 46... |
Line 46... |
| 46 |
<%
|
46 |
<%
|
| 47 |
'--------------------------------------------------------------------------------------------------------------------------
|
47 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 48 |
'-------------------------------------------------
|
48 |
'-------------------------------------------------
|
| 49 |
' Function: GetMachHost
|
49 |
' Function: GetMachHost
|
| 50 |
' Description: Determine the current Display Host Information for a given BMCON_ID
|
50 |
' Description: Determine the current Display Host Information for a given BMCON_ID
|
| - |
|
51 |
' Do not show build machines that are no longer 'allowed' unless
|
| - |
|
52 |
' it is currently selected.
|
| 51 |
' Arguments: abmcon_id - A BMCON_ID
|
53 |
' Arguments: abmcon_id - A BMCON_ID
|
| 52 |
'
|
54 |
'
|
| 53 |
' Returns: An array with 5 elements in it - do be used in creating a multicolum drop down list
|
55 |
' Returns: An array with 5 elements in it - to be used in creating a multicolum drop down list
|
| 54 |
'
|
56 |
'
|
| 55 |
Function GetMachHost (abmcon_id)
|
57 |
Function GetMachHost (abmcon_id)
|
| 56 |
Dim rsQry, query
|
58 |
Dim rsQry, query
|
| 57 |
|
59 |
|
| 58 |
OraDatabase.Parameters.Add "bmcon_id", abmcon_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
60 |
OraDatabase.Parameters.Add "bmcon_id", abmcon_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| Line 62... |
Line 64... |
| 62 |
"gbe_value," &_
|
64 |
"gbe_value," &_
|
| 63 |
"COALESCE(SUBSTR(description,1,INSTR(description,CHR(10),1,1)),description) as description," &_
|
65 |
"COALESCE(SUBSTR(description,1,INSTR(description,CHR(10),1,1)),description) as description," &_
|
| 64 |
"DECODE(:bmcon_id, bm.bmcon_id, 'selected', NULL) AS SELECTED" &_
|
66 |
"DECODE(:bmcon_id, bm.bmcon_id, 'selected', NULL) AS SELECTED" &_
|
| 65 |
" FROM build_machine_config bm," &_
|
67 |
" FROM build_machine_config bm," &_
|
| 66 |
" gbe_machtype gb " &_
|
68 |
" gbe_machtype gb " &_
|
| 67 |
" WHERE bm.gbe_id = gb.gbe_id" &_
|
69 |
" WHERE bm.gbe_id = gb.gbe_id " &_
|
| - |
|
70 |
" and (bm.active = 'Y' OR bm.bmcon_id = :bmcon_id )" &_
|
| 68 |
" ORDER by bm.display_name"
|
71 |
" ORDER by bm.display_name"
|
| 69 |
|
72 |
|
| 70 |
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
|
73 |
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
|
| 71 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
74 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
| 72 |
GetMachHost = rsQry.GetRows()
|
75 |
GetMachHost = rsQry.GetRows()
|