Subversion Repositories DevTools

Rev

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

Rev 3943 Rev 5153
Line 60... Line 60...
60 
   Public Property Get Domain ()
 60 
   Public Property Get Domain ()
61 
      Domain = Extract( "domain", Session(enumUSER_DETAILS_SESSION) )
 61 
      Domain = Extract( "domain", Session(enumUSER_DETAILS_SESSION) )
62 
   End Property
 62 
   End Property
63 
 
 63 
 
64 
   Public Property Get isDevSystem()
 64 
   Public Property Get isDevSystem()
65 
      isDevSystem = FALSE
 - 
 
66 
      If OraDatabase.DatabaseName = "RELMANU1" Then isDevSystem = TRUE
 65 
      isDevSystem = InStr(OraDatabase.DatabaseName,"RELMANU1") > 0
67 
   End Property
 66 
   End Property
68 
 
 67 
 
69 
	'-----------------------------------------------------------------------------------------------------------------
 68 
	'-----------------------------------------------------------------------------------------------------------------
70 
	Public Function UserApplication ( nAppId )
 69 
	Public Function UserApplication ( nAppId )
71 
		UserApplication = FALSE
 70 
		UserApplication = FALSE