Lines 958-964
sub checkauth {
Link Here
|
958 |
|
958 |
|
959 |
unless ( $userid ) { |
959 |
unless ( $userid ) { |
960 |
#we initiate a session prior to checking for a username to allow for anonymous sessions... |
960 |
#we initiate a session prior to checking for a username to allow for anonymous sessions... |
961 |
$session ||= get_session("") or die "Auth ERROR: Cannot get_session()"; |
961 |
if( !$session or !$sessionID ) { # if we cleared sessionID, we need a new session |
|
|
962 |
$session = get_session() or die "Auth ERROR: Cannot get_session()"; |
963 |
} |
962 |
|
964 |
|
963 |
# Save anonymous search history in new session so it can be retrieved |
965 |
# Save anonymous search history in new session so it can be retrieved |
964 |
# by get_template_and_user to store it in user's search history after |
966 |
# by get_template_and_user to store it in user's search history after |
Lines 1793-1799
sub get_session {
Link Here
|
1793 |
$session = CGI::Session->load( $params->{dsn}, $sessionID, $params->{dsn_args} ); |
1795 |
$session = CGI::Session->load( $params->{dsn}, $sessionID, $params->{dsn_args} ); |
1794 |
} else { |
1796 |
} else { |
1795 |
$session = CGI::Session->new( $params->{dsn}, $sessionID, $params->{dsn_args} ); |
1797 |
$session = CGI::Session->new( $params->{dsn}, $sessionID, $params->{dsn_args} ); |
1796 |
# $session->flush; |
1798 |
$session->flush; |
1797 |
} |
1799 |
} |
1798 |
return $session; |
1800 |
return $session; |
1799 |
} |
1801 |
} |
1800 |
- |
|
|