Changeset 233

Timestamp:

08/11/06 15:58:57 (2 years ago)

Author:

ogawa

Message:

Add encode_urlplus filter, MTTagLastUpdated tag, MTSearchTags tag.

Files:

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

TagSupplementals/trunk/TagSupplementals.pl

@@ -22 +22 @@
 
 BEGIN {
-    our $VERSION = '0.02';
+    our $VERSION = '0.03';
     $plugin = __PACKAGE__->new({
         name => 'TagSupplementals Plugin',
         description => 'A plugin for providing supplemental features for MT 3.3 tags.',
-        doc_link => 'http://as-is.net/wiki/TagSupplementals_Plugin',
+        doc_link => 'http://code.as-is.net/wiki/TagSupplementals_Plugin',
         author_name => 'Hirotaka Ogawa',
         author_link => 'http://profile.typekey.com/ogawa/',
@@ -33 +33 @@
     MT->add_plugin($plugin);
     MT::Template::Context->add_tag(EntryTagsCount => \&entry_tags_count);
+    MT::Template::Context->add_tag(TagLastUpdated => \&tag_last_updated);
     MT::Template::Context->add_container_tag(RelatedEntries => \&related_entries);
     MT::Template::Context->add_container_tag(RelatedTags => \&related_tags);
+    MT::Template::Context->add_global_filter(encode_urlplus => \&encode_urlplus);
+    MT::Template::Context->add_container_tag(SearchTags => \&search_tags);
 
     eval { require MT::XSearch; $HAVE_MT_XSEARCH = 1 };
@@ -55 +58 @@
     my @tags = $entry->get_tags;
     scalar @tags;
+}
+
+sub tag_last_updated {
+    my ($ctx, $args) = @_;
+    my $tag = $ctx->stash('Tag') or return '';
+    my $blog_id = $ctx->stash('blog_id') or return '';
+
+    my ($e) = MT::Entry->load(undef, {
+        sort => 'created_on',
+        direction => 'descend',
+        limit => 1,
+        join => [ 'MT::ObjectTag', 'object_id', {
+            tag_id => $tag->id,
+            blog_id => $blog_id,
+            object_datasource => MT::Entry->datasource,
+        }, {
+            unique => 1,
+        } ] })
+        or return '';
+
+    $args->{ts} = $e->created_on;
+    MT::Template::Context::_hdlr_date($ctx, $args);
 }
 
@@ -180 +205 @@
 }
 
+sub encode_urlplus {
+    my $s = $_[0];
+    return $s unless $_[1];
+    $s =~ tr/ /+/;
+    MT::Util::encode_url($s);
+}
+
+sub search_tags {
+    my ($ctx, $args, $cond) = @_;
+
+    return '' unless $ctx->stash('search_string') =~ /\S/;
+    my $tags = $ctx->stash('search_string');
+    my @tag_names = MT::Tag->split(',', $tags);
+#    my %tags = map { $_ => 1, MT::Tag->normalize($_) => 1 } @tag_names;
+#    my @tags = MT::Tag->load({ name => [ keys %tags ] });
+    my @tags = MT::Tag->load({ name => @tag_names });
+    return '' unless scalar @tags;
+
+    my @res;
+    my $builder = $ctx->stash('builder');
+    my $tokens = $ctx->stash('tokens');
+    foreach (@tags) {
+        local $ctx->{__stash}{'Tag'} = $_;
+        local $ctx->{__stash}{tag_count} = undef;
+        defined(my $out = $builder->build($ctx, $tokens, $cond))
+            or return $ctx->error($ctx->errstr);
+        push @res, $out;
+    }
+    my $glue = $args->{glue} || '';
+    join $glue, @res;
+}
+
 sub tag_xsearch_link {
     my ($ctx, $args, $cond) = @_;