fixed ordering

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

diff --git a/all2xml.pl b/all2xml.pl
index c6dae96..8f0e41a 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -82,17 +82,17 @@ sub data2xml {
 
        # sort subrouting using order="" attribute
        sub by_order {
-               return 0 if (! $config->{indexer}->{$a}->{order});
-               return 0 if (! $config->{indexer}->{$b}->{order});
+               my $va = $config->{indexer}->{$a}->{order} ||
+                       $config->{indexer}->{$a};
+               my $vb = $config->{indexer}->{$b}->{order} ||
+                       $config->{indexer}->{$b};
 
-               return $config->{indexer}->{$a}->{order} <=>
-                       $config->{indexer}->{$b}->{order} ;
+               return $va <=> $vb;
        }
 
        foreach my $field (sort by_order keys %{$config->{indexer}}) {
 
                $field=x($field);
-
                $field_usage{$field}++;
 
                my $swish_data = "";