--- deliantra/server/ext/map-tags.ext	2007/09/11 13:27:53	1.2
+++ deliantra/server/ext/map-tags.ext	2007/09/11 15:33:34	1.3
@@ -1,6 +1,6 @@
 #! perl # mandatory
 
-our $SCHEDULE_INTERVAL  = $cf::CFG{extractor_schedule_interval} ||  3600;
+our $SCHEDULE_INTERVAL = $cf::CFG{extractor_schedule_interval} || 3600;
 
 use JSON::XS;
 
@@ -156,8 +156,8 @@
 
    my @res;
 
-   utf8::encode $tag;
-   BDB::db_get $db_target, undef, $tag, my $data;
+   utf8::encode (my $key = $tag);
+   BDB::db_get $db_target, undef, $key, my $data;
    utf8::decode $data;
 
    for my $map (
@@ -166,9 +166,12 @@
       grep s/^s//,
       split /\x00/, $data
    ) {
+      warn "map $map,$tag\n";#d#
       $map->load;
 
-      warn "tag<$tag>map<$map>\n";#d#
+      push @res, $map->find_tagged_objects ($tag);
+
+      warn "tag<$tag>map<$map>res<@res>\n";#d#
    }
 
    @res