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>