Changeset 236 for TagSupplementals/trunk

Timestamp:

09/05/06 16:47:36 (2 years ago)

Author:

ogawa

Message:

Fix several silly bugs.

Files:

• TagSupplementals/trunk/TagSupplementals.pl (modified) (6 diffs)

TagSupplementals/trunk/TagSupplementals.pl

@@ -86 +86 @@
     my $r = MT::Request->instance;
     my $otag_cache = $r->stash('object_tags_cache:' . $blog_id) || {};
-    if (!$otag_cache) {
+    if (!$otag_cache->{$tag_id}) {
         my @otags = MT::ObjectTag->load({
             blog_id => $blog_id,
@@ -92 +92 @@
             object_datasource => MT::Entry->datasource,
         });
-        $otag_cache = \@otags;
+        $otag_cache->{$tag_id} = \@otags;
         $r->stash('object_tags_cache:' . $blog_id, $otag_cache);
     }
-    $otag_cache;
+    $otag_cache->{$tag_id};
 }
 
@@ -103 +103 @@
         or return $ctx->_no_entry_error('MT' . $ctx->stash('tag'));
 
-    my $weight = $args->{weight} || 'idf';
+    my $weight = $args->{weight} || 'constant';
     my $lastn = $args->{lastn} || 0;
 
@@ -127 +127 @@
 
     my %rank;
-    if ($weight eq 'idf') {
-        for my $tag_id (@tag_ids) {
-            my @otags = _object_tags($blog_id, $tag_id);
-            next if scalar @otags == 1;
-            my $rank = 1 / (scalar @otags - 1);
-            for my $otag (@otags) {
-                $rank{$otag->object_id} += $rank;
-            }
-        }
-    } elsif ($weight eq 'constant') {
+    if ($weight eq 'constant') {
         if (MT::Object->driver->can('count_group_by')) {
             my $iter = MT::ObjectTag->count_group_by({
@@ -158 +149 @@
             }
         }
-        delete $rank{$entry_id};
-    }
+    } elsif ($weight eq 'idf') {
+        for my $tag_id (@tag_ids) {
+            my $otags = _object_tags($blog_id, $tag_id);
+            next if scalar @$otags == 1;
+            my $rank = 1 / (scalar @$otags - 1);
+            for my $otag (@$otags) {
+                $rank{$otag->object_id} += $rank;
+            }
+        }
+    }
+    delete $rank{$entry_id};
 
     my @eids = sort { $b <=> $a } keys %rank;
@@ -200 +200 @@
     my $blog_id = $ctx->stash('blog_id') or return '';
 
-    my @otags = _object_tags($blog_id, $tag->id);
-    my @eids = map { $_->object_id } @otags;
+    my $otags = _object_tags($blog_id, $tag->id);
+    my @eids = map { $_->object_id } @$otags;
 
     my $iter = MT::Tag->load_iter(undef, {