|
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 |
- |
|
|