/[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 180 by dpavlin, Tue Nov 25 20:04:24 2003 UTC revision 181 by dpavlin, Tue Nov 25 20:19:03 2003 UTC
# Line 175  sub data2xml { Line 175  sub data2xml {
175                          my ($s,$se,$d,$i,$il) = (1,0,1,0,0);                          my ($s,$se,$d,$i,$il) = (1,0,1,0,0);
176                          $s = 0 if (lc($x->{type}) eq "display");                          $s = 0 if (lc($x->{type}) eq "display");
177                          $d = 0 if (lc($x->{type}) eq "swish");                          $d = 0 if (lc($x->{type}) eq "swish");
178                          $se = 1 if (lc($x->{type}) eq "swish_exact");                          ($s,$se,$d,$i) = (0,0,0,1) if (lc($x->{type}) eq "index");
179                          ($s,$d,$i) = (0,0,1) if (lc($x->{type}) eq "index");                          ($s,$se,$d,$i) = (0,1,0,0) if (lc($x->{type}) eq "swish_exact");
180                          $il = 1 if (lc($x->{type}) =~ /^lookup/);                          $il = 1 if (lc($x->{type}) =~ /^lookup/);
181    
   
182                          # what will separate last line from this one?                          # what will separate last line from this one?
183                          if ($display_data && $x->{append} && $x->{append} eq "1") {                          if ($display_data && $x->{append} && $x->{append} eq "1") {
184                                  $line_delimiter = ' ';                                  $line_delimiter = ' ';

Legend:
Removed from v.180  
changed lines
  Added in v.181

  ViewVC Help
Powered by ViewVC 1.1.26