Lines 555-561
if (C4::Context->preference('OpacSuppression')) {
Link Here
|
555 |
my $IPRange = C4::Context->preference('OpacSuppressionByIPRange'); |
555 |
my $IPRange = C4::Context->preference('OpacSuppressionByIPRange'); |
556 |
if ($IPAddress !~ /^$IPRange/) { |
556 |
if ($IPAddress !~ /^$IPRange/) { |
557 |
if ( $query_type eq 'pqf' ) { |
557 |
if ( $query_type eq 'pqf' ) { |
558 |
$query = '@not '.$query.' @attr 1=9011 1'; |
558 |
$query = '@not '.$query.' @attr 14=1 @attr 1=9011 1'; |
559 |
} else { |
559 |
} else { |
560 |
$query = "($query) not Suppress=1"; |
560 |
$query = "($query) not Suppress=1"; |
561 |
} |
561 |
} |
Lines 564-570
if (C4::Context->preference('OpacSuppression')) {
Link Here
|
564 |
else { |
564 |
else { |
565 |
if ( $query_type eq 'pqf' ) { |
565 |
if ( $query_type eq 'pqf' ) { |
566 |
#$query = "($query) && -(suppress:1)"; #QP syntax |
566 |
#$query = "($query) && -(suppress:1)"; #QP syntax |
567 |
$query = '@not '.$query.' @attr 1=9011 1'; #PQF syntax |
567 |
$query = '@not '.$query.' @attr 14=1 @attr 1=9011 1'; #PQF syntax |
568 |
} else { |
568 |
} else { |
569 |
$query = "($query) not Suppress=1"; |
569 |
$query = "($query) not Suppress=1"; |
570 |
} |
570 |
} |
571 |
- |
|
|