61 |
'feed' => 'feed' |
'feed' => 'feed' |
62 |
); |
); |
63 |
|
|
64 |
|
my $cache; # for cacheing |
65 |
|
|
66 |
sub data2xml { |
sub data2xml { |
67 |
|
|
68 |
use xmlify; |
use xmlify; |
92 |
return $va <=> $vb; |
return $va <=> $vb; |
93 |
} |
} |
94 |
|
|
95 |
foreach my $field (sort by_order keys %{$config->{indexer}}) { |
my @sorted_tags; |
96 |
|
if ($cache->{tags_by_order}->{$type}) { |
97 |
|
@sorted_tags = @{$cache->{tags_by_order}->{$type}}; |
98 |
|
} else { |
99 |
|
@sorted_tags = sort by_order keys %{$config->{indexer}}; |
100 |
|
$cache->{tags_by_order}->{$type} = \@sorted_tags; |
101 |
|
} |
102 |
|
|
103 |
|
foreach my $field (@sorted_tags) { |
104 |
|
|
105 |
$field=x($field); |
$field=x($field); |
106 |
$field_usage{$field}++; |
$field_usage{$field}++; |
177 |
# filter="name" ; filter this field through |
# filter="name" ; filter this field through |
178 |
# filter/[name].pm |
# filter/[name].pm |
179 |
my $filter = $x->{filter}; |
my $filter = $x->{filter}; |
180 |
if ($filter) { |
if ($filter && !$cache->{filter_loaded}->{$filter}) { |
181 |
require "filter/".$filter.".pm"; |
require "filter/".$filter.".pm"; |
182 |
|
$cache->{filter_loaded}->{$filter}++; |
183 |
} |
} |
184 |
# type="swish" ; field for swish |
# type="swish" ; field for swish |
185 |
if ($swish) { |
if ($swish) { |