Lines 565-573
sub get_template_and_user {
Link Here
|
565 |
unless ( $pagename =~ /^(?:MARC|ISBD)?detail$/ |
565 |
unless ( $pagename =~ /^(?:MARC|ISBD)?detail$/ |
566 |
or $pagename =~ /^showmarc$/ |
566 |
or $pagename =~ /^showmarc$/ |
567 |
or $pagename =~ /^addbybiblionumber$/ |
567 |
or $pagename =~ /^addbybiblionumber$/ |
568 |
or $pagename =~ /^review$/ ) { |
568 |
or $pagename =~ /^review$/ ) |
569 |
my $sessionSearch = get_session( $sessionID || $in->{'query'}->cookie("CGISESSID") ); |
569 |
{ |
570 |
$sessionSearch->clear( ["busc"] ) if ( $sessionSearch->param("busc") ); |
570 |
my $sessionSearch = get_session( $sessionID ); |
|
|
571 |
$sessionSearch->clear( ["busc"] ) if $sessionSearch; |
571 |
} |
572 |
} |
572 |
} |
573 |
} |
573 |
|
574 |
|
Lines 903-908
sub checkauth {
Link Here
|
903 |
$session->delete(); |
904 |
$session->delete(); |
904 |
$session->flush; |
905 |
$session->flush; |
905 |
C4::Context::_unset_userenv($sessionID); |
906 |
C4::Context::_unset_userenv($sessionID); |
|
|
907 |
$sessionID = undef; |
906 |
} |
908 |
} |
907 |
elsif ($logout) { |
909 |
elsif ($logout) { |
908 |
|
910 |
|
Lines 912-917
sub checkauth {
Link Here
|
912 |
$session->delete(); |
914 |
$session->delete(); |
913 |
$session->flush; |
915 |
$session->flush; |
914 |
C4::Context::_unset_userenv($sessionID); |
916 |
C4::Context::_unset_userenv($sessionID); |
|
|
917 |
$sessionID = undef; |
915 |
|
918 |
|
916 |
if ($cas and $caslogout) { |
919 |
if ($cas and $caslogout) { |
917 |
logout_cas($query, $type); |
920 |
logout_cas($query, $type); |
Lines 949-955
sub checkauth {
Link Here
|
949 |
} |
952 |
} |
950 |
|
953 |
|
951 |
unless ( $loggedin ) { |
954 |
unless ( $loggedin ) { |
952 |
$sessionID = undef; |
|
|
953 |
$userid = undef; |
955 |
$userid = undef; |
954 |
} |
956 |
} |
955 |
|
957 |
|
Lines 1247-1252
sub checkauth {
Link Here
|
1247 |
$session->param( 'sessiontype', 'anon' ); |
1249 |
$session->param( 'sessiontype', 'anon' ); |
1248 |
$session->param( 'interface', $type); |
1250 |
$session->param( 'interface', $type); |
1249 |
} |
1251 |
} |
|
|
1252 |
$session->flush; |
1250 |
} # END unless ($userid) |
1253 |
} # END unless ($userid) |
1251 |
|
1254 |
|
1252 |
# finished authentification, now respond |
1255 |
# finished authentification, now respond |