| Line 32... |
Line 32... |
| 32 |
Dim query_string
|
32 |
Dim query_string
|
| 33 |
Dim objBtnControl
|
33 |
Dim objBtnControl
|
| 34 |
Dim rcon_id
|
34 |
Dim rcon_id
|
| 35 |
Dim masterCount
|
35 |
Dim masterCount
|
| 36 |
Dim toolsetWarning
|
36 |
Dim toolsetWarning
|
| - |
|
37 |
Dim bCanEdit
|
| 37 |
|
38 |
|
| 38 |
'------------ Constants Declaration -----------
|
39 |
'------------ Constants Declaration -----------
|
| 39 |
'------------ Variable Init -------------------
|
40 |
'------------ Variable Init -------------------
|
| 40 |
parRtagId = Request("rtag_id")
|
41 |
parRtagId = Request("rtag_id")
|
| 41 |
objPMod.PersistInQryString("rtag_id")
|
42 |
objPMod.PersistInQryString("rtag_id")
|
| 42 |
Set objBtnControl = New ActionButtonControl
|
43 |
Set objBtnControl = New ActionButtonControl
|
| - |
|
44 |
bCanEdit = canActionControlInProject("BuildConfiguration")
|
| 43 |
'----------------------------------------------
|
45 |
'----------------------------------------------
|
| 44 |
%>
|
46 |
%>
|
| 45 |
<%
|
47 |
<%
|
| 46 |
'--------------------------------------------------------------------------------------------------------------------------
|
48 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 47 |
Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
|
49 |
Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
|
| Line 169... |
Line 171... |
| 169 |
'----------------------------------------------------
|
171 |
'----------------------------------------------------
|
| 170 |
|
172 |
|
| 171 |
' --- RUN onPostBack ---
|
173 |
' --- RUN onPostBack ---
|
| 172 |
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
|
174 |
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
|
| 173 |
If objForm.IsValidOnPostBack Then
|
175 |
If objForm.IsValidOnPostBack Then
|
| 174 |
If canActionControlInProject("BuildConfiguration") Then
|
176 |
If bCanEdit Then
|
| 175 |
If Request("btn") = "Delete" Then
|
177 |
If Request("btn") = "Delete" Then
|
| 176 |
Call DeleteDaemon(Request("rcon_id_list"))
|
178 |
Call DeleteDaemon(Request("rcon_id_list"))
|
| 177 |
ElseIf Request("btn") = "Unlink" Then
|
179 |
ElseIf Request("btn") = "Unlink" Then
|
| 178 |
Call RemoveDaemon(Request("rcon_id_list"))
|
180 |
Call RemoveDaemon(Request("rcon_id_list"))
|
| 179 |
End If
|
181 |
End If
|
| Line 198... |
Line 200... |
| 198 |
objFormComponent.Action = ScriptName
|
200 |
objFormComponent.Action = ScriptName
|
| 199 |
Call objFormComponent.FormStart()
|
201 |
Call objFormComponent.FormStart()
|
| 200 |
%>
|
202 |
%>
|
| 201 |
<div class=panel style='max-width:90%'>
|
203 |
<div class=panel style='max-width:90%'>
|
| 202 |
<div class=rounded_box_caption>
|
204 |
<div class=rounded_box_caption>
|
| 203 |
<%=IIf( canActionControlInProject("BuildConfiguration"),"ADMINISTER","VIEW")%> BUILD CONFIGURATION
|
205 |
<%=IIf( bCanEdit,"ADMINISTER","VIEW")%> BUILD CONFIGURATION
|
| 204 |
</div>
|
206 |
</div>
|
| 205 |
<div class="rounded_box" >
|
207 |
<div class="rounded_box" >
|
| 206 |
<div class='controlPanel'>
|
208 |
<div class='controlPanel'>
|
| 207 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
209 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| 208 |
<!--#include file="messages/_msg_inline.asp"-->
|
210 |
<!--#include file="messages/_msg_inline.asp"-->
|
| Line 216... |
Line 218... |
| 216 |
<th class='shrink'></th>
|
218 |
<th class='shrink'></th>
|
| 217 |
<th class='shrink'>DAEMON HOST</th>
|
219 |
<th class='shrink'>DAEMON HOST</th>
|
| 218 |
<th class='shrink'>GBE_MACHTYPE</th>
|
220 |
<th class='shrink'>GBE_MACHTYPE</th>
|
| 219 |
<th class='shrink'>DAEMON MODE</th>
|
221 |
<th class='shrink'>DAEMON MODE</th>
|
| 220 |
<th>GBE_BUILDFILTER</th>
|
222 |
<th>GBE_BUILDFILTER</th>
|
| 221 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
223 |
<%If bCanEdit Then%>
|
| 222 |
<th class='shrink'>ACTION</th>
|
224 |
<th class='shrink'>ACTION</th>
|
| 223 |
<%End If%>
|
225 |
<%End If%>
|
| 224 |
</thead>
|
226 |
</thead>
|
| 225 |
<%
|
227 |
<%
|
| 226 |
query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter, NVL(active, 'U') as ACTIVE " &_
|
228 |
query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter, NVL(active, 'U') as ACTIVE " &_
|
| Line 234... |
Line 236... |
| 234 |
Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
236 |
Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
|
| 235 |
Dim daemon_mode, daemon, cbtype, bActive, bInactiveMachine, dClass
|
237 |
Dim daemon_mode, daemon, cbtype, bActive, bInactiveMachine, dClass
|
| 236 |
bInactiveMachine = false
|
238 |
bInactiveMachine = false
|
| 237 |
|
239 |
|
| 238 |
cbtype = "hidden"
|
240 |
cbtype = "hidden"
|
| 239 |
If canActionControlInProject("BuildConfiguration") Then
|
241 |
If bCanEdit Then
|
| 240 |
cbtype = "checkbox"
|
242 |
cbtype = "checkbox"
|
| 241 |
End If
|
243 |
End If
|
| 242 |
|
244 |
|
| 243 |
'--- Render rows ---
|
245 |
'--- Render rows ---
|
| 244 |
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
|
246 |
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
|
| Line 266... |
Line 268... |
| 266 |
<td class=center><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
|
268 |
<td class=center><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
|
| 267 |
<td class='<%=dClass%>'><%=daemon%></td>
|
269 |
<td class='<%=dClass%>'><%=daemon%></td>
|
| 268 |
<td><%=rsQry("gbe_value")%></td>
|
270 |
<td><%=rsQry("gbe_value")%></td>
|
| 269 |
<td><%=daemon_mode%></td>
|
271 |
<td><%=daemon_mode%></td>
|
| 270 |
<td class=wrap><%=rsQry("gbe_buildfilter")%></td>
|
272 |
<td class=wrap><%=rsQry("gbe_buildfilter")%></td>
|
| 271 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
273 |
<%If bCanEdit Then%>
|
| 272 |
<td>
|
274 |
<td>
|
| 273 |
<%Call objBtnControl.Render ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%>
|
275 |
<%Call objBtnControl.Render ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%>
|
| 274 |
</td>
|
276 |
</td>
|
| 275 |
<%End If%>
|
277 |
<%End If%>
|
| 276 |
</tr>
|
278 |
</tr>
|
| Line 307... |
Line 309... |
| 307 |
</table>
|
309 |
</table>
|
| 308 |
</div>
|
310 |
</div>
|
| 309 |
<%End If%>
|
311 |
<%End If%>
|
| 310 |
<div class='buttonPanel'>
|
312 |
<div class='buttonPanel'>
|
| 311 |
<span style='float:left'>
|
313 |
<span style='float:left'>
|
| 312 |
<% BuildActionButtonClickRaw canActionControlInProject("BuildConfiguration"), "Add Daemon", "Insert New Daemon",TRUE, _
|
314 |
<% BuildActionButtonClickRaw bCanEdit, "Add Daemon", "Insert New Daemon",TRUE, _
|
| 313 |
"src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
|
315 |
"src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
|
| 314 |
"MM_openVixIFrame('wAddDaemon.asp?rtag_id="&parRtag_id&"','Add Build Daemon')" %>
|
316 |
"MM_openVixIFrame('wAddDaemon.asp?rtag_id="&parRtag_id&"','Add Build Daemon')" %>
|
| 315 |
</span>
|
317 |
</span>
|
| 316 |
<!-- ACTION BUTTONS ---------------------------------------------->
|
318 |
<!-- ACTION BUTTONS ---------------------------------------------->
|
| 317 |
<%=objFormComponent.CancelButton ( "OK", "", "build_status.asp?rtag_id="& parRtagId )%>
|
319 |
<%=objFormComponent.CancelButton ( "OK", "", "build_status.asp?rtag_id="& parRtagId )%>
|
| 318 |
<%=objPMod.ComposeHiddenTags()%>
|
320 |
<%=objPMod.ComposeHiddenTags()%>
|
| 319 |
<%If canActionControlInProject("BuildConfiguration") Then%>
|
321 |
<%If bCanEdit Then%>
|
| 320 |
<input name="btn" type="submit" value="Unlink">
|
322 |
<input name="btn" type="submit" value="Unlink">
|
| 321 |
<input name="btn" type="submit" value="Delete">
|
323 |
<input name="btn" type="submit" value="Delete">
|
| 322 |
<%End If%>
|
324 |
<%End If%>
|
| 323 |
<input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
|
325 |
<input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
|
| 324 |
<input type="hidden" name="action" value="true">
|
326 |
<input type="hidden" name="action" value="true">
|