From 950bd6423c20a61a830bb526b28148f8d3435a38 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 23 Feb 2003 07:53:01 +0000 Subject: [PATCH] display fields using order="" attribute git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@32 13eb9ef6-21d5-0310-b721-a9d68796d827 --- all2xml.pl | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/all2xml.pl b/all2xml.pl index 0a3d886..e9a1ce2 100755 --- 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 { -- 2.20.1