Subversion Repositories DevTools

Rev

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

Rev 7240 Rev 7244
Line 29... Line 29...
29 
'------------ Constants Declaration -----------
 29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
 30 
'------------ Variable Init -------------------
31 
Set objBtnControl = New ActionButtonControl
 31 
Set objBtnControl = New ActionButtonControl
32 
bCanEdit = canActionControl("ConfigureBuildService")
 32 
bCanEdit = canActionControl("ConfigureBuildService")
33 
'----------------------------------------------
 33 
'----------------------------------------------
- 
 
 34 
'-------------------------------------------------
- 
 
 35 
Sub InsertJavaScript %>
- 
 
 36 
<script type="text/javascript" charset="utf-8">
- 
 
 37 
    $(document).ready(function(){
- 
 
 38 
 
- 
 
 39 
    	// Wire up the buttons
- 
 
 40 
    	$('.btnEdit').click( function(){
- 
 
 41 
            var el = $(this);
- 
 
 42 
            var trel = el.closest("tr");
- 
 
 43 
            var bmcon_id = trel.data("bmcon_id");
- 
 
 44 
console.log("Edit:", bmcon_id);
- 
 
 45 
           MM_openVixIFrame('wAddBuildMachine.asp?type=edit&bmcon_id=' + bmcon_id + '&rfile=<%=scriptName%><%=objPMod.ComposeURL()%>','Edit Build Machine');
- 
 
 46 
        });
- 
 
 47 
 
- 
 
 48 
    	$('.btnDel').click( function(){
- 
 
 49 
            var el = $(this);
- 
 
 50 
            var trel = el.closest("tr");
- 
 
 51 
            var bmcon_id = trel.data("bmcon_id");
- 
 
 52 
			var machine_name = trel.find('td:eq(2)').text();
- 
 
 53 
			var url = '_DeleteBuildMachine.asp?bmcon_id=' + bmcon_id + '&rfile=<%=scriptName%><%=objPMod.ComposeURL()%>'
- 
 
 54 
            vixConfirm('Remove Build Machine \''+ machine_name +'\' from this list?',{title:'Delete Build Machine', button:'Delete', url: url});
- 
 
 55 
        });
- 
 
 56 
 
- 
 
 57 
    	$('.btnClone').click( function(){
- 
 
 58 
            var el = $(this);
- 
 
 59 
            var trel = el.closest("tr");
- 
 
 60 
            var bmcon_id = trel.data("bmcon_id");
- 
 
 61 
            MM_openVixIFrame('wAddBuildMachine.asp?type=clone&bmcon_id=' + bmcon_id + '&rfile=<%=scriptName%><%=objPMod.ComposeURL()%>','Clone Build Machine');
- 
 
 62 
console.log("Cfg", bmcon_id);
- 
 
 63 
        });
- 
 
 64 
 
- 
 
 65 
    });
- 
 
 66 
</script>
- 
 
 67 
<%End Sub
- 
 
 68 
'-------------------------------------------------
34 
%>
 69 
%>
35 
<html>
 70 
<html>
36 
<head>
 71 
<head>
37 
<title>Build Machine Administration</title>
 72 
<title>Build Machine Administration</title>
38 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 73 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
Line 43... Line 78...
43 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
 78 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
44 
<!--#include file="_jquery_includes.asp"-->
 79 
<!--#include file="_jquery_includes.asp"-->
45 
<!-- DROPDOWN MENUS -->
 80 
<!-- DROPDOWN MENUS -->
46 
<!--#include file="_menu_def.asp"-->
 81 
<!--#include file="_menu_def.asp"-->
47 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
 82 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
- 
 
 83 
<%Call InsertJavaScript %>
48 
</head>
 84 
</head>
49 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 85 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
50 
<!-- HEADER -->
 86 
<!-- HEADER -->
51 
<!--#include file="_header.asp"-->
 87 
<!--#include file="_header.asp"-->
52 
 
 88 
 
Line 63... Line 99...
63 
        <td>
 99 
        <td>
64 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2" class=stdBrown>
 100 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2" class=stdBrown>
65 
                <caption>Current List of Build Machines</caption>
 101 
                <caption>Current List of Build Machines</caption>
66 
                <thead>
 102 
                <thead>
67 
                <tr>
 103 
                <tr>
68 
                <!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 104 
					<!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
69 
                <th></th>
 - 
 
70 
                <th>DISPLAY NAME</th>
 105 
					<th>DISPLAY NAME</th>
71 
                <th>MACHINE HOSTNAME</th>
 106 
					<th>MACHINE HOSTNAME</th>
72 
                <th>GBE_MACHTYPE</th>
 107 
					<th>GBE_MACHTYPE</th>
73 
                <th>ALLOW USE</th>
 108 
					<th>ALLOW USE</th>
74 
                <th width=250>DESCRIPTION</th>
 109 
					<th width=250>DESCRIPTION</th>
75 
                <th>Edit</th>
110 
					<th>Edit</th>
76 
                </tr>
 111 
					</tr>
77 
                </thead>
 112 
                </thead>
78 
 
 - 
 
79 
          <%
 113 
          <%
80 
          ' Load some action buttons
 - 
 
81 
          Call objBtnControl.LoadActionButtons ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), OraDatabase )
 - 
 
82 
          objBtnControl.ButtonSpacer = 1
 - 
 
83 
 
 - 
 
84 
          If NOT bCanEdit Then
 - 
 
85 
            Call objBtnControl.Active  ( "btnEditBuildMachine", "N" )
 - 
 
86 
            Call objBtnControl.Active  ( "btnDeleteBuildMachine", "N" )
 - 
 
87 
          End If
 - 
 
88
- 
 
89 
          Dim rsQry
 114 
          Dim rsQry
90 
          Dim gbe_id, gbe_value
 115 
          Dim gbe_id, gbe_value
91 
          Dim bmcon_id
 116 
          Dim bmcon_id
92 
          Dim display_name
 117 
          Dim display_name
93 
          Dim machine_hostname, description, active, activeChecked
 118 
          Dim machine_hostname, description, active, activeChecked
Line 101... Line 126...
101 
              If active = "Y" Then activeChecked = "checked" Else activeChecked = ""
 126 
              If active = "Y" Then activeChecked = "checked" Else activeChecked = ""
102 
              description = rsQry("description")
 127 
              description = rsQry("description")
103 
              gbe_id = rsQry("gbe_id")
 128 
              gbe_id = rsQry("gbe_id")
104 
              gbe_value = rsQry("gbe_value")
 129 
              gbe_value = rsQry("gbe_value")
105 
              %>
 130 
              %>
106 
              <tr style="vertical-align:top;" >
 131 
              <tr style="vertical-align:top;" data-bmcon_id="<%=bmcon_id%>">
107 
                <td></td>
 - 
 
108 
                <td nowrap><%=display_name%></td>
 132 
                <td nowrap><%=display_name%></td>
109 
                <td nowrap><%=machine_hostname%></td>
 133 
                <td nowrap><%=machine_hostname%></td>
110 
                <td nowrap><%=gbe_value%></td>
 134 
                <td nowrap><%=gbe_value%></td>
111 
                <td nowrap><input type="checkbox" disabled <%=activeChecked%> ></td>
 135 
                <td nowrap><input type="checkbox" disabled <%=activeChecked%> ></td>
112 
                <td wrap><%=description%></td>
 136 
                <td wrap><%=description%></td>
113 
                <td nowrap><%Call objBtnControl.Render( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), objAccessControl )%></td>
 - 
 
114 
                <td nowrap>
 137 
                <td nowrap class=tight>
- 
 
 138 
				<%
115 
				   <img src="icons/i_edit.gif" hspace="0" border="0" align="absmiddle" title ='Edit basic Machine properties'>
 139 
                    BuildJsButton bCanEdit, "btnEdit", "Edit basic machine properties", "src='icons/i_edit.gif'"
116 
				   <img src="icons/i_edit.gif" hspace="0" border="0" align="absmiddle" title ='Configure available platforms'>
 140 
                    BuildJsButton bCanEdit, "btnClone",  "Clone platform", "src='icons/i_clone.gif'"
117 
				   <img src="icons/i_remove.gif" hspace="0" border="0" align="absmiddle" title= 'Delete this build machine'>
 141 
                    BuildJsButton bCanEdit, "btnDel ", "Delete the build machine", "src='icons/i_remove.gif'"
- 
 
 142 
                 %>
118 
				</td>
 143 
				</td>
119 
              </tr>
144 
              </tr>
120 
              <%
 145 
              <%
121 
              rsQry.MoveNext()
 146 
              rsQry.MoveNext()
122 
          Wend
 147 
          Wend
123 
          rsQry.Close()
 148 
          rsQry.Close()
124 
          Set rsQry = nothing
 149 
          Set rsQry = nothing
125 
          %>
 150 
          %>
126
151
127 
      <tr>
 152 
      <tr>
128 
        <td colspan=5></td>
 153 
		<td align=right nowrap colspan=6 class=tight>
129 
        <td align=right nowrap colspan=2><%Call Action_Buttons_State("Add Build Machine", bCanEdit)%>
 154 
		<% BuildEditButtonRaw bCanEdit, "Add Build Machine", "Add New Build Machine",TRUE, _
- 
 
 155 
								 "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
- 
 
 156 
								 "MM_openVixIFrame('wAddBuildMachine.asp','Add Build Machine')"%>
- 
 
 157 
		</td>
130 
      </tr>
 158 
      </tr>
131 
 
 159 
 
132 
    </table>
 160 
    </table>
133 
    <%=objPMod.ComposeHiddenTags()%>
 161 
    <%=objPMod.ComposeHiddenTags()%>
134 
    <input type="hidden" name="action" value="true">
 162 
    <input type="hidden" name="action" value="true">