--- trunk/all2xml.pl 2003/12/15 00:12:16 196 +++ trunk/all2xml.pl 2003/12/21 03:27:02 197 @@ -282,23 +282,11 @@ no strict 'refs'; my $tmp = join(" ",&$filter($swish)) if ($s || $se); $swish_data .= $tmp if ($s); - if ($se) { - if ($swish_exact_data) { - $swish_exact_data .= "xxexx xxbxx ".$tmp; - } else { - $swish_exact_data .= $tmp; - } - } + $swish_exact_data .= "xxbxx $tmp xxexx " if ($se && $tmp ne ""); } else { $swish_data .= $swish if ($s); - if ($se) { - if ($swish_exact_data) { - $swish_exact_data .= "xxexx xxbxx ".$swish; - } else { - $swish_exact_data .= $swish; - } - } + $swish_exact_data .= "xxbxx $swish xxexx " if ($se && $swish ne ""); } } @@ -494,7 +482,7 @@ # add delimiters before and after word. # That is required to produce exact match - $xml .= xmlify($field."_swish_exact", unac_string($codepage,'xxbxx '.$swish_exact_data.' xxexx')); + $xml .= xmlify($field."_swish_exact", unac_string($codepage,$swish_exact_data)); } my $idel = $cache->{index_delimiter}->{$field}; @@ -536,7 +524,7 @@ # add delimiters before and after word. # That is required to produce exact match - $xml .= xmlify($field."_swish_exact", unac_string($codepage,'xxbxx '.$swish_exact_data.' xxexx')); + $xml .= xmlify($field."_swish_exact", unac_string($codepage,$swish_exact_data)); } } }