Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {
- my @htagged = $obj->tags;
- my $htag = MT::Tag->new;
- my $htags = "";
- # convert entry tags into hash tags and populate $htags
- foreach (@htagged) {
- $htag->name($_);
- if ($htag->is_private) {
- # private tag, do nothing
- } else {
- $htags = $htags . ' #' . $htag->normalize;
- }
- }
- $tweet = $intro . ' ' . $entry->title . ' ' . $obj->permalink . $htags;
- }
Add Comment
Please, Sign In to add comment