View | Details | Raw Unified | Return to bug 17427
Collapse All | Expand All

(-)a/C4/Auth.pm (-1 / +6 lines)
Lines 1861-1866 sub _get_session_params { Link Here
1861
sub get_session {
1861
sub get_session {
1862
    my $sessionID      = shift;
1862
    my $sessionID      = shift;
1863
    my $params = _get_session_params();
1863
    my $params = _get_session_params();
1864
    unless ( $sessionID ) {
1865
        my $http_cookie = $ENV{HTTP_COOKIE};
1866
        if ( $http_cookie && $http_cookie =~ m{CGISESSID=([^,:]*)} ) {
1867
            $sessionID = $1;
1868
        }
1869
    }
1864
    my $session = Data::Session->new( %$params, ($sessionID ? ( id => $sessionID ) : () ) ) || die $Data::Session::errstr;
1870
    my $session = Data::Session->new( %$params, ($sessionID ? ( id => $sessionID ) : () ) ) || die $Data::Session::errstr;
1865
    $session->new_session unless $sessionID;
1871
    $session->new_session unless $sessionID;
1866
    return $session;
1872
    return $session;
1867
- 

Return to bug 17427