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
<title>GBE Build Standard Addendum</title>
42
<title>GBE Build Standard Addendum</title>
51
<link rel="shortcut icon" href="<%=FavIcon%>"/>
43
<link rel="shortcut icon" href="<%=FavIcon%>"/>
52
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
44
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
Line 92... Line 84...
92
 
84
 
93
          <%
85
          <%
94
          ' Load some action buttons
86
          ' Load some action buttons
95
          Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_BuildStandard", "btnDeleteGBE_BuildStandard"), OraDatabase )
87
          Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_BuildStandard", "btnDeleteGBE_BuildStandard"), OraDatabase )
96
          objBtnControl.ButtonSpacer = 1
88
          objBtnControl.ButtonSpacer = 1
-
 
89
 
-
 
90
          If NOT bCanEdit Then
-
 
91
            Call objBtnControl.Active  ( "btnEditGBE_BuildStandard", "N" )
-
 
92
            Call objBtnControl.Active  ( "btnDeleteGBE_BuildStandard", "N" )
-
 
93
          End If
-
 
94
 
97
          
95
          
98
          Dim bsa_id,rsQry ,GBE_VALUE
96
          Dim bsa_id,rsQry ,GBE_VALUE
99
 
97
 
100
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_STANDARDS BS, BUILD_STANDARDS_ADDENDUM BSA WHERE BSA.BS_ID=BS.BS_ID(+) ORDER BY BSA.BS_ID, BSA_ID", ORADYN_DEFAULT )
98
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_STANDARDS BS, BUILD_STANDARDS_ADDENDUM BSA WHERE BSA.BS_ID=BS.BS_ID(+) ORDER BY BSA.BS_ID, BSA_ID", ORADYN_DEFAULT )
101
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
99
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
Line 117... Line 115...
117
          %>
115
          %>
118
        
116
        
119
        <tr>
117
        <tr>
120
            <td background="images/bg_bage_0.gif"></td>
118
            <td background="images/bg_bage_0.gif"></td>
121
            <td bgcolor="#FFFFFF" class="body_row" nowrap colspan=3></td>
119
            <td bgcolor="#FFFFFF" class="body_row" nowrap colspan=3></td>
122
            <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons("Add GBE_BUILDSTANDARD")%></a></td>
120
            <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call Action_Buttons_State("Add GBE_BUILDSTANDARD", bCanEdit)%></td>
123
        </tr>
121
        </tr>
124
 
122
 
125
    </table>
123
    </table>
126
    <%=objPMod.ComposeHiddenTags()%>
124
    <%=objPMod.ComposeHiddenTags()%>
127
    <input type="hidden" name="action" value="true">
125
    <input type="hidden" name="action" value="true">