Subversion Repositories DevTools

Rev

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

Rev 6784 Rev 6786
Line 31... Line 31...
31
Dim rsQry
31
Dim rsQry
32
Dim parRtagId
32
Dim parRtagId
33
Dim query_string
33
Dim query_string
34
Dim rcon_id
34
Dim rcon_id
35
Dim shref_base
35
Dim shref_base
-
 
36
Dim canControl
36
'------------ Constants Declaration -----------
37
'------------ Constants Declaration -----------
37
'------------ Variable Init -------------------
38
'------------ Variable Init -------------------
38
parRtagId = Request("rtag_id")
39
parRtagId = Request("rtag_id")
39
objPMod.PersistInQryString("rtag_id")
40
objPMod.PersistInQryString("rtag_id")
-
 
41
canControl = canActionControlInProject("BuildControl")
40
'----------------------------------------------
42
'----------------------------------------------
41
Sub IncludePackages()
43
Sub IncludePackages()
42
 
44
 
43
   On Error Resume Next
45
   On Error Resume Next
44
   objEH.ErrorRedirect = TRUE
46
   objEH.ErrorRedirect = TRUE
Line 384... Line 386...
384
                                 <td nowrap class="body_rowg"><%=estDuration%></td>
386
                                 <td nowrap class="body_rowg"><%=estDuration%></td>
385
                                 <td nowrap class="body_rowg"><%=lastChange%></td>
387
                                 <td nowrap class="body_rowg"><%=lastChange%></td>
386
                                 <td nowrap class="body_rowg">
388
                                 <td nowrap class="body_rowg">
387
                                    <%
389
                                    <%
388
                                    If NOT indefinitelyPaused  Then
390
                                    If NOT indefinitelyPaused  Then
389
                                       If canActionControlInProject("BuildControl") Then
-
 
390
                                          If bActive = "U" Then
391
                                        If bActive = "U" Then
391
                                          ElseIf bActive = "N" Then
-
 
392
                                             Call Action_Buttons ( "Daemon Unavailable" )
-
 
393
                                          ElseIf daemonState = 0 Then
-
 
394
                                             Call Action_Buttons ( "Daemon Pause" )
-
 
395
                                          ElseIf daemonState = 1 Then
-
 
396
                                             Call Action_Buttons ( "Daemon Resume" )
-
 
397
                                          ElseIf daemonState = 2 Then
-
 
398
                                             Call Action_Buttons ( "Daemon Start" )
-
 
399
                                          Else
-
 
400
                                             Call Action_Buttons ( "Daemon Resume" )
-
 
401
                                          End If
-
 
402
                                       Else
-
 
403
                                          If bActive = "U" Then
-
 
404
                                          ElseIf bActive = "N" Then
392
                                        ElseIf bActive = "N" Then
405
                                             Call Action_Buttons ( "Daemon Unavailable" )
393
                                            Call Action_Buttons ( "Daemon Unavailable" )
406
                                          ElseIf daemonState = 0 Then
394
                                        ElseIf daemonState = 0 Then
407
                                             Call Action_Buttons ( "Daemon Pause Disabled" )
395
                                            Call Action_Buttons_State ( "Daemon Pause", canControl )
408
                                          ElseIf daemonState = 1 Then
396
                                        ElseIf daemonState = 1 Then
409
                                             Call Action_Buttons ( "Daemon Resume Disabled" )
397
                                            Call Action_Buttons_State ( "Daemon Resume", canControl )
410
                                          ElseIf daemonState = 2 Then
398
                                        ElseIf daemonState = 2 Then
411
                                             Call Action_Buttons ( "Daemon Start Disabled" )
399
                                            Call Action_Buttons_State ( "Daemon Start", canControl )
412
                                          Else
400
                                        Else
413
                                             Call Action_Buttons ( "Daemon Resume Disabled" )
401
                                            Call Action_Buttons_State ( "Daemon Resume", canControl )
414
                                          End If
-
 
415
                                       End If
402
                                      End If
416
                                    Else
403
                                    Else
417
                                       %>Unavailable<%
404
                                       %>Unavailable<%
418
                                    End If
405
                                    End If
419
                                    %>
406
                                    %>
420
                                 </td>
407
                                 </td>
Line 432... Line 419...
432
                             <%End If%>
419
                             <%End If%>
433
                             </td>
420
                             </td>
434
                             <td valign="bottom" nowrap class="body_col">
421
                             <td valign="bottom" nowrap class="body_col">
435
                             <%
422
                             <%
436
                               If (rsQry.RecordCount > 0) AND NOT indefinitelyPaused Then
423
                               If (rsQry.RecordCount > 0) AND NOT indefinitelyPaused Then
437
                                 If objAccessControl.UserLogedIn AND canActionControlInProject("BuildControl") Then
-
 
438
                                   Call Action_Buttons ( "Daemon Control All" )
-
 
439
                                 Else 
-
 
440
                                   Call Action_Buttons ( "Daemon Control All Disabled" )
424
                                   Call Action_Buttons_State ( "Daemon Control All", objAccessControl.UserLogedIn AND canControl )
441
                                 End If
-
 
442
                               Else
425
                               Else
443
                                 %>&nbsp<%
426
                                 %>&nbsp<%
444
                               End If
427
                               End If
445
                             %>
428
                             %>
446
                             </td>
429
                             </td>