Lines 1218-1227
sub checkauth {
Link Here
|
1218 |
if ( $type ne 'opac' ) { |
1218 |
if ( $type ne 'opac' ) { |
1219 |
if ( C4::Context->preference('AutoLocation') ) { |
1219 |
if ( C4::Context->preference('AutoLocation') ) { |
1220 |
# we have to check they are coming from the right ip range |
1220 |
# we have to check they are coming from the right ip range |
1221 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
1221 |
my $domain = $branches->{$branchcode}->{'branchip'} // q{}; |
1222 |
$domain =~ s|\.\*||g; |
1222 |
$domain =~ s|\.\*||g; |
1223 |
$domain =~ s/\s+//g; |
1223 |
$domain =~ s/\s+//g; |
1224 |
if ( $ip !~ /^$domain/ ) { |
1224 |
if ( $domain && $ip !~ /^$domain/ ) { |
1225 |
$cookie = $cookie_mgr->replace_in_list( $cookie, $query->cookie( |
1225 |
$cookie = $cookie_mgr->replace_in_list( $cookie, $query->cookie( |
1226 |
-name => 'CGISESSID', |
1226 |
-name => 'CGISESSID', |
1227 |
-value => '', |
1227 |
-value => '', |
1228 |
- |
|
|