fix swish_exact fields so that they don't show up in display

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@181 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/all2xml.pl b/all2xml.pl
index 13cec21..8ff7d56 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -175,11 +175,10 @@ sub data2xml {
                        my ($s,$se,$d,$i,$il) = (1,0,1,0,0);
                        $s = 0 if (lc($x->{type}) eq "display");
                        $d = 0 if (lc($x->{type}) eq "swish");
-                       $se = 1 if (lc($x->{type}) eq "swish_exact");
-                       ($s,$d,$i) = (0,0,1) if (lc($x->{type}) eq "index");
+                       ($s,$se,$d,$i) = (0,0,0,1) if (lc($x->{type}) eq "index");
+                       ($s,$se,$d,$i) = (0,1,0,0) if (lc($x->{type}) eq "swish_exact");
                        $il = 1 if (lc($x->{type}) =~ /^lookup/);
 
-
                        # what will separate last line from this one?
                        if ($display_data && $x->{append} && $x->{append} eq "1") {
                                $line_delimiter = ' ';