correct support for swish_exact when there are repeatable fields

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

diff --git a/all2xml.pl b/all2xml.pl
index 175abc2..fc9c710 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -282,11 +282,23 @@ sub data2xml {
                                                no strict 'refs';
                                                my $tmp = join(" ",&$filter($swish)) if ($s || $se);
                                                $swish_data .= $tmp if ($s);
-                                               $swish_exact_data .= $tmp if ($se);
+                                               if ($se) {
+                                                       if ($swish_exact_data) {
+                                                               $swish_exact_data .= "xxexx xxbxx ".$tmp;
+                                                       } else {
+                                                               $swish_exact_data .= $tmp;
+                                                       }
+                                               }
 
                                        } else {
                                                $swish_data .= $swish if ($s);
-                                               $swish_exact_data .= $swish if ($se);
+                                               if ($se) {
+                                                       if ($swish_exact_data) {
+                                                               $swish_exact_data .= "xxexx xxbxx ".$swish;
+                                                       } else {
+                                                               $swish_exact_data .= $swish;
+                                                       }
+                                               }
                                        }
                                }