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