Changeset 357
- Timestamp:
- 03/07/07 19:17:03 (2 years ago)
- Files:
-
- mt-cats2tags/trunk/mt-cats2tags.cgi (modified) (2 diffs)
- mt-keywords2tags/trunk/mt-keywords2tags.cgi (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
mt-cats2tags/trunk/mt-cats2tags.cgi
r221 r357 7 7 # personal use. If you distribute it, please keep this notice intact. 8 8 # 9 # Copyright (c) 2006 Hirotaka Ogawa9 # Copyright (c) 2006,2007 Hirotaka Ogawa 10 10 11 11 use strict; … … 47 47 next unless $cats && @$cats; 48 48 my @tags = map { $_->label } @$cats; 49 $e-> set_tags(@tags);49 $e->add_tags(@tags); 50 50 $e->save_tags; 51 51 print $e->id . ": " . join(', ', @tags) . "\n"; mt-keywords2tags/trunk/mt-keywords2tags.cgi
r214 r357 7 7 # personal use. If you distribute it, please keep this notice intact. 8 8 # 9 # Copyright (c) 2006 Hirotaka Ogawa9 # Copyright (c) 2006,2007 Hirotaka Ogawa 10 10 # 11 11 use strict; … … 46 46 my @tags = split_tags($e->keywords, 1); 47 47 next unless scalar @tags; 48 $e-> set_tags(@tags);48 $e->add_tags(@tags); 49 49 $e->save_tags; 50 50 print $e->id . ": " . join(', ', @tags) . "\n";
