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

(-)a/opac/opac-authorities-home.pl (-15 / +6 lines)
Lines 21-26 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use URI::Escape qw( uri_escape_utf8 );
23
use URI::Escape qw( uri_escape_utf8 );
24
use Array::Utils qw(intersect);
25
24
use C4::Auth qw( get_template_and_user );
26
use C4::Auth qw( get_template_and_user );
25
27
26
use C4::Context;
28
use C4::Context;
Lines 55-74 if ( $op eq "do_search" ) { Link Here
55
    my @value = $query->multi_param('value');
57
    my @value = $query->multi_param('value');
56
    $value[0] ||= q||;
58
    $value[0] ||= q||;
57
59
58
    my $valid_marc_list = {
60
    # validation of "Where"
59
        "all"       => 1,
61
    my @valid_marc_list = qw( all match mainentry );
60
        "match"     => 1,
62
    my @marclist        = intersect( @input_marclist, @valid_marc_list );
61
        "mainentry" => 1,
63
    @marclist = ('all') unless @marclist;
62
    };
63
    my @marclist = ();
64
    foreach my $entry (@input_marclist) {
65
        if ( $valid_marc_list->{$entry} ) {
66
            push( @marclist, $entry );
67
        }
68
    }
69
    if ( !@marclist ) {
70
        push( @marclist, 'all' );
71
    }
72
64
73
    my $builder = Koha::SearchEngine::QueryBuilder->new(
65
    my $builder = Koha::SearchEngine::QueryBuilder->new(
74
        { index => $Koha::SearchEngine::AUTHORITIES_INDEX } );
66
        { index => $Koha::SearchEngine::AUTHORITIES_INDEX } );
75
- 

Return to bug 35578