Subversion Repositories DevTools

Rev

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

Rev 151 Rev 157
Line 89... Line 89...
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", _
 92 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
93 
                                "btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
 93 
                                "btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "btnMakeUnrelease", "width=20", _
94 
                                "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
 94 
                                "btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage" )
95 
         Else
 95 
         Else
96 
            ' For Packages in Release
 96 
            ' For Packages in Release
97 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
 97 
            aTabBtnsDef = Array("btnNewVersion", "btnVersionHistory", "btnRemovePackage", "width=20", _
98 
                                "btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
 98 
                                "btnAddDaemonInstTestBuildPackage", "btnMakePending", "btnApprovePackage", "btnApproveMerge", "btnMakeRelease", "btnRejectPackage", "btnRejectAutobuildPackage", "width=20", _
99 
                                "btnMoveToView", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
 99 
                                "btnMoveToView", "btnMoveWIPToRelease", "btnReversionPackage", "width=20", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation", "btnAddDaemonInstRipplePackage")
100 
         End If
 100 
         End If
101 
      Else
 101 
      Else
102 
         ' Non-Editable Packages in Release
 102 
         ' Non-Editable Packages in Release
103 
         If AssocMASSREF Then
 103 
         If AssocMASSREF Then
104 
            aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
 104 
            aTabBtnsDef = Array( "btnNewVersion-MASSREF", "btnVersionHistory", "btnStickyNotes", "btnDeprecation", "btnUnDeprecation")
Line 160... Line 160...
160 
Call objBtnControl.Visible ( "btnApproveMerge", "N" )
 160 
Call objBtnControl.Visible ( "btnApproveMerge", "N" )
161 
Call objBtnControl.Active  ( "btnAddDaemonInstRipplePackage", "N" )
 161 
Call objBtnControl.Active  ( "btnAddDaemonInstRipplePackage", "N" )
162 
Call objBtnControl.Visible ( "btnAddDaemonInstRipplePackage", "N" )
 162 
Call objBtnControl.Visible ( "btnAddDaemonInstRipplePackage", "N" )
163 
Call objBtnControl.Active  ( "btnAddDaemonInstTestBuildPackage", "N" )
 163 
Call objBtnControl.Active  ( "btnAddDaemonInstTestBuildPackage", "N" )
164 
Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "N" )
 164 
Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "N" )
- 
 
 165 
Call objBtnControl.Active  ( "btnMoveWIPToRelease", "N" )
- 
 
 166 
Call objBtnControl.Visible ( "btnMoveWIPToRelease", "N" )
165 
 
 167 
 
166 
 
 168 
 
167 
 
 169 
 
168 
 
 170 
 
169 
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
 171 
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
Line 312... Line 314...
312 
   Call objBtnControl.Visible ( "btnRejectPackage", "N" )
 314 
   Call objBtnControl.Visible ( "btnRejectPackage", "N" )
313 
 
 315 
 
314 
   If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
 316 
   If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
315 
      Call objBtnControl.Active  ( "btnAddDaemonInstTestBuildPackage", "Y" )
 317 
      Call objBtnControl.Active  ( "btnAddDaemonInstTestBuildPackage", "Y" )
316 
      Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "Y" )
 318 
      Call objBtnControl.Visible ( "btnAddDaemonInstTestBuildPackage", "Y" )
- 
 
 319 
 
- 
 
 320 
      Call objBtnControl.Active  ( "btnMoveWIPToRelease", "Y" )
- 
 
 321 
      Call objBtnControl.Visible ( "btnMoveWIPToRelease", "Y" )
317 
   End If
 322 
   End If
318 
End If
 323 
End If
319 
 
 324 
 
320 
 
 325 
 
321 
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then
 326 
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then