282 |
no strict 'refs'; |
no strict 'refs'; |
283 |
my $tmp = join(" ",&$filter($swish)) if ($s || $se); |
my $tmp = join(" ",&$filter($swish)) if ($s || $se); |
284 |
$swish_data .= $tmp if ($s); |
$swish_data .= $tmp if ($s); |
285 |
if ($se) { |
$swish_exact_data .= "xxbxx $tmp xxexx " if ($se && $tmp ne ""); |
|
if ($swish_exact_data) { |
|
|
$swish_exact_data .= "xxexx xxbxx ".$tmp; |
|
|
} else { |
|
|
$swish_exact_data .= $tmp; |
|
|
} |
|
|
} |
|
286 |
|
|
287 |
} else { |
} else { |
288 |
$swish_data .= $swish if ($s); |
$swish_data .= $swish if ($s); |
289 |
if ($se) { |
$swish_exact_data .= "xxbxx $swish xxexx " if ($se && $swish ne ""); |
|
if ($swish_exact_data) { |
|
|
$swish_exact_data .= "xxexx xxbxx ".$swish; |
|
|
} else { |
|
|
$swish_exact_data .= $swish; |
|
|
} |
|
|
} |
|
290 |
} |
} |
291 |
} |
} |
292 |
|
|
482 |
|
|
483 |
# add delimiters before and after word. |
# add delimiters before and after word. |
484 |
# That is required to produce exact match |
# That is required to produce exact match |
485 |
$xml .= xmlify($field."_swish_exact", unac_string($codepage,'xxbxx '.$swish_exact_data.' xxexx')); |
$xml .= xmlify($field."_swish_exact", unac_string($codepage,$swish_exact_data)); |
486 |
} |
} |
487 |
|
|
488 |
my $idel = $cache->{index_delimiter}->{$field}; |
my $idel = $cache->{index_delimiter}->{$field}; |
524 |
|
|
525 |
# add delimiters before and after word. |
# add delimiters before and after word. |
526 |
# That is required to produce exact match |
# That is required to produce exact match |
527 |
$xml .= xmlify($field."_swish_exact", unac_string($codepage,'xxbxx '.$swish_exact_data.' xxexx')); |
$xml .= xmlify($field."_swish_exact", unac_string($codepage,$swish_exact_data)); |
528 |
} |
} |
529 |
} |
} |
530 |
} |
} |