|
Lines 1119-1124
sub _fix_limit_special_cases {
Link Here
|
| 1119 |
elsif ( $l =~ /^available$/ ) { |
1119 |
elsif ( $l =~ /^available$/ ) { |
| 1120 |
push @new_lim, 'available:true'; |
1120 |
push @new_lim, 'available:true'; |
| 1121 |
} |
1121 |
} |
|
|
1122 |
elsif ( $l =~ /^\s*(kw\b[\w,-]*?):(.*)/) { |
| 1123 |
my ( $field, $term ) = ($1, $2); |
| 1124 |
if ( defined($field) && defined($term) && $field =~ /,phr$/) { |
| 1125 |
push @new_lim, "(\"$term\")"; |
| 1126 |
} |
| 1127 |
else { |
| 1128 |
push @new_lim, $term; |
| 1129 |
} |
| 1130 |
} |
| 1122 |
else { |
1131 |
else { |
| 1123 |
my ( $field, $term ) = $l =~ /^\s*([\w,-]*?):(.*)/; |
1132 |
my ( $field, $term ) = $l =~ /^\s*([\w,-]*?):(.*)/; |
| 1124 |
$field =~ s/,phr$//; #We are quoting all the limits as phrase, this prevents from quoting again later |
1133 |
$field =~ s/,phr$//; #We are quoting all the limits as phrase, this prevents from quoting again later |
| 1125 |
- |
|
|