Lines 820-826
sub checkauth {
Link Here
|
820 |
$branchname = GetBranchName($branchcode); |
820 |
$branchname = GetBranchName($branchcode); |
821 |
} |
821 |
} |
822 |
my $branches = GetBranches(); |
822 |
my $branches = GetBranches(); |
823 |
if (C4::Context->boolean_preference('IndependantBranches') && C4::Context->boolean_preference('Autolocation')){ |
823 |
if (C4::Context->boolean_preference('IndependantBranches') && C4::Context->boolean_preference('Autolocation') && ($type ne 'opac') ){ |
824 |
# we have to check they are coming from the right ip range |
824 |
# we have to check they are coming from the right ip range |
825 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
825 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
826 |
if ($ip !~ /^$domain/){ |
826 |
if ($ip !~ /^$domain/){ |
827 |
- |
|
|