Changeset 100
- Timestamp:
- 06/30/05 15:12:17 (3 years ago)
- Files:
-
- tagwire/trunk/README.txt (modified) (2 diffs)
- tagwire/trunk/tagwire.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
tagwire/trunk/README.txt
r98 r100 110 110 111 111 Chooses whether the plugin treats tags as the case-sensitive 112 manner or not. In case-insensitive manner, The plugin recognizes113 "Apple" and "appLE" as two different tags in case-sensitive114 manner, on the other hand, it recognizes them as a same tag in115 case-insensitivemanner. The default is case_sensitive="1".112 manner or not. In the case-sensitive manner, the plugin 113 recognizes "Apple" and "appLE" as two different tags, on the other 114 hand, it recognizes them as a same tag in the case-insensitive 115 manner. The default is case_sensitive="1". 116 116 117 117 * Available tags in this container: … … 300 300 301 301 302 =============================303 How to couple with MT-XSearch304 =============================305 306 TBD307 308 309 302 ======== 310 303 SEE ALSO 311 304 ======== 312 305 313 Japanese document has not been provided yet. 306 Lastest version of this document will be found: 307 http://as-is.net/hacks/2005/06/tagwire_plugin.html 308 309 Advanced documents and Japanese documents are also available from the 310 above URL. 314 311 315 312 tagwire/trunk/tagwire.pl
r97 r100 22 22 eval { 23 23 require MT::Plugin; 24 $plugin = new MT::Plugin(); 25 $plugin->name("Tagwire Plugin"); 26 $plugin->description("A plugin for listing and handling blog-wide tags and entry tags."); 27 $plugin->doc_link("http://as-is.net/hacks/2005/06/tagwire_plugin.html"); 24 $plugin = new MT::Plugin({ 25 name => 'Tagwire Plugin', 26 description => 'A plugin for listing and handling blog-wide tags and entry tags.', 27 doc_link => 'http://as-is.net/hacks/2005/06/tagwire_plugin.html', 28 author_name => 'Hirotaka Ogawa', 29 author_link => 'http://profile.typekey.com/ogawa/', 30 version => '0.22' 31 }); 28 32 MT->add_plugin($plugin); 29 33 }; … … 123 127 $string =~ s/(^\s+|\s+$)//g; 124 128 $string = lc $string unless $case_sensitive; 129 # $string =~ s/\[[^[]+\]//g; # uncomment this to discard [short title] 125 130 126 131 if ($string =~ m/[;,|]/) { … … 487 492 488 493 my @results; 489 my @patterns = split_args($args->{search}, $delimiter, $case_sensitive); 494 my @patterns = split_args($args->{search}, $delimiter, $case_sensitive) 495 or return \@results; 490 496 491 497 my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id)
