/[webpac]/branches/ffzg/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/ffzg/all2xml.pl

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

revision 178 by dpavlin, Mon Nov 24 21:54:19 2003 UTC revision 180 by dpavlin, Tue Nov 25 20:04:24 2003 UTC
# Line 102  sub data2xml { Line 102  sub data2xml {
102          }          }
103    
104          my @sorted_tags;          my @sorted_tags;
105          if ($cache->{tags_by_order}->{$type}) {          if ($cache->{tags_by_order}) {
106                  @sorted_tags = @{$cache->{tags_by_order}->{$type}};                  @sorted_tags = @{$cache->{tags_by_order}};
107          } else {          } else {
108                  @sorted_tags = sort by_order keys %{$config->{indexer}};                  @sorted_tags = sort by_order keys %{$config->{indexer}};
109                  $cache->{tags_by_order}->{$type} = \@sorted_tags;                  $cache->{tags_by_order} = \@sorted_tags;
110          }          }
111    
112          # lookup key          # lookup key
113          my $lookup_key;          my $lookup_key;
114    
115          # cache for field in pages          # cache for field in pages
116          $cache->{display_data} = ();          delete $cache->{display_data};
117          $cache->{swish_data} = ();          delete $cache->{swish_data};
118          $cache->{swish_exact_data} = ();          delete $cache->{swish_exact_data};
119          my @page_fields;        # names of fields          my @page_fields;        # names of fields
120    
121    
# Line 566  print STDERR "reading ./import_xml/$type Line 566  print STDERR "reading ./import_xml/$type
566          # now read database          # now read database
567  print STDERR "using: $type...\n";  print STDERR "using: $type...\n";
568    
569            # erase cache for tags by order in this database
570            delete $cache->{tags_by_order};
571    
572          if ($type_base eq "isis") {          if ($type_base eq "isis") {
573    
574                  my $isis_db = $cfg -> val($database, 'isis_db') || die "$database doesn't have 'isis_db' defined!";                  my $isis_db = $cfg -> val($database, 'isis_db') || die "$database doesn't have 'isis_db' defined!";

Legend:
Removed from v.178  
changed lines
  Added in v.180

  ViewVC Help
Powered by ViewVC 1.1.26