Changeset 42

Show
Ignore:
Timestamp:
01/05/06 20:45:17 (3 years ago)
Author:
miya
Message:

modify tagging

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • blosxom_plugins/trunk/tagging

    r12 r42  
    11# Blosxom Plugin: tagging 
    22# Author: Gosuke Miyashita <miya@mizzy.org> 
    3 # Version: 2005-06-23 
     3# Version: 2006-01-05 
    44# Blosxom Home/Docs/Licensing: http://www.blosxom.com/ 
    55 
    …… 
    88use strict; 
    99use CGI qw(param url); 
    10 use vars qw($list $current_tag $find_tag $tags_in_this); 
     10use vars qw($list $current_tag $find_tag $tags_in_this $tags_in_this_array); 
    1111use Storable qw(store retrieve); 
    1212use Jcode; 
    …… 
    166166    my @tags; 
    167167    map { $_ = lc $_; $_ =~ s/^\s*//; $_ =~ s/\s*$//; push(@tags, $_); } split(/,/, $meta::tags); 
     168    $tags_in_this_array = \@tags; 
    168169    foreach (sort @tags) { 
    169170        my $encoded_tag = $_;