fixed filter delimiter bug

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

diff --git a/all2xml.pl b/all2xml.pl
index cfb5169..508222e 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -298,9 +298,9 @@ sub data2xml {
                                        if ($filter) {
                                                no strict 'refs';
                                                if ($display_data) {
-                                                       $display_data .= $delimiter.join($delimiter,mkformat($x,&$filter($display)));
+                                                       $display_data .= $delimiter.mkformat($x,join($delimiter,&$filter($display)));
                                                } else {
-                                                       $display_data = join($delimiter,mkformat($x,&$filter($display)));
+                                                       $display_data = mkformat($x,join($delimiter,&$filter($display)));
                                                }
                                        } else {
                                                if ($display_data) {