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

(-)a/C4/Search.pm (-2 / +1 lines)
Lines 1075-1081 sub buildQuery { Link Here
1075
    my $cclq       = 0;
1075
    my $cclq       = 0;
1076
    my $cclindexes = getIndexes();
1076
    my $cclindexes = getIndexes();
1077
    if ( $query !~ /\s*ccl=/ ) {
1077
    if ( $query !~ /\s*ccl=/ ) {
1078
        while ( !$cclq && $query =~ /(?:^|\W)(\w+)(,\w+)*[:=]/g ) {
1078
        while ( !$cclq && $query =~ /(?:^|\W)([\w-]+)(,[\w-]+)*[:=]/g ) {
1079
            my $dx = lc($1);
1079
            my $dx = lc($1);
1080
            $cclq = grep { lc($_) eq $dx } @$cclindexes;
1080
            $cclq = grep { lc($_) eq $dx } @$cclindexes;
1081
        }
1081
        }
1082
- 

Return to bug 6786