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

(-)a/C4/Auth.pm (-1 / +6 lines)
Lines 1869-1874 sub _get_session_params { Link Here
1869
sub get_session {
1869
sub get_session {
1870
    my $sessionID      = shift;
1870
    my $sessionID      = shift;
1871
    my $params = _get_session_params();
1871
    my $params = _get_session_params();
1872
    unless ( $sessionID ) {
1873
        my $http_cookie = $ENV{HTTP_COOKIE};
1874
        if ( $http_cookie && $http_cookie =~ m{CGISESSID=([^,:;]*)} ) {
1875
            $sessionID = $1;
1876
        }
1877
    }
1872
    my $session = Data::Session->new( %$params, ($sessionID ? ( id => $sessionID ) : () ) ) || die $Data::Session::errstr;
1878
    my $session = Data::Session->new( %$params, ($sessionID ? ( id => $sessionID ) : () ) ) || die $Data::Session::errstr;
1873
    $session->new_session unless $sessionID;
1879
    $session->new_session unless $sessionID;
1874
    return $session;
1880
    return $session;
1875
- 

Return to bug 17427