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