|
Lines 482-488
if (C4::Context->preference('OpacSuppression')) {
Link Here
|
| 482 |
my $IPRange = C4::Context->preference('OpacSuppressionByIPRange'); |
482 |
my $IPRange = C4::Context->preference('OpacSuppressionByIPRange'); |
| 483 |
if ($IPAddress !~ /^$IPRange/) { |
483 |
if ($IPAddress !~ /^$IPRange/) { |
| 484 |
if ( $query_type eq 'pqf' ) { |
484 |
if ( $query_type eq 'pqf' ) { |
| 485 |
$query = "($query) && -(suppress:1)"; |
485 |
$query = '@not '.$query.' @attr 1=9011 1'; |
| 486 |
} else { |
486 |
} else { |
| 487 |
$query = "($query) not Suppress=1"; |
487 |
$query = "($query) not Suppress=1"; |
| 488 |
} |
488 |
} |
|
Lines 490-496
if (C4::Context->preference('OpacSuppression')) {
Link Here
|
| 490 |
} |
490 |
} |
| 491 |
else { |
491 |
else { |
| 492 |
if ( $query_type eq 'pqf' ) { |
492 |
if ( $query_type eq 'pqf' ) { |
| 493 |
$query = "($query) && -(suppress:1)"; |
493 |
#$query = "($query) && -(suppress:1)"; #QP syntax |
|
|
494 |
$query = '@not '.$query.' @attr 1=9011 1'; #PQF syntax |
| 494 |
} else { |
495 |
} else { |
| 495 |
$query = "($query) not Suppress=1"; |
496 |
$query = "($query) not Suppress=1"; |
| 496 |
} |
497 |
} |
| 497 |
- |
|
|