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>