Lines 549-557
sub get_template_and_user {
Link Here
|
549 |
unless ( $pagename =~ /^(?:MARC|ISBD)?detail$/ |
549 |
unless ( $pagename =~ /^(?:MARC|ISBD)?detail$/ |
550 |
or $pagename =~ /^showmarc$/ |
550 |
or $pagename =~ /^showmarc$/ |
551 |
or $pagename =~ /^addbybiblionumber$/ |
551 |
or $pagename =~ /^addbybiblionumber$/ |
552 |
or $pagename =~ /^review$/ ) { |
552 |
or $pagename =~ /^review$/ ) |
553 |
my $sessionSearch = get_session( $sessionID || $in->{'query'}->cookie("CGISESSID") ); |
553 |
{ |
554 |
$sessionSearch->clear( ["busc"] ) if ( $sessionSearch->param("busc") ); |
554 |
my $sessionSearch = get_session( $sessionID ); |
|
|
555 |
$sessionSearch->clear( ["busc"] ) if $sessionSearch; |
555 |
} |
556 |
} |
556 |
} |
557 |
} |
557 |
|
558 |
|
Lines 887-892
sub checkauth {
Link Here
|
887 |
$session->delete(); |
888 |
$session->delete(); |
888 |
$session->flush; |
889 |
$session->flush; |
889 |
C4::Context->_unset_userenv($sessionID); |
890 |
C4::Context->_unset_userenv($sessionID); |
|
|
891 |
$sessionID = undef; |
890 |
} |
892 |
} |
891 |
elsif ($logout) { |
893 |
elsif ($logout) { |
892 |
|
894 |
|
Lines 896-901
sub checkauth {
Link Here
|
896 |
$session->delete(); |
898 |
$session->delete(); |
897 |
$session->flush; |
899 |
$session->flush; |
898 |
C4::Context->_unset_userenv($sessionID); |
900 |
C4::Context->_unset_userenv($sessionID); |
|
|
901 |
$sessionID = undef; |
899 |
|
902 |
|
900 |
if ($cas and $caslogout) { |
903 |
if ($cas and $caslogout) { |
901 |
logout_cas($query, $type); |
904 |
logout_cas($query, $type); |
Lines 933-939
sub checkauth {
Link Here
|
933 |
} |
936 |
} |
934 |
|
937 |
|
935 |
unless ( $loggedin ) { |
938 |
unless ( $loggedin ) { |
936 |
$sessionID = undef; |
|
|
937 |
$userid = undef; |
939 |
$userid = undef; |
938 |
} |
940 |
} |
939 |
|
941 |
|
Lines 1224-1229
sub checkauth {
Link Here
|
1224 |
$session->param( 'sessiontype', 'anon' ); |
1226 |
$session->param( 'sessiontype', 'anon' ); |
1225 |
$session->param( 'interface', $type); |
1227 |
$session->param( 'interface', $type); |
1226 |
} |
1228 |
} |
|
|
1229 |
$session->flush; |
1227 |
} # END unless ($userid) |
1230 |
} # END unless ($userid) |
1228 |
|
1231 |
|
1229 |
# finished authentification, now respond |
1232 |
# finished authentification, now respond |