Lines 1194-1199
sub checkauth {
Link Here
|
1194 |
my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search->as_list }; |
1194 |
my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search->as_list }; |
1195 |
if ( $type ne 'opac' and C4::Context->preference('AutoLocation') ) { |
1195 |
if ( $type ne 'opac' and C4::Context->preference('AutoLocation') ) { |
1196 |
|
1196 |
|
|
|
1197 |
$auth_state = "failed"; |
1197 |
# we have to check they are coming from the right ip range |
1198 |
# we have to check they are coming from the right ip range |
1198 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
1199 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
1199 |
$domain =~ s|\.\*||g; |
1200 |
$domain =~ s|\.\*||g; |
1200 |
- |
|
|