Tagwire Plugin の変更

;# MT::Template::Context->add_container_tag (... が続くあたりに追加します ;# piroli++, '05/09/27 MT::Template::Context->add_tag('TagScore' => ¥&tag_score); sub tag_score { $_[0]->stash('Tagwire::tag_score') || 0; } ;# sub tags_in_entries {...} 付近 ： ： my @res; my $builder = $ctx->stash('builder'); my $tokens = $ctx->stash('tokens'); my $i = 0; foreach (@list) { last if $lastn && $i >= $lastn; local $ctx->{__stash}{'Tagwire::tag'} = $_; local $ctx->{__stash}{'Tagwire::tag_count'} = $tags{$_}; local $ctx->{__stash}{'Tagwire::tag_date'} = $ts{$_}; ;# piroli, '05/09/27, コンテクスト中のエントリにおけるタグの使用率 local $ctx->{__stash}{'Tagwire::tag_score'} = int (0.5 + $tags{$_} * 100 / (scalar @$entries)); defined (my $out = $builder->build($ctx, $tokens)) or return $ctx->error($ctx->errstr); push @res, $out; $i++; } my $glue = $args->{glue} || ''; join $glue, @res; } ;# sub related_tags {...} 付近 ： ： my @res; my $builder = $ctx->stash('builder'); my $tokens = $ctx->stash('tokens'); my $i = 0; foreach (@list) { last if $lastn && $i >= $lastn; local $ctx->{__stash}{'Tagwire::tag'} = $_; local $ctx->{__stash}{'Tagwire::tag_count'} = $tags{$_}; local $ctx->{__stash}{'Tagwire::tag_date'} = $ts{$_}; ;# piroli, '05/09/27, 親タグを持つエントリ中での使用率 local $ctx->{__stash}{'Tagwire::tag_score'} = int (0.5 + $tags{$_} * 100 / (scalar @{$tindex{$tag}->{eids}})); defined(my $out = $builder->build($ctx, $tokens)) or return $ctx->error($ctx->errstr); push @res, $out; $i++; } my $glue = $args->{glue} || ''; join $glue, @res; }

オリジナルコードの著作権はogawaさん (Ogawa::Memoranda)にあります。 また上記の改造コードの扱いについては Tagwire Plugin のそれに準じます。
http://www.perl.com/language/misc/Artistic.html

テンプレートタグ

<MTTagsInEntries> 内で使用した場合

スコア = タグの使用回数 ÷ コンテクスト中のエントリ数 × 100

<MTRelatedTags> 内で使用した場合

スコア = タグの使用回数 ÷ 親タグを持つエントリ数 × 100

<MTTags> 内で使用した場合

アーカイブテンプレートの例

<h4>このカテゴリの代表タグ</h4> <ul> <MTTagsInEntries sort_by="count" sort_order="descend" lastn="5"> <li><$MTTag$> (<$MTTagScore$>pts)</li> </MTTagsInEntries> </ul>