/[webpac]/branches/drustvene/all2xml.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/drustvene/all2xml.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 169 by dpavlin, Sat Nov 22 22:04:05 2003 UTC revision 170 by dpavlin, Sun Nov 23 15:42:16 2003 UTC
# Line 61  my %type2tag = ( Line 61  my %type2tag = (
61          'feed' => 'feed'          'feed' => 'feed'
62  );  );
63    
64    my $cache;      # for cacheing
65    
66  sub data2xml {  sub data2xml {
67    
68          use xmlify;          use xmlify;
# Line 90  sub data2xml { Line 92  sub data2xml {
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}++;
# Line 167  sub data2xml { Line 177  sub data2xml {
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) {

Legend:
Removed from v.169  
changed lines
  Added in v.170

  ViewVC Help
Powered by ViewVC 1.1.26