|
Lines 1131-1136
sub _fix_limit_special_cases {
Link Here
|
| 1131 |
elsif ( $l =~ /^available$/ ) { |
1131 |
elsif ( $l =~ /^available$/ ) { |
| 1132 |
push @new_lim, 'available:true'; |
1132 |
push @new_lim, 'available:true'; |
| 1133 |
} |
1133 |
} |
|
|
1134 |
elsif ( $l =~ /^\s*(kw\b[\w,-]*?):(.*)/) { |
| 1135 |
my ( $field, $term ) = ($1, $2); |
| 1136 |
if ( defined($field) && defined($term) && $field =~ /,phr$/) { |
| 1137 |
push @new_lim, "(\"$term\")"; |
| 1138 |
} |
| 1139 |
else { |
| 1140 |
push @new_lim, $term; |
| 1141 |
} |
| 1142 |
} |
| 1134 |
else { |
1143 |
else { |
| 1135 |
my ( $field, $term ) = $l =~ /^\s*([\w,-]*?):(.*)/; |
1144 |
my ( $field, $term ) = $l =~ /^\s*([\w,-]*?):(.*)/; |
| 1136 |
$field =~ s/,phr$//; #We are quoting all the limits as phrase, this prevents from quoting again later |
1145 |
$field =~ s/,phr$//; #We are quoting all the limits as phrase, this prevents from quoting again later |
| 1137 |
- |
|
|