Subversion Repositories DevTools

Rev

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

Rev 5957 Rev 5983
Line 28... Line 28...
28 
%>
 28 
%>
29 
<!--#include file="_access_control_general.asp"-->
 29 
<!--#include file="_access_control_general.asp"-->
30 
<%
 30 
<%
31 
'------------ Variable Definition -------------
 31 
'------------ Variable Definition -------------
32 
Dim objBtnControl
 32 
Dim objBtnControl
- 
 
 33 
Dim bCanEdit
33 
'------------ Constants Declaration -----------
 34 
'------------ Constants Declaration -----------
34 
'------------ Variable Init -------------------
 35 
'------------ Variable Init -------------------
35 
Set objBtnControl = New ActionButtonControl
 36 
Set objBtnControl = New ActionButtonControl
- 
 
 37 
bCanEdit = canActionControl("ConfigureBuildService")
36 
'----------------------------------------------
 38 
'----------------------------------------------
37 
%>
 39 
%>
38 
 
 - 
 
39 
 
 - 
 
40 
 
 - 
 
41 
<%
 - 
 
42 
' Page Access Condition
 - 
 
43 
If NOT canActionControl("ConfigureBuildService") Then
 - 
 
44 
    Call Destroy_All_Objects
 - 
 
45 
    Response.Redirect("message.asp?msg=401-9")
 - 
 
46 
End If
 - 
 
47 
%>
 - 
 
48 
<html>
 40 
<html>
49 
<head>
 41 
<head>
50 
 
 - 
 
51 
<title>Build Machine Administration</title>
 42 
<title>Build Machine Administration</title>
52 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 43 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
53 
 
 - 
 
54 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 44 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
55 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 45 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
56 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 46 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
57 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 47 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
58 
<script language="JavaScript" src="images/common.js"></script>
 48 
<script language="JavaScript" src="images/common.js"></script>
Line 96... Line 86...
96 
 
 86 
 
97 
          <%
 87 
          <%
98 
          ' Load some action buttons
 88 
          ' Load some action buttons
99 
          Call objBtnControl.LoadActionButtons ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), OraDatabase )
 89 
          Call objBtnControl.LoadActionButtons ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), OraDatabase )
100 
          objBtnControl.ButtonSpacer = 1
 90 
          objBtnControl.ButtonSpacer = 1
- 
 
 91 
 
- 
 
 92 
          If NOT bCanEdit Then
- 
 
 93 
            Call objBtnControl.Active  ( "btnEditBuildMachine", "N" )
- 
 
 94 
            Call objBtnControl.Active  ( "btnDeleteBuildMachine", "N" )
- 
 
 95 
          End If
101
96
102 
          Dim rsQry
 97 
          Dim rsQry
103 
          Dim gbe_id, gbe_value
 98 
          Dim gbe_id, gbe_value
104 
          Dim bmcon_id
 99 
          Dim bmcon_id
105 
          Dim display_name
 100 
          Dim display_name
Line 137... Line 132...
137 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 132 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
138 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 133 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
139 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 134 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
140 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 135 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
141 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 136 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
142 
        <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons("Add Build Machine")%> </a>
 137 
        <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call Action_Buttons_State("Add Build Machine", bCanEdit)%>
143 
      </tr>
 138 
      </tr>
144 
 
 139 
 
145 
    </table>
 140 
    </table>
146 
    <%=objPMod.ComposeHiddenTags()%>
 141 
    <%=objPMod.ComposeHiddenTags()%>
147 
    <input type="hidden" name="action" value="true">
 142 
    <input type="hidden" name="action" value="true">