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">