Subversion Repositories DevTools

Rev

Rev 7235 | Rev 7244 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7235 Rev 7240
Line 62... Line 62...
62 
   Set rsQry = Nothing
 62 
   Set rsQry = Nothing
63 
 
 63 
 
64 
   OraDatabase.Parameters.Remove "gbe_id"
 64 
   OraDatabase.Parameters.Remove "gbe_id"
65 
End Function
 65 
End Function
66 
'--------------------------------------------------------------------------------------------------------------------------
 66 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 67 
Function GetPlatforms ()
- 
 
 68 
    Dim rsQry, query, selectData
- 
 
 69 
 
- 
 
 70 
    query = "SELECT bp.BP_ID, bp.BP_ACTIVE, bp.BP_NAME, bp.BP_DESCRIPTION FROM BUILD_PLATFORMS bp, BUILD_PLATFORMS_CONFIG bpc WHERE bp.bp_id = bpc.bp_id AND bpc.gbe_id = 90 ORDER BY UPPER(bp.BP_NAME)"
- 
 
 71 
 
- 
 
 72 
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
- 
 
 73 
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 74 
       Dim checkText
- 
 
 75 
       'If InStr(selectData, "," & rsQry("BMCON_ID") & ",") > 0 Then
- 
 
 76 
       ' checkText = "checked"
- 
 
 77 
       'else
- 
 
 78 
       ' checkText = ""
- 
 
 79 
       'End If
- 
 
 80 
       GetPlatforms = GetPlatforms & "<tr class=body_txt>"
- 
 
 81 
       GetPlatforms = GetPlatforms & "<td> <input type=checkbox name=platform value='"& rsQry("BP_ID") &"' "& checkText &">" & rsQry("BP_NAME") & "</td>"
- 
 
 82 
       GetPlatforms = GetPlatforms & "</tr>"
- 
 
 83 
 
- 
 
 84 
       rsQry.MoveNext
- 
 
 85 
    Wend
- 
 
 86 
    rsQry.Close()
- 
 
 87 
    Set rsQry = Nothing
- 
 
 88 
 
- 
 
 89 
   GetPlatforms = "<table>" & GetPlatforms & "</table>"
- 
 
 90 
 
- 
 
 91 
End Function
- 
 
 92 
 
- 
 
 93 
'--------------------------------------------------------------------------------------------------------------------------
67 
%>
 94 
%>
68 
<%
 95 
<%
69 
'------------ RUN BEFORE PAGE RENDER ----------
 96 
'------------ RUN BEFORE PAGE RENDER ----------
70 
 
 97 
 
71 
If CBool(Request("action")) Then
 98 
If CBool(Request("action")) Then
Line 208... Line 235...
208 
               </td>
 235 
               </td>
209 
            </tr>
 236 
            </tr>
210 
            <tr>
 237 
            <tr>
211 
               <td><span class="body_txt">Machine HostName</span></td>
 238 
               <td><span class="body_txt">Machine HostName</span></td>
212 
               <td>
 239 
               <td>
213 
                  <input name="machine_hostname" type="text" class="body_txt" value="<%=machine_hostname%>" size=60 maxlength=50>
 240 
                  <input name="machine_hostname" type="text" class="body_txt" value="<%=machine_hostname%>" size=50 maxlength=50>
214 
               </td>
 241 
               </td>
215 
            </tr>
 242 
            </tr>
216 
            <tr>
 243 
            <tr>
217 
               <td><span class="body_txt nowrap">GBE_MACHTYPE</span></td>
 244 
               <td><span class="body_txt nowrap">GBE_MACHTYPE</span></td>
218 
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachType( gbe_id ), FALSE, "size=1 class='body_txt'" )%></td>
 245 
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachType( gbe_id ), FALSE, "size=1 class='body_txt'" )%></td>
Line 228... Line 255...
228 
               <td><span class="body_txt nowrap">Description</span></td>
 255 
               <td><span class="body_txt nowrap">Description</span></td>
229 
               <td>
 256 
               <td>
230 
                  <textarea name="Description" cols=50 rows=5 class='body_txt'><%=Description%></textarea>
 257 
                  <textarea name="Description" cols=50 rows=5 class='body_txt'><%=Description%></textarea>
231 
               </td>
 258 
               </td>
232 
            </tr>
 259 
            </tr>
- 
 
 260 
            <tr>
- 
 
 261 
               <td><span class="body_txt nowrap">Platfroms</span></td>
- 
 
 262 
               <td style="border: darkgrey 1px solid">
- 
 
 263 
				<div style="overflow-y: scroll;height: 10em;">
- 
 
 264 
					  <%=GetPlatforms%>
- 
 
 265 
				</div>
- 
 
 266 
               </td>
- 
 
 267 
            </tr>
- 
 
 268 
 
233 
         </table>
 269 
         </table>
234 
      </td>
 270 
      </td>
235 
   </tr>
 271 
   </tr>
236 
   <tr>
 272 
   <tr>
237 
      <td>
 273 
      <td>