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