/[webpac]/trunk2/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 /trunk2/all2xml.pl

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

revision 255 by dpavlin, Tue Mar 9 12:17:05 2004 UTC revision 259 by dpavlin, Thu Mar 11 18:23:59 2004 UTC
# Line 292  sub data2xml { Line 292  sub data2xml {
292                                  }                                  }
293                                  # type="swish" ; field for swish                                  # type="swish" ; field for swish
294                                  if ($swish) {                                  if ($swish) {
295                                            my $tmp = $swish;
296                                          if ($filter && ($s || $se)) {                                          if ($filter && ($s || $se)) {
297                                                  no strict 'refs';                                                  no strict 'refs';
298                                                  my $tmp = join(" ",&$filter($swish)) if ($s || $se);                                                  $tmp = join(" ",&$filter($tmp)) if ($s || $se);
                                                 $swish_data .= $tmp if ($s);  
                                                 $swish_exact_data .= "xxbxx $tmp xxexx " if ($se && $tmp ne "");  
   
                                         } else {  
                                                 $swish_data .= $swish if ($s);  
                                                 $swish_exact_data .= "xxbxx $swish xxexx " if ($se && $swish ne "");  
299                                          }                                          }
300    
301                                          $tmp = chk_eval($tmp);                                          $tmp = chk_eval($tmp);
302                                          $swish_data .= $tmp if ($s && $tmp);                                          $swish_data .= $tmp if ($s && $tmp);
303                                          $swish_exact_data .= "xxbxx $tmp xxexx " if ($se && $tmp ne "");                                          $swish_exact_data .= "xxbxx $tmp xxexx " if ($tmp && $tmp ne "" && $se);
304                                  }                                  }
305    
306                                  # type="display" ; field for display                                  # type="display" ; field for display

Legend:
Removed from v.255  
changed lines
  Added in v.259

  ViewVC Help
Powered by ViewVC 1.1.26