/[webpac]/branches/ffzg/all2xml.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/ffzg/all2xml.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 196 by dpavlin, Mon Dec 15 00:12:16 2003 UTC revision 197 by dpavlin, Sun Dec 21 03:27:02 2003 UTC
# Line 282  sub data2xml { Line 282  sub data2xml {
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    
# Line 494  sub data2xml { Line 482  sub data2xml {
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};
# Line 536  sub data2xml { Line 524  sub data2xml {
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          }          }

Legend:
Removed from v.196  
changed lines
  Added in v.197

  ViewVC Help
Powered by ViewVC 1.1.26