Subversion Repositories DevTools

Rev

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

Rev 147 Rev 149
Line 87... Line 87...
87 
 
 87 
 
88 
            End If
 88 
            End If
89 
 
 89 
 
90 
         ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
 90 
         ElseIf objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then
91 
            ' For Packages in Release
 91 
            ' For Packages in Release
92 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
 92 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
- 
 
 93 
                                "btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
93 
                          "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
 94 
                                "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
94 
         Else
 95 
         Else
95 
            ' For Packages in Release
 96 
            ' For Packages in Release
- 
 
 97 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
96 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
 98 
                                "btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
97 
                          "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
 99 
                                "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
98 
         End If
 100 
         End If
99 
      Else
 101 
      Else
100 
         ' Non-Editable Packages in Release
 102 
         ' Non-Editable Packages in Release
101 
         If AssocMASSREF Then
 103 
         If AssocMASSREF Then
102 
            aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
 104 
            aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
Line 156... Line 158...
156 
Call objBtnControl.Visible ( "btnUnDeprecation", "N" )
 158 
Call objBtnControl.Visible ( "btnUnDeprecation", "N" )
157 
Call objBtnControl.Active  ( "btnApproveMerge", "N" )
 159 
Call objBtnControl.Active  ( "btnApproveMerge", "N" )
158 
Call objBtnControl.Visible ( "btnApproveMerge", "N" )
 160 
Call objBtnControl.Visible ( "btnApproveMerge", "N" )
159 
Call objBtnControl.Active  ( "btnAddDaemonInstRipplePackage", "N" )
 161 
Call objBtnControl.Active  ( "btnAddDaemonInstRipplePackage", "N" )
160 
Call objBtnControl.Visible ( "btnAddDaemonInstRipplePackage", "N" )
 162 
Call objBtnControl.Visible ( "btnAddDaemonInstRipplePackage", "N" )
- 
 
 163 
Call objBtnControl.Active  ( "btnAddDaemonInstTestBuildPackage", "Y" )  ' Active for Manual and Auto-Build types
- 
 
 164 
Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "N" )
161 
 
 165 
 
162 
 
 166 
 
163 
 
 167 
 
164 
 
 168 
 
165 
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
 169 
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
Line 171... Line 175...
171 
      Call objBtnControl.Visible ( "btnApprovePackage", "Y" )
 175 
      Call objBtnControl.Visible ( "btnApprovePackage", "Y" )
172 
      Call objBtnControl.Active  ( "btnApprovePackage", "N" )
 176 
      Call objBtnControl.Active  ( "btnApprovePackage", "N" )
173 
 
 177 
 
174 
      Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
 178 
      Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
175 
      Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
 179 
      Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
176 
 
 - 
 
177 
   Else
 180 
   Else
178 
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) And Not objAccessControl.IsVisible("ApproveForManualBuild") Then
 181 
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) And Not objAccessControl.IsVisible("ApproveForManualBuild") Then
179 
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
 182 
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
180 
      Else
 183 
      Else
181 
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
 184 
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
Line 306... Line 309...
306 
   Call objBtnControl.Active ( "btnMakePending", "Y" )
 309 
   Call objBtnControl.Active ( "btnMakePending", "Y" )
307 
 
 310 
 
308 
   Call objBtnControl.Visible ( "btnApprovePackage", "N" )
 311 
   Call objBtnControl.Visible ( "btnApprovePackage", "N" )
309 
   Call objBtnControl.Visible ( "btnRejectPackage", "N" )
 312 
   Call objBtnControl.Visible ( "btnRejectPackage", "N" )
310 
 
 313 
 
- 
 
 314 
   Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "Y" )
311 
End If
 315 
End If
312 
 
 316 
 
313 
 
 317 
 
314 
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then
 318 
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then
315 
   Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )
 319 
   Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )