View | Details | Raw Unified | Return to bug 10542
Collapse All | Expand All

(-)a/opac/opac-search.pl (-3 / +10 lines)
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
- 

Return to bug 10542