Subversion Repositories DevTools

Rev

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

Rev 143 Rev 147
Line 4... Line 4...
4
'=====================================================
4
'=====================================================
5
%>
5
%>
6
 
6
 
7
<%
7
<%
8
Sub ActivateButtonAccordingToReleaseModeAndPermissions( NNbutton, NNpermission)
8
Sub ActivateButtonAccordingToReleaseModeAndPermissions( NNbutton, NNpermission)
-
 
9
   If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
9
   If ( ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE) OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
10
      If ( ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE) OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
10
      If objAccessControl.IsActive(NNpermission) Then
11
         If objAccessControl.IsActive(NNpermission) Then
-
 
12
            Call objBtnControl.Active ( NNbutton, "Y" )
-
 
13
         Else
-
 
14
            Call objBtnControl.Active ( NNbutton, "N" )
-
 
15
         End If
-
 
16
      ElseIf ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
11
         Call objBtnControl.Active ( NNbutton, "Y" )
17
         Call objBtnControl.Active ( NNbutton, "Y" )
12
      Else
18
      Else
13
         Call objBtnControl.Active ( NNbutton, "N" )
19
         Call objBtnControl.Active ( NNbutton, "N" )
14
      End If
20
      End If
15
   ElseIf ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
-
 
16
      Call objBtnControl.Active ( NNbutton, "Y" )
-
 
17
   Else
21
   Else
18
      Call objBtnControl.Active ( NNbutton, "N" )
22
      Call objBtnControl.Active ( NNbutton, "N" )
19
   End If
23
   End If
20
End Sub
24
End Sub
21
 
25
 
Line 84... Line 88...
84
            End If
88
            End If
85
 
89
 
86
         ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
90
         ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
87
            ' For Packages in Release
91
            ' For Packages in Release
88
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
92
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
89
                          "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
93
                          "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
90
         Else
94
         Else
91
            ' For Packages in Release
95
            ' For Packages in Release
92
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
96
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
93
                          "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
97
                          "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
94
         End If
98
         End If
95
      Else
99
      Else
96
         ' Non-Editable Packages in Release
100
         ' Non-Editable Packages in Release
97
         If AssocMASSREF Then
101
         If AssocMASSREF Then
98
            aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
102
            aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
Line 150... Line 154...
150
Call objBtnControl.Visible ( "btnUnobsoletePatch", "N" )
154
Call objBtnControl.Visible ( "btnUnobsoletePatch", "N" )
151
Call objBtnControl.Visible ( "btnDeprecation", "N" )
155
Call objBtnControl.Visible ( "btnDeprecation", "N" )
152
Call objBtnControl.Visible ( "btnUnDeprecation", "N" )
156
Call objBtnControl.Visible ( "btnUnDeprecation", "N" )
153
Call objBtnControl.Active  ( "btnApproveMerge", "N" )
157
Call objBtnControl.Active  ( "btnApproveMerge", "N" )
154
Call objBtnControl.Visible ( "btnApproveMerge", "N" )
158
Call objBtnControl.Visible ( "btnApproveMerge", "N" )
-
 
159
Call objBtnControl.Active  ( "btnAddDaemonInstRipplePackage", "N" )
-
 
160
Call objBtnControl.Visible ( "btnAddDaemonInstRipplePackage", "N" )
155
 
161
 
156
 
162
 
157
 
163
 
158
 
164
 
159
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
165
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
Line 253... Line 259...
253
   End If
259
   End If
254
 
260
 
255
   Call objBtnControl.Visible ( "btnMakePending", "N" )
261
   Call objBtnControl.Visible ( "btnMakePending", "N" )
256
   Call objBtnControl.Visible ( "btnMakeRelease", "N" )
262
   Call objBtnControl.Visible ( "btnMakeRelease", "N" )
257
   Call objBtnControl.Visible ( "btnApprovePackage", "N" )
263
   Call objBtnControl.Visible ( "btnApprovePackage", "N" )
-
 
264
   Call objBtnControl.Visible ( "btnAddDaemonInstRipplePackage", "Y" )
-
 
265
   Call ActivateButtonAccordingToReleaseModeAndPermissions("btnAddDaemonInstRipplePackage", "ApproveForAutoBuild")
258
 
266
 
259
 
267
 
260
ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
268
ElseIf pkgInfoHash.Item ("dlocked") = "P" Then
261
   ' In Pending
269
   ' In Pending
262
   Call objBtnControl.Visible ( "btnMakePending", "N" )
270
   Call objBtnControl.Visible ( "btnMakePending", "N" )