fix

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

diff --git a/all2xml.pl b/all2xml.pl
index 4af0540..622597c 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -254,7 +254,8 @@ foreach my $database ($cfg->Sections) {
 
                        my $swishpath = $path."#".int($row->{mfn});
 
-                       if (my $xml = $cp2utf->convert(isis2xml($row,$add_xml."<path>$swishpath</path>"))) {
+                       if (my $xml = isis2xml($row,$add_xml)) {
+                               $xml = $cp2utf->convert($xml);
                                use bytes;      # as opposed to chars
                                print "Path-Name: $swishpath\n";
                                print "Content-Length: ".(length($xml)+1)."\n";