display fields using order="" attribute

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

diff --git a/all2xml.pl b/all2xml.pl
index 0a3d886..e9a1ce2 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -63,8 +63,16 @@ sub isis2xml {
 
        my %field_usage;        # counter for usage of each field
 
+       # sort subrouting using order="" attribute
+       sub by_order {
+               return 0 if (! $config->{indexer}->{$a}->{order});
+               return 0 if (! $config->{indexer}->{$b}->{order});
 
-       foreach my $field (keys %{$config->{indexer}}) {
+               return $config->{indexer}->{$a}->{order} <=>
+                       $config->{indexer}->{$b}->{order} ;
+       }
+
+       foreach my $field (sort by_order keys %{$config->{indexer}}) {
 
                $field_usage{$field}++;
 
@@ -112,7 +120,7 @@ sub isis2xml {
                                # type="swish" ; field for swish
                                if ($s && $swish) {
                                        if ($filter) {
-print STDERR "using filter '$filter'\n";
+#print STDERR "using filter '$filter'\n";
                                                no strict 'refs';
                                                $swish_data .= join(" ",&$filter($swish));
                                        } else {