|
Lines 193-198
sub get_template_and_user {
Link Here
|
| 193 |
{ skip_csrf_check => 1 }, |
193 |
{ skip_csrf_check => 1 }, |
| 194 |
); |
194 |
); |
| 195 |
} |
195 |
} |
|
|
196 |
my $session = get_session($sessionID); |
| 197 |
|
| 198 |
# We have just logged in |
| 199 |
# If we are not coming from the login form we empty the credential to reject the access |
| 200 |
if ( !$session && $user ) { |
| 201 |
if ( $in->{query}->param('op') ne 'cud-login' ) { |
| 202 |
$in->{query}->param('userid', ''); |
| 203 |
$in->{query}->param('password', ''); |
| 204 |
} |
| 205 |
} |
| 196 |
|
206 |
|
| 197 |
# If we enforce GDPR and the user did not consent, redirect |
207 |
# If we enforce GDPR and the user did not consent, redirect |
| 198 |
# Exceptions for consent page itself and SCI/SCO system |
208 |
# Exceptions for consent page itself and SCI/SCO system |
|
Lines 213-223
sub get_template_and_user {
Link Here
|
| 213 |
|
223 |
|
| 214 |
if ( $in->{type} eq 'opac' && $user ) { |
224 |
if ( $in->{type} eq 'opac' && $user ) { |
| 215 |
my $is_sco_user; |
225 |
my $is_sco_user; |
| 216 |
if ($sessionID){ |
226 |
if ($session){ |
| 217 |
my $session = get_session($sessionID); |
227 |
$is_sco_user = $session->param('sco_user'); |
| 218 |
if ($session){ |
|
|
| 219 |
$is_sco_user = $session->param('sco_user'); |
| 220 |
} |
| 221 |
} |
228 |
} |
| 222 |
my $kick_out; |
229 |
my $kick_out; |
| 223 |
|
230 |
|
|
Lines 537-544
sub get_template_and_user {
Link Here
|
| 537 |
or $pagename =~ /^addbybiblionumber$/ |
544 |
or $pagename =~ /^addbybiblionumber$/ |
| 538 |
or $pagename =~ /^review$/ ) |
545 |
or $pagename =~ /^review$/ ) |
| 539 |
{ |
546 |
{ |
| 540 |
my $sessionSearch = get_session( $sessionID ); |
547 |
$session->clear( ["busc"] ) if $session; |
| 541 |
$sessionSearch->clear( ["busc"] ) if $sessionSearch; |
|
|
| 542 |
} |
548 |
} |
| 543 |
} |
549 |
} |
| 544 |
|
550 |
|