Subversion Repositories DevTools

Rev

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

Rev 4758 Rev 5061
Line 35... Line 35...
35 
 
 35 
 
36 
   If ReleaseMode <> enumDB_RELEASE_IN_CLOSED_MODE AND ReleaseMode <> enumDB_RELEASE_IN_ARCHIVE_MODE Then
 36 
   If ReleaseMode <> enumDB_RELEASE_IN_CLOSED_MODE AND ReleaseMode <> enumDB_RELEASE_IN_ARCHIVE_MODE Then
37 
      If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
 37 
      If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
38 
         PRIVATE_Is_Allowed_To = TRUE
 38 
         PRIVATE_Is_Allowed_To = TRUE
39 
      Else
 39 
      Else
40 
         If objAccessControl.IsActive(accessControlObjectName) Then
 40 
         If canActionControlInProject(accessControlObjectName) Then
41 
            PRIVATE_Is_Allowed_To = TRUE
 41 
            PRIVATE_Is_Allowed_To = TRUE
42 
         End If
 42 
         End If
43 
      End If
 43 
      End If
44 
   End If
 44 
   End If
45 
End Function
 45 
End Function