Changeset 87

Timestamp:

04/02/06 12:59:38 (2 years ago)

Author:

miya

Message:

add function displaying related tags to tagging plugin

Files:

• blosxom_plugins/trunk/tagging (modified) (7 diffs)

blosxom_plugins/trunk/tagging

@@ -1 +1 @@
-# Blosxom Plugin: tagging
-# Author: Gosuke Miyashita <miya@mizzy.org>
-1-05
+4-02
-# Blosxom Home/Docs/Licensing: http://www.blosxom.com/
-
@@ -8 +8 @@
-use strict;
-use CGI qw(param url);
-
+ $related_tags
-use Storable qw(store retrieve);
-use Jcode;
@@ -58 +58 @@
-            }
-        }
-
+
-        foreach my $tag (sort keys %tags){
-            my $encoded_tag = $tag;
@@ -64 +64 @@
-            $list .= "<li><a href='$url?tag=$encoded_tag'>$tag</a> ($tags{$tag})</li>\n";
-        }
-
-} 
+
+
-        foreach my $tag (sort keys %$tags_list){
-            if(($find_tag and $tag =~ /^$find_tag/i) or !$find_tag){
@@ -132 +132 @@
-
-
- 
+
-    if(param('tag')){
-        my @tags = split(/,/, param('tag'));
-        my ($files_have_tags, $cnt);
-
+
-        foreach my $tag (@tags){
-            if(!$files_have_tags and !$cnt){
-                %$files_have_tags = map { $_ => $files->{$_} } @{$tags_to_files->{$tag}};
-
+
+
-                my $files_have_tags_tmp;
-                foreach my $file (keys %$files_have_tags){
@@ -156 +157 @@
-
-        %$files = %$files_have_tags;
+
+        my %related_tags;
+        for my $file (keys %$files){
+            for my $tag (@{$files_to_tags->{$file}}){
+                if(param('tag') !~ /$tag/){
+                    $related_tags{$tag}++;
+                }
+            }
+        }
+
+        $related_tags = '<ul>';
+        for my $tag (sort keys %related_tags){
+            my $encoded_tag = $tag;
+            my $current_tag = param('tag');
+            $encoded_tag =~ s/(\W)/sprintf("%%%02X", ord($1))/ego;
+            $related_tags .= "<li><a href='$blosxom::url/?tag=$current_tag,$encoded_tag'>$tag</a> ($related_tags{$tag})</li>\n";
+        }
+        $related_tags .= '</ul>';
-    }
-
@@ -169 +188 @@
-    foreach (sort @tags) {
-        my $encoded_tag = $_;
-             
+
-        $tags_in_this .= "<a href='$blosxom::url/?tag=$encoded_tag'>$_</a> ";
-    }