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("CreateNewProject") and canActionControl("ConfigureBuildService")
36 
'----------------------------------------------
 38 
'----------------------------------------------
37 
 
 39 
 
38 
function niceBool (val)
 40 
function niceBool (val)
39 
    if val = "Y" Then
 41 
    if val = "Y" Then
40 
        niceBool = "Y"
 42 
        niceBool = "Y"
Line 50... Line 52...
50 
        showCheck = ""
 52 
        showCheck = ""
51 
    End If
 53 
    End If
52 
End Function
 54 
End Function
53 
 
 55 
 
54 
%>
 56 
%>
55 
<%
 - 
 
56 
' Page Access Condition
 - 
 
57 
If NOT canActionControl("ConfigureBuildService") Then
 - 
 
58 
    Call Destroy_All_Objects
 - 
 
59 
    Response.Redirect("message.asp?msg=401-9")
 - 
 
60 
End If
 - 
 
61 
%>
 - 
 
62 
<html>
 57 
<html>
63 
<head>
 58 
<head>
64 
 
 59 
 
65 
<title>Project Suffix Administration</title>
 60 
<title>Project Suffix Administration</title>
66 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 61 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
67 
 
 - 
 
68 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 62 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
69 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 63 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
70 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 64 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
71 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 65 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
72 
<script language="JavaScript" src="images/common.js"></script>
 66 
<script language="JavaScript" src="images/common.js"></script>
Line 81... Line 75...
81 
</div>
 75 
</div>
82 
<!-- TIPS LAYERS -------------------------------------->
 76 
<!-- TIPS LAYERS -------------------------------------->
83 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 77 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
84 
<!-- HEADER -->
 78 
<!-- HEADER -->
85 
<!--#include file="_header.asp"-->
 79 
<!--#include file="_header.asp"-->
86 
 
 - 
 
87 
  <%
 80 
  <%
88 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 81 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
89 
  objFormComponent.FormName = "PROJECT_SUFFIX"
 82 
  objFormComponent.FormName = "PROJECT_SUFFIX"
90 
  objFormComponent.Action = ScriptName
 83 
  objFormComponent.Action = ScriptName
91 
  objFormComponent.OnSubmit = "ShowProgress();"
 84 
  objFormComponent.OnSubmit = "ShowProgress();"
Line 110... Line 103...
110 
 
 103 
 
111 
          <%
 104 
          <%
112 
          ' Load some action buttons
 105 
          ' Load some action buttons
113 
          Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
 106 
          Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
114 
          objBtnControl.ButtonSpacer = 1
 107 
          objBtnControl.ButtonSpacer = 1
- 
 
 108 
 
- 
 
 109 
          If NOT bCanEdit Then
- 
 
 110 
            Call objBtnControl.Active  ( "btnEditProjectExtensions", "N" )
- 
 
 111 
            Call objBtnControl.Active  ( "btnDeleteProjectExtension", "N" )
- 
 
 112 
          End If
- 
 
 113 
 
115 
          Dim rsQry
 114 
          Dim rsQry
116 
          Dim extName
 115 
          Dim extName
117 
          Dim comment
 116 
          Dim comment
118 
          dim isaCots
 117 
          dim isaCots
119 
          dim isVis
 118 
          dim isVis
Line 141... Line 140...
141 
          rsQry.Close()
 140 
          rsQry.Close()
142 
          Set rsQry = nothing
 141 
          Set rsQry = nothing
143 
          %>
 142 
          %>
144
143
145 
      <tr>
 144 
      <tr>
146 
        <td background="images/bg_bage_0.gif" align="center"></td>
 145 
        <td background="images/bg_bage_0.gif" align="center" ></td>
147 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 - 
 
148 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 - 
 
149 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 - 
 
150 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 146 
        <td bgcolor="#FFFFFF" class="body_row" nowrap colspan="5">
151 
        <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons ( "Add Project Extension" )%> </a>
 147 
            <%Call Action_Buttons_State ( "Add Project Extension", bCanEdit )%>
152 
      </tr>
 148 
      </tr>
153 
    </table>
 149 
    </table>
154 
    <%=objPMod.ComposeHiddenTags()%>
 150 
    <%=objPMod.ComposeHiddenTags()%>
155 
    <input type="hidden" name="action" value="true">
 151 
    <input type="hidden" name="action" value="true">
156 
    <%Call objFormComponent.FormEnd()%>
 152 
    <%Call objFormComponent.FormEnd()%>