--- deliantra/server/ext/map-tags.ext	2009/10/23 03:28:11	1.18
+++ deliantra/server/ext/map-tags.ext	2009/10/24 00:25:26	1.19
@@ -42,8 +42,6 @@
 
    my $hash = join ",", 1, (stat _)[7,9], $file;
 
-   my $old_tags;
-
    my $txn = $cf::DB_ENV->txn_begin;
 
    utf8::encode $key;
@@ -52,10 +50,11 @@
    unless ($!) {
       $data = decode_json $data;
       return if $data->{hash} eq $hash;
-      $old_tags = $data->{tags};
-   }
 
-   $old_tags ||= [];
+      # remove all old tags unconditionally
+      remove_tag_target $txn, $_, $key
+         for @{ $data->{tags} };
+   }
 
    my $f = new_from_file cf::object::thawer $file
       or return;
@@ -65,17 +64,9 @@
 
    BDB::db_put $db_mapinfo, $txn, $key, $data;
 
-   # 1. remove tags no longer existing
-   for my $tag (@$old_tags) {
-      next if grep $_ eq $tag, @tags;
-      remove_tag_target $txn, $tag, $key;
-   }
-
-   # 2. add tags that are new
-   for my $tag (@tags) {
-      next if grep $_ eq $tag, @$old_tags;
-      add_tag_target $txn, $tag, $key;
-   }
+   # add all tags
+   add_tag_target $txn, $_, $key
+      for @tags;
 
    # we don't actually care if it succeeds or not, as we
    # will just retry an hour later