|
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 |
- |
|
|