Subversion Repositories DevTools

Rev

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

Rev 7245 Rev 7246
Line 134... Line 134...
134
'   Get configured platforms
134
'   Get configured platforms
135
'
135
'
136
Function GetPlatforms ()
136
Function GetPlatforms ()
137
    Dim rsQry, query
137
    Dim rsQry, query
138
 
138
 
139
    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)"
139
    query = "SELECT bp.bp_id, bp.bp_active, bp.bp_name, bpc.gbe_id" &_
-
 
140
            " FROM build_platforms bp, build_platforms_config   bpc" &_
-
 
141
            " WHERE bp.bp_id = bpc.bp_id" &_
-
 
142
            " ORDER BY upper(bp.bp_name)"
140
 
143
 
141
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
144
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
142
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
145
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
143
       Dim checkText
146
        Dim checkText
144
       If InStr(platformList, "," & rsQry("BP_ID") & ",") > 0 Then
147
        checkText = IIF(InStr(platformList, "," & rsQry("BP_ID") & ",") > 0, "checked", "")
-
 
148
 
145
        checkText = "checked"
149
        Dim bActive
-
 
150
		bActive = IIF(rsQry("BP_ACTIVE") = "Y", TRUE, FALSE)
-
 
151
 
-
 
152
		' Only include those that are active UNLESS they are currently selected
146
       else 
153
		' ie: Cannot select an inactive item, but can still use it
-
 
154
 
147
        checkText = ""
155
		If bActive OR checkText <> "" Then
148
       End If
-
 
149
       GetPlatforms = GetPlatforms & "<tr class=body_txt>"
156
            GetPlatforms = GetPlatforms & "<tr class='body_txt selPlat selPlat_" & rsQry("gbe_id") & "'>"
150
       GetPlatforms = GetPlatforms & "<td> <input style='margin:0px 3px' type=checkbox name=platform value='"& rsQry("BP_ID") &"' "& checkText &">" & rsQry("BP_NAME") & "</td>"
157
            GetPlatforms = GetPlatforms & "<td> <input style='margin:0px 3px' type=checkbox name=platform value='"& rsQry("BP_ID") &"' "& checkText &">" & rsQry("BP_NAME") & "</td>"
151
       GetPlatforms = GetPlatforms & "</tr>"
158
            GetPlatforms = GetPlatforms & "</tr>"
-
 
159
        End If
152
 
160
 
153
       rsQry.MoveNext
161
       rsQry.MoveNext
154
    Wend
162
    Wend
155
    rsQry.Close()
163
    rsQry.Close()
156
    Set rsQry = Nothing
164
    Set rsQry = Nothing
157
 
165
 
158
   GetPlatforms = "<table>" & GetPlatforms & "</table>"
166
   GetPlatforms = "<table id=selPlat>" & GetPlatforms & "</table>"
159
 
167
 
160
End Function
168
End Function
161
 
169
 
162
'--------------------------------------------------------------------------------------------------------------------------
170
'--------------------------------------------------------------------------------------------------------------------------
163
%>
171
%>
Line 234... Line 242...
234
      Set rsQry = nothing
242
      Set rsQry = nothing
235
 
243
 
236
   End If
244
   End If
237
 
245
 
238
End If
246
End If
239
 
-
 
240
 
-
 
241
'----------------------------------------------
247
'----------------------------------------------
-
 
248
Sub InsertJavaScript %>
-
 
249
<script type="text/javascript" charset="utf-8">
-
 
250
    $(document).ready(function(){
-
 
251
 
-
 
252
        // Initial config of visible PLATFORMS
-
 
253
        setGbeId();
-
 
254
 
-
 
255
    	// Wire up the MachType selector to modify the available PLATFORMS
-
 
256
    	$('#selGbeId').change( setGbeId );
-
 
257
 
-
 
258
        // Update the available platforms when the user changes the GBE_MACHTYPE
-
 
259
        // Operation relies on the fact that
-
 
260
        //      Hidden items will not be submitted as a part of the form
-
 
261
        //      Platforms supported on multiple machines will appear multiple times
-
 
262
        function setGbeId(  )
-
 
263
        {
-
 
264
            var gbeId = $('#selGbeId').children("option:selected").val();
-
 
265
			var gbeClass = '.selPlat_' + gbeId;
-
 
266
 
-
 
267
            var elAll = $('#selPlat .selPlat');             // All Platform selectors
-
 
268
			var elSel = elAll.filter( gbeClass );           // This for current GbeId
-
 
269
			var elDeSel = elAll.not ( gbeClass );           // This not for current GbeId
-
 
270
 
-
 
271
            //  Disable so they are not submitted
-
 
272
            elDeSel.find(':input').prop('disabled', true);
-
 
273
            elSel.find(':input').prop('disabled', false);
-
 
274
 
-
 
275
            //  Show/Hide what the user can see
-
 
276
			elSel.show();
-
 
277
			elDeSel.hide();
-
 
278
        }
-
 
279
 
-
 
280
    });
-
 
281
</script>
-
 
282
<%End Sub
-
 
283
'-------------------------------------------------
242
%>
284
%>
-
 
285
 
243
<html>
286
<html>
244
<head>
287
<head>
245
<title>Release Manager</title>
288
<title>Release Manager</title>
246
<link rel="shortcut icon" href="<%=FavIcon%>"/>
289
<link rel="shortcut icon" href="<%=FavIcon%>"/>
247
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
290
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
248
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
291
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
249
<link href="images/release_manager_style.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
292
<link href="images/release_manager_style.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
250
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
293
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
-
 
294
<!--#include file="_jquery_includes.asp"-->
-
 
295
<%Call InsertJavaScript %>
251
</head>
296
</head>
252
<body leftmargin="0" topmargin="0" onLoad="self.focus();FormName.display_name.focus();">
297
<body leftmargin="0" topmargin="0" onLoad="self.focus();FormName.display_name.focus();">
253
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
298
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
254
   <tr>
299
   <tr>
255
      <td class="body_txt">
300
      <td class="body_txt">
Line 290... Line 335...
290
                  <input name="machine_hostname" type="text" class="body_txt" value="<%=machine_hostname%>" size=50 maxlength=50>
335
                  <input name="machine_hostname" type="text" class="body_txt" value="<%=machine_hostname%>" size=50 maxlength=50>
291
               </td>
336
               </td>
292
            </tr>
337
            </tr>
293
            <tr>
338
            <tr>
294
               <td><span class="body_txt nowrap">GBE_MACHTYPE</span></td>
339
               <td><span class="body_txt nowrap">GBE_MACHTYPE</span></td>
295
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachType( gbe_id ), CBool(Request("bmcon_id") = ""), "size=1 class='body_txt'" )%></td>
340
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachType( gbe_id ), CBool(Request("bmcon_id") = ""), "size=1 class='body_txt' id=selGbeId" )%></td>
296
            </tr>
341
            </tr>
297
            <tr>
342
            <tr>
298
               <td><span class="body_txt nowrap">Allow Use</span></td>
343
               <td><span class="body_txt nowrap">Allow Use</span></td>
299
               <td>
344
               <td>
300
                  <input type="checkbox" name="active" value="Y" <%=activeChecked%>>
345
                  <input type="checkbox" name="active" value="Y" <%=activeChecked%>>