X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cdacfe1cb5156c4bde158f0592d1dd3c445be7dd..588aa1eb2e55c698fecd2dec453e332fb6859af6:/SL/Auth.pm

diff --git a/SL/Auth.pm b/SL/Auth.pm
index e2b54906c..37586b8ff 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -511,11 +511,8 @@ sub restore_session {
 
   my $self = shift;
 
-  my $cgi            =  $main::cgi;
-  $cgi             ||=  CGI->new('');
-
-  $session_id        =  $cgi->cookie($self->get_session_cookie_name());
-  $session_id        =~ s|[^0-9a-f]||g;
+  $session_id        =  $::request->{cgi}->cookie($self->get_session_cookie_name());
+  $session_id        =~ s|[^0-9a-f]||g if $session_id;
 
   $self->{SESSION}   = { };