63 |
|
|
64 |
my %field_usage; # counter for usage of each field |
my %field_usage; # counter for usage of each field |
65 |
|
|
66 |
|
# sort subrouting using order="" attribute |
67 |
|
sub by_order { |
68 |
|
return 0 if (! $config->{indexer}->{$a}->{order}); |
69 |
|
return 0 if (! $config->{indexer}->{$b}->{order}); |
70 |
|
|
71 |
|
return $config->{indexer}->{$a}->{order} <=> |
72 |
|
$config->{indexer}->{$b}->{order} ; |
73 |
|
} |
74 |
|
|
75 |
foreach my $field (keys %{$config->{indexer}}) { |
foreach my $field (sort by_order keys %{$config->{indexer}}) { |
76 |
|
|
77 |
$field_usage{$field}++; |
$field_usage{$field}++; |
78 |
|
|
120 |
# type="swish" ; field for swish |
# type="swish" ; field for swish |
121 |
if ($s && $swish) { |
if ($s && $swish) { |
122 |
if ($filter) { |
if ($filter) { |
123 |
print STDERR "using filter '$filter'\n"; |
#print STDERR "using filter '$filter'\n"; |
124 |
no strict 'refs'; |
no strict 'refs'; |
125 |
$swish_data .= join(" ",&$filter($swish)); |
$swish_data .= join(" ",&$filter($swish)); |
126 |
} else { |
} else { |