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