Changeset 83 for all-keywords/trunk/all-keywords.pl

Timestamp:

06/14/05 16:02:21 (4 years ago)

Author:

ogawa

Message:

Fix some bugs, and add "glue" option to MTAllKeywords tag.

Files:

• all-keywords/trunk/all-keywords.pl (modified) (6 diffs)

all-keywords/trunk/all-keywords.pl

@@ -1 +1 @@
 # A plugin for adding keywords-handling tags
 #
-# Release 0.12 (Mar 23, 2005)
+# Release 0.13 (Jun 11, 2005)
 #
 # This software is provided as-is. You may use it for commercial or 
@@ -12 +12 @@
 use MT::Template::Context;
 
-eval("use Storable;");
-if (!$@ && MT->can('add_plugin')) {
+my $plugin;
+eval {
     require MT::Plugin;
-    my $plugin = new MT::Plugin();
-    $plugin->name("AllKeywords Plugin 0.12");
-    $plugin->description("Add MTAllKeywords tags for listing blog-wide keywords and entry keywords");
+    $plugin = new MT::Plugin();
+    $plugin->name("AllKeywords Plugin");
+    $plugin->description("MTAllKeywords tags for listing and handling blog-wide tags and entry tags. Version 0.13");
     $plugin->doc_link("http://as-is.net/hacks/2005/03/allkeywords_plugin.html");
     MT->add_plugin($plugin);
-}
+};
 
 MT::Template::Context->add_container_tag('AllKeywords' => \&all_keywords);
@@ -46 +46 @@
     my ($ctx, $args, $cond) = @_;
 
-    # sort_by option (keyword/count, default = keyword)
+    # sort_by option (keyword/keyword-case/count, default = keyword)
     my $sort_by = $args->{sort_by} || 'keyword';
     # sort_order option (ascend/descend, default = ascend)
@@ -55 +55 @@
     my $delimiter = $args->{delimiter} || '';
     # case_sensitive option (0/1, default = 1)
-    my $case_sensitive = $args->{case_sensitive} || 1;
+    my $case_sensitive = defined $args->{case_sensitive} ?
+        $args->{case_sensitive} : 1;
 
     my $blog_id = $ctx->stash('blog_id');
@@ -77 +78 @@
     if ($sort_by eq 'keyword') {
         @list = $sort_order eq 'ascend' ?
-            sort { $a cmp $b } keys %all_keywords :
-            sort { $b cmp $a } keys %all_keywords;
+            sort { lc $a cmp lc $b } keys %all_keywords :
+            sort { lc $b cmp lc $a } keys %all_keywords;
+    } elsif ($sort_by eq 'keyword-case') {
+        @list = $sort_order eq 'ascend' ?
+            sort keys %all_keywords :
+            sort reverse keys %all_keywords;
     } else {
         @list = $sort_order eq 'ascend' ?
@@ -119 +124 @@
     my $delimiter = $args->{delimiter} || '';
     # case_sensitive option (0/1, default = 1)
-    my $case_sensitive = $args->{case_sensitive} || 1;
+    my $case_sensitive = defined $args->{case_sensitive} ?
+        $args->{case_sensitive} : 1;
 
     my @keywords = split_keywords($e->keywords, $delimiter, $case_sensitive);