Lines 481-491
if (C4::Context->preference('OpacSuppression')) {
Link Here
|
481 |
my $IPAddress = $ENV{'REMOTE_ADDR'}; |
481 |
my $IPAddress = $ENV{'REMOTE_ADDR'}; |
482 |
my $IPRange = C4::Context->preference('OpacSuppressionByIPRange'); |
482 |
my $IPRange = C4::Context->preference('OpacSuppressionByIPRange'); |
483 |
if ($IPAddress !~ /^$IPRange/) { |
483 |
if ($IPAddress !~ /^$IPRange/) { |
484 |
$query = "($query) not Suppress=1"; |
484 |
if ( $query_type eq 'pqf' ) { |
|
|
485 |
$query = "($query) && -(suppress:1)"; |
486 |
} else { |
487 |
$query = "($query) not Suppress=1"; |
488 |
} |
485 |
} |
489 |
} |
486 |
} |
490 |
} |
487 |
else { |
491 |
else { |
488 |
$query = "($query) not Suppress=1"; |
492 |
if ( $query_type eq 'pqf' ) { |
|
|
493 |
$query = "($query) && -(suppress:1)"; |
494 |
} else { |
495 |
$query = "($query) not Suppress=1"; |
496 |
} |
489 |
} |
497 |
} |
490 |
} |
498 |
} |
491 |
|
499 |
|
492 |
- |
|
|