Subversion Repositories DevTools

Rev

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

Rev 5597 Rev 5898
Line 168... Line 168...
168
Call objBtnControl.Active  ( "btnDestroyWip", "N" )
168
Call objBtnControl.Active  ( "btnDestroyWip", "N" )
169
Call objBtnControl.Visible ( "btnDestroyWip", "N" )
169
Call objBtnControl.Visible ( "btnDestroyWip", "N" )
170
 
170
 
171
If (pkgInfoHash.Item("can_edit_in_project") = "1") Then
171
If (pkgInfoHash.Item("can_edit_in_project") = "1") Then
172
   '-- Change button setting on conditions ---
172
   '-- Change button setting on conditions ---
173
   If ( pkgInfoHash.Item ("build_type") <> "M" ) Then
173
    If ( pkgInfoHash.Item ("build_type") <> "M" ) Then
174
      ' For automatic build
174
      ' For automatic build
175
      Call objBtnControl.Visible ( "btnMakePending", "Y" )
175
      Call objBtnControl.Visible ( "btnMakePending", "Y" )
176
 
176
 
177
      Call objBtnControl.Visible ( "btnApprovePackage", "Y" )
177
      Call objBtnControl.Visible ( "btnApprovePackage", "Y" )
178
      Call objBtnControl.Active  ( "btnApprovePackage", "N" )
178
      Call objBtnControl.Active  ( "btnApprovePackage", "N" )
179
 
179
 
180
      Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
180
      Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
181
      Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
181
      Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
182
   Else
182
    Else
183
      ' For Manual Build
183
      ' For Manual Build
184
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
184
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
185
          If Not canShowControlInProject("ApproveForManualBuild") Then
185
          If Not canShowControlInProject("ApproveForManualBuild") Then
186
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
186
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
187
      Else
187
      Else
188
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
188
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
189
         Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
189
         Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
190
      End If
190
      End If
191
      End If
191
    End If
192
 
192
 
193
      If (pkgInfoHash.Item("is_patch")) <> "" Then
193
  If (pkgInfoHash.Item("is_patch")) <> "" Then
194
         If canShowControlInProject ("ReleasePatch") Then
194
     If canShowControlInProject ("ReleasePatch") Then
195
            Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
195
        Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
196
         Else
196
     Else
197
            Call objBtnControl.Visible ( "btnMakeRelease", "N" )
197
        Call objBtnControl.Visible ( "btnMakeRelease", "N" )
198
         End If
198
     End If
199
      End If
199
  End If
200
 
200
 
201
      If ( ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE) OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
201
      If ( ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE) OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
202
 
202
 
203
         Call objBtnControl.Visible ( "btnMakePending", "Y" )
203
         Call objBtnControl.Visible ( "btnMakePending", "Y" )
204
 
204
 
Line 379... Line 379...
379
      Call objBtnControl.Active ( "btnApproveMerge", "N" )
379
      Call objBtnControl.Active ( "btnApproveMerge", "N" )
380
      Call objBtnControl.Active ( "btnRejectPackage", "N" )
380
      Call objBtnControl.Active ( "btnRejectPackage", "N" )
381
   End If
381
   End If
382
End If
382
End If
383
 
383
 
-
 
384
If ( pkgInfoHash.Item ("build_type") = "U" ) Then
-
 
385
  Call objBtnControl.Active ( "btnMakeRelease", "N" )
-
 
386
  Call objBtnControl.Active ( "btnApprovePackage", "N" )
-
 
387
  Call objBtnControl.Active ( "btnMakeUnrelease", "N" )
-
 
388
  Call objBtnControl.Active ( "btnAddDaemonInstTestBuildPackage", "N" )
-
 
389
  Call objBtnControl.Active ( "btnMakePending", "N" )
-
 
390
  Call objBtnControl.Active ( "btnApproveMerge",  "N")
-
 
391
End If
-
 
392
 
384
'--- Disable if the user is not logged in
393
'--- Disable if the user is not logged in
385
If (NOT objAccessControl.UserLogedIn) Then
394
If (NOT objAccessControl.UserLogedIn) Then
386
    Call objBtnControl.Active ( "btnRemovePackage", "N" )
395
    Call objBtnControl.Active ( "btnRemovePackage", "N" )
387
    Call objBtnControl.Active ( "btnMakeRelease", "N" )
396
    Call objBtnControl.Active ( "btnMakeRelease", "N" )
388
    Call objBtnControl.Active ( "btnMoveToView", "N" )
397
    Call objBtnControl.Active ( "btnMoveToView", "N" )