|
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 |
- |
|
|