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
- 
 
 34 
 
33 
'------------ Constants Declaration -----------
 35 
'------------ Constants Declaration -----------
34 
'------------ Variable Init -------------------
 36 
'------------ Variable Init -------------------
35 
Set objBtnControl = New ActionButtonControl
 37 
Set objBtnControl = New ActionButtonControl
- 
 
 38 
bCanEdit = canActionControl("ConfigureBuildService")
36 
'----------------------------------------------
 39 
'----------------------------------------------
37 
%>
 40 
%>
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>
 41 
<html>
49 
<head>
 42 
<head>
50 
 
 - 
 
51 
<title>GBE MachClass Administration</title>
 43 
<title>GBE MachClass Administration</title>
52 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 44 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
53 
 
 - 
 
54 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 45 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
55 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 46 
<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">
 47 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
57 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 48 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
58 
<script language="JavaScript" src="images/common.js"></script>
 49 
<script language="JavaScript" src="images/common.js"></script>
Line 93... Line 84...
93 
 
 84 
 
94 
          <%
 85 
          <%
95 
          ' Load some action buttons
 86 
          ' Load some action buttons
96 
          Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_Machclass", "btnDeleteGBE_Machclass"), OraDatabase )
 87 
          Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_Machclass", "btnDeleteGBE_Machclass"), OraDatabase )
97 
          objBtnControl.ButtonSpacer = 1
 88 
          objBtnControl.ButtonSpacer = 1
- 
 
 89 
 
- 
 
 90 
          If NOT bCanEdit Then
- 
 
 91 
            Call objBtnControl.Active  ( "btnEditGBE_Machclass", "N" )
- 
 
 92 
            Call objBtnControl.Active  ( "btnDeleteGBE_Machclass", "N" )
- 
 
 93 
          End If
- 
 
 94 
 
98
95
99 
          Dim rsQry, bm_id,GBE_VALUE
 96 
          Dim rsQry, bm_id,GBE_VALUE
100
97
101 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_MACHINES ORDER BY BM_ID", ORADYN_DEFAULT )
 98 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_MACHINES ORDER BY BM_ID", ORADYN_DEFAULT )
102 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 99 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
Line 118... Line 115...
118
115
119 
        <tr>
 116 
        <tr>
120 
            <td background="images/bg_bage_0.gif"></td>
 117 
            <td background="images/bg_bage_0.gif"></td>
121 
            <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 118 
            <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
122 
            <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 119 
            <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
123 
            <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons("Add BM_NAME")%></a></td>
 120 
            <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call Action_Buttons_State("Add BM_NAME", bCanEdit)%></td>
124 
        </tr>
 121 
        </tr>
125 
 
 122 
 
126 
    </table>
 123 
    </table>
127 
    <%=objPMod.ComposeHiddenTags()%>
 124 
    <%=objPMod.ComposeHiddenTags()%>
128 
    <input type="hidden" name="action" value="true">
 125 
    <input type="hidden" name="action" value="true">