another alternative encoding for Crolist. How many does it have?

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index 58cf077..20bc592 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -160,9 +160,17 @@ sub data2xml {
                                        }
                                        if ($filter) {
                                                no strict 'refs';
-                                               $display_data .= $delimiter.&$filter($display);
+                                               if ($display_data) {
+                                                       $display_data .= $delimiter.&$filter($display);
+                                               } else {
+                                                       $display_data = &$filter($display);
+                                               }
                                        } else {
-                                               $display_data .= $delimiter.$display;
+                                               if ($display_data) {
+                                                       $display_data .= $delimiter.$display;
+                                               } else {
+                                                       $display_data = $display;
+                                               }
                                        }
                                }