Subversion Repositories DevTools

Rev

Rev 5357 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5357 Rev 5503
Line 55... Line 55...
55 
' Returns:      An array with 5 elements in it - to 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
56 
'
56 
'
57 
Function GetMachHost (abmcon_id)
 57 
Function GetMachHost (abmcon_id)
58 
   Dim rsQry, query
 58 
   Dim rsQry, query
59 
 
 59 
 
60 
   OraDatabase.Parameters.Add "bmcon_id",  abmcon_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 60 
   OraDatabase.Parameters.Add "bmcon_id", abmcon_id,            ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 61 
   OraDatabase.Parameters.Add "rtag_id",  Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
61 
 
 62 
 
62 
   query = "SELECT bm.bmcon_id," &_
 - 
 
63 
                  "display_name," &_
 - 
 
64 
                  "gbe_value," &_
 - 
 
65 
                  "COALESCE(SUBSTR(description,1,INSTR(description,CHR(10),1,1)),description) as description," &_
 - 
 
66 
                  "DECODE(:bmcon_id, bm.bmcon_id, 'selected', NULL) AS SELECTED" &_
 - 
 
67 
           " FROM build_machine_config bm," &_
 - 
 
68 
           "      gbe_machtype gb " &_
 - 
 
69 
           " WHERE bm.gbe_id = gb.gbe_id " &_
 - 
 
70 
           "  and (bm.active = 'Y' OR bm.bmcon_id = :bmcon_id )" &_
 63 
   query = ReadFile( rootPath & "queries\available_build_machines.sql" )
71 
           " ORDER by bm.display_name"
 - 
 
72 
 
 64 
 
73 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 65 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
74 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 66 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
75 
      GetMachHost = rsQry.GetRows()
 67 
      GetMachHost = rsQry.GetRows()
76 
   Else
 68 
   Else
Line 79... Line 71...
79 
 
 71 
 
80 
   rsQry.Close()
 72 
   rsQry.Close()
81 
   Set rsQry = Nothing
 73 
   Set rsQry = Nothing
82 
 
 74 
 
83 
   OraDatabase.Parameters.Remove "bmcon_id"
 75 
   OraDatabase.Parameters.Remove "bmcon_id"
- 
 
 76 
   OraDatabase.Parameters.Remove "rtag_id"
84 
End Function
 77 
End Function
85 
 
 78 
 
86 
'--------------------------------------------------------------------------------------------------------------------------
 79 
'--------------------------------------------------------------------------------------------------------------------------
87 
%>
 80 
%>
88 
<%
 81 
<%