Subversion Repositories DevTools

Rev

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

Rev 3928 Rev 3937
Line 82... Line 82...
82 
      End If
 82 
      End If
83 
 
 83 
 
84 
      IsApplicationRunning = mbIsApplicationRunning
 84 
      IsApplicationRunning = mbIsApplicationRunning
85 
   End Property
 85 
   End Property
86 
 
 86 
 
- 
 
 87 
   Public Property Get isDevSystem()
- 
 
 88 
      isDevSystem = FALSE
- 
 
 89 
      If OraDatabase.DatabaseName = "RELMANU1" Then isDevSystem = TRUE
- 
 
 90 
   End Property
- 
 
 91 
 
87 
   '-----------------------------------------------------------------------------------------------------------------
 92 
   '-----------------------------------------------------------------------------------------------------------------
88 
   Public Function UserApplication ( nAppId )
 93 
   Public Function UserApplication ( nAppId )
89 
      UserApplication = FALSE
 94 
      UserApplication = FALSE
90 
 
 95 
 
91 
      If InStr( sSEPARATOR & Session(enumUSER_APPLICATIONS_SESSION) & sSEPARATOR,  sSEPARATOR & nAppId & sSEPARATOR)  Then
 96 
      If InStr( sSEPARATOR & Session(enumUSER_APPLICATIONS_SESSION) & sSEPARATOR,  sSEPARATOR & nAppId & sSEPARATOR)  Then
Line 436... Line 441...
436 
      Authenticated = FALSE
 441 
      Authenticated = FALSE
437 
 
 442 
 
438 
      ' Hook for testing access control features
 443 
      ' Hook for testing access control features
439 
      ' Any login allowed to the Test Database
 444 
      ' Any login allowed to the Test Database
440 
      '
 445 
      '
441 
      If OraDatabase.DatabaseName = "RELMANU1" Then
 446 
      If isDevSystem() Then
442 
        Authenticated = TRUE
 447 
        Authenticated = TRUE
443 
 
 448 
 
444 
        '-- Login Trail --
 449 
        '-- Login Trail --
445 
        Call LoginTrail ( enumACCESS_MANAGER_EVENT_LOGON_SUCCESS, sUserName, NULL )
 450 
        Call LoginTrail ( enumACCESS_MANAGER_EVENT_LOGON_SUCCESS, sUserName, NULL )
446 
 
 451