Lines 169-186
sub SearchAuthorities {
Link Here
|
169 |
$attr = " \@attr 1=Any "; |
169 |
$attr = " \@attr 1=Any "; |
170 |
} |
170 |
} |
171 |
|
171 |
|
172 |
if ( @$operator[$i] eq 'is' ) { |
172 |
my $operator = @$operator[$i]; |
|
|
173 |
if ( $operator and $operator eq 'is' ) { |
173 |
$attr .= " \@attr 4=1 \@attr 5=100 " |
174 |
$attr .= " \@attr 4=1 \@attr 5=100 " |
174 |
; ##Phrase, No truncation,all of subfield field must match |
175 |
; ##Phrase, No truncation,all of subfield field must match |
175 |
} |
176 |
} |
176 |
elsif ( @$operator[$i] eq "=" ) { |
177 |
elsif ( $operator and $operator eq "=" ) { |
177 |
$attr .= " \@attr 4=107 "; #Number Exact match |
178 |
$attr .= " \@attr 4=107 "; #Number Exact match |
178 |
} |
179 |
} |
179 |
elsif ( @$operator[$i] eq "start" ) { |
180 |
elsif ( $operator and $operator eq "start" ) { |
180 |
$attr .= " \@attr 3=2 \@attr 4=1 \@attr 5=1 " |
181 |
$attr .= " \@attr 3=2 \@attr 4=1 \@attr 5=1 " |
181 |
; #Firstinfield Phrase, Right truncated |
182 |
; #Firstinfield Phrase, Right truncated |
182 |
} |
183 |
} |
183 |
elsif ( @$operator[$i] eq "exact" ) { |
184 |
elsif ( $operator and $operator eq "exact" ) { |
184 |
$attr .= " \@attr 4=1 \@attr 5=100 \@attr 6=3 " |
185 |
$attr .= " \@attr 4=1 \@attr 5=100 \@attr 6=3 " |
185 |
; ##Phrase, No truncation,all of subfield field must match |
186 |
; ##Phrase, No truncation,all of subfield field must match |
186 |
} |
187 |
} |
187 |
- |
|
|