Current member / type: System.Void LRS.WebCommon.EmployeeInfo::Fill(System.String)File path: C:\Temp\4.0\LRS.WebCommon.dllcall at Telerik.JustDecompiler.Decompiler.StatementDecompiler.(Instruction instruction) at Telerik.JustDecompiler.Decompiler.StatementDecompiler.(CatchHandlerData catch_data) at Telerik.JustDecompiler.Decompiler.StatementDecompiler.(ExceptionHandlerData data, TryStatement try) at Telerik.JustDecompiler.Decompiler.StatementDecompiler.(ExceptionHandlerData data) at Telerik.JustDecompiler.Decompiler.StatementDecompiler.(InstructionBlock block, InstructionBlock previous) at Telerik.JustDecompiler.Decompiler.StatementDecompiler.€(InstructionBlock block) at Telerik.JustDecompiler.Decompiler.StatementDecompiler.() at Telerik.JustDecompiler.Decompiler.StatementDecompiler.Process(DecompilationContext context, BlockStatement body) at Telerik.JustDecompiler.Decompiler.DecompilationPipeline.Run(MethodBody body, ILanguage language) at Telerik.JustDecompiler.Decompiler.Extensions.(DecompilationPipeline pipeline, ILanguage language, MethodBody body) at Telerik.JustDecompiler.Languages.BaseImperativeLanguageWriter.Write(MethodDefinition method) at Telerik.JustDecompiler.Languages.BaseLanguageWriter.Write(IMemberDefinition member, Boolean showCompilerGeneratedMembers) at JustDecompile.CodeViewer.CodeWriter.Write() in c:\Builds\126\Behemoth\JustDecompile Production Build\Sources\UI\JustDecompile.CodeViewer\Writers\CodeWriter.cs:line 34 at JustDecompile.CodeViewer.ViewModels.CodeViewerViewModel.(AssemblyMemberNode member, CancellationToken cancellationToken) in c:\Builds\126\Behemoth\JustDecompile Production Build\Sources\UI\JustDecompile.CodeViewer\ViewModels\CodeViewerViewModel.cs:line 134
Private
Overloads
Sub
Fill(
ByVal
loginName
As
String
)
Dim
empCookie
As
HttpCookie
Dim
makeCookie
As
Boolean
=
True
''See if it's in the Request Object that was sent up to the server
If
Not
HttpContext.Current.Request.Cookies(
"EmpInfo"
)
Is
Nothing
_
AndAlso
HttpContext.Current.Request.Cookies(
"EmpInfo"
).Values.Count > 13
Then
makeCookie =
False
End
If
''cookie was found and the userName Item matches the loginName passed in
With
HttpContext.Current.Request
Select
Case
True
''Cookie wasn't found or UserName cookie doesn't equal the one passed in
Case
makeCookie
If
loginName <>
""
Then
empCookie = CreateEmpCookie(loginName)
Else
Throw
New
Exception(
"Error creating login cookie."
& Chr(13) & Chr(10) & _
"Your login name is "
& loginName &
". Your extracted Network ID is "
& _
Me
.GetUserName() &
"."
& Chr(13) & Chr(10) & _
"Please call 217-793-3800 x1444"
)
End
If
''Reuse the one in the cookie
Case
Else
empCookie = HttpContext.Current.Request.Cookies(
"EmpInfo"
)
End
Select
End
With
Try
SetValues(empCookie)
Catch
SetValues(CreateEmpCookie(loginName))
End
Try
End
Sub