|
Lines 215-220
sub get_template_and_user {
Link Here
|
| 215 |
); |
215 |
); |
| 216 |
} |
216 |
} |
| 217 |
|
217 |
|
|
|
218 |
if ( my $query_string = $in->{query}->param('query_string') ) { |
| 219 |
my %params = map { |
| 220 |
my ($k, $v) = split /=/, $_, 2; |
| 221 |
$k => $v; |
| 222 |
} split /;/, $query_string; |
| 223 |
while ( my ($attr, $value) = each %params ) { |
| 224 |
$in->{query}->param($attr, $value); |
| 225 |
} |
| 226 |
} |
| 227 |
|
| 218 |
my $session = get_session($sessionID); |
228 |
my $session = get_session($sessionID); |
| 219 |
|
229 |
|
| 220 |
# If we enforce GDPR and the user did not consent, redirect |
230 |
# If we enforce GDPR and the user did not consent, redirect |
|
Lines 1457-1462
sub checkauth {
Link Here
|
| 1457 |
$template->param( |
1467 |
$template->param( |
| 1458 |
login => 1, |
1468 |
login => 1, |
| 1459 |
INPUTS => \@inputs, |
1469 |
INPUTS => \@inputs, |
|
|
1470 |
query_string => $query->query_string(), |
| 1460 |
script_name => get_script_name(), |
1471 |
script_name => get_script_name(), |
| 1461 |
casAuthentication => C4::Context->preference("casAuthentication"), |
1472 |
casAuthentication => C4::Context->preference("casAuthentication"), |
| 1462 |
shibbolethAuthentication => $shib, |
1473 |
shibbolethAuthentication => $shib, |