Bug 12861: (follow-up) Noisy warn in error logs
Completely get rid of warns.
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
(cherry picked from commit acff264558)
Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
This commit is contained in:
parent
131050798d
commit
10e13ddb74
|
|
@ -169,18 +169,19 @@ sub SearchAuthorities {
|
|||
$attr = " \@attr 1=Any ";
|
||||
}
|
||||
|
||||
if ( @$operator[$i] eq 'is' ) {
|
||||
my $operator = @$operator[$i];
|
||||
if ( $operator and $operator eq 'is' ) {
|
||||
$attr .= " \@attr 4=1 \@attr 5=100 "
|
||||
; ##Phrase, No truncation,all of subfield field must match
|
||||
}
|
||||
elsif ( @$operator[$i] eq "=" ) {
|
||||
elsif ( $operator and $operator eq "=" ) {
|
||||
$attr .= " \@attr 4=107 "; #Number Exact match
|
||||
}
|
||||
elsif ( @$operator[$i] eq "start" ) {
|
||||
elsif ( $operator and $operator eq "start" ) {
|
||||
$attr .= " \@attr 3=2 \@attr 4=1 \@attr 5=1 "
|
||||
; #Firstinfield Phrase, Right truncated
|
||||
}
|
||||
elsif ( @$operator[$i] eq "exact" ) {
|
||||
elsif ( $operator and $operator eq "exact" ) {
|
||||
$attr .= " \@attr 4=1 \@attr 5=100 \@attr 6=3 "
|
||||
; ##Phrase, No truncation,all of subfield field must match
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue