Subversion Repositories DevTools

Rev

Rev 4209 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4209 Rev 5061
Line 116... Line 116...
116 
<!-- HEADER -->
 116 
<!-- HEADER -->
117 
<!--#include file="_header.asp"-->
 117 
<!--#include file="_header.asp"-->
118 
 
 118 
 
119 
   <%
 119 
   <%
120 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
 120 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
121 
   Dim bReadOnly: bReadOnly = NOT objAccessControl.IsActive("ConfigureBuildService")
 121 
   Dim bReadOnly: bReadOnly = NOT canActionControl("ConfigureBuildService")
122 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
 122 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
123 
   objFormComponent.Action = ScriptName
 123 
   objFormComponent.Action = ScriptName
124 
   objFormComponent.OnSubmit = "ShowProgress();"
 124 
   objFormComponent.OnSubmit = "ShowProgress();"
125 
   ' Page Access Condition
 125 
   ' Page Access Condition
126 
   If bReadOnly Then
 126 
   If bReadOnly Then