Lines 807-813
sub checkauth {
Link Here
|
807 |
$branchname = GetBranchName($branchcode); |
807 |
$branchname = GetBranchName($branchcode); |
808 |
} |
808 |
} |
809 |
my $branches = GetBranches(); |
809 |
my $branches = GetBranches(); |
810 |
if (C4::Context->boolean_preference('IndependantBranches') && C4::Context->boolean_preference('Autolocation')){ |
810 |
if (C4::Context->boolean_preference('IndependantBranches') && C4::Context->boolean_preference('Autolocation') && ($type ne 'opac') ){ |
811 |
# we have to check they are coming from the right ip range |
811 |
# we have to check they are coming from the right ip range |
812 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
812 |
my $domain = $branches->{$branchcode}->{'branchip'}; |
813 |
if ($ip !~ /^$domain/){ |
813 |
if ($ip !~ /^$domain/){ |
814 |
- |
|
|