/[webpac]/trunk/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 /trunk/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 199 by dpavlin, Wed Jan 7 12:29:11 2004 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 310  sub data2xml { Line 298  sub data2xml {
298                                          if ($filter) {                                          if ($filter) {
299                                                  no strict 'refs';                                                  no strict 'refs';
300                                                  if ($display_data) {                                                  if ($display_data) {
301                                                          $display_data .= $delimiter.join($delimiter,mkformat($x,&$filter($display)));                                                          $display_data .= $delimiter.mkformat($x,join($delimiter,&$filter($display)));
302                                                  } else {                                                  } else {
303                                                          $display_data = join($delimiter,mkformat($x,&$filter($display)));                                                          $display_data = mkformat($x,join($delimiter,&$filter($display)));
304                                                  }                                                  }
305                                          } else {                                          } else {
306                                                  if ($display_data) {                                                  if ($display_data) {
# 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.199

  ViewVC Help
Powered by ViewVC 1.1.26