Subversion Repositories DevTools

Rev

Rev 6124 | Rev 6579 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6124 Rev 6181
Line 20... Line 20...
20 
 
 20 
 
21 
<!--#include file="class/classActionButtonControl.asp"-->
 21 
<!--#include file="class/classActionButtonControl.asp"-->
22 
<%
 22 
<%
23 
'------------ ACCESS CONTROL ------------------
 23 
'------------ ACCESS CONTROL ------------------
24 
%>
 24 
%>
25 
<!--#include file="_access_control_login.asp"-->
 25 
<!--#include file="_access_control_login_optional.asp"-->
26 
<!--#include file="_access_control_general.asp"-->
 26 
<!--#include file="_access_control_general.asp"-->
27 
<%
 27 
<%
28 
'------------ Variable Definition -------------
 28 
'------------ Variable Definition -------------
29 
Dim parRtagId
 29 
Dim parRtagId
30 
dim modifyState
 30 
Dim modifyState
31 
'------------ Constants Declaration -----------
 31 
'------------ Constants Declaration -----------
32 
'------------ Variable Init -------------------
 32 
'------------ Variable Init -------------------
33 
parRtagId = Request("rtag_id")
 33 
parRtagId = Request("rtag_id")
34 
objPMod.PersistInQryString("rtag_id")
 34 
objPMod.PersistInQryString("rtag_id")
- 
 
 35 
ReleaseMode = GetReleaseMode( Request("rtag_id") )
35 
modifyState = "disabled"
 36 
modifyState = "disabled"
- 
 
 37 
 
- 
 
 38 
If releaseIsWritable(ReleaseMode) Then
36 
If canActionControlInProject("ConfigureRelease") OR canActionControlInProject("EditNonCriticalInfoForLockedPackage") Then modifyState = ""
 39 
    If canActionControlInProject("ConfigureRelease") OR canActionControlInProject("EditNonCriticalInfoForLockedPackage") Then modifyState = ""
- 
 
 40 
End If
37 
'----------------------------------------------
 41 
'----------------------------------------------
38 
%>
 42 
%>
39 
<html>
 43 
<html>
40 
   <head>
 44 
   <head>
41 
        <title>Release Manager</title>
 45 
        <title>Release Manager</title>