Changeset 555 for lang/perl/plagger/lib

Show
Ignore:
Timestamp:
10/19/07 19:23:11 (14 months ago)
Author:
mattn
Message:

lang/perl/plagger/lib/Plagger/Plugin/Publish/GooBookmark.pm: fixed: bits fix for tags.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/plagger/lib/Plagger/Plugin/Publish/GooBookmark.pm

    r554 r555  
    3333 
    3434    my @tags = @{$args->{entry}->tags}; 
    35     foreach my $tag (@tags) { $tag =~ s/,/_/g; } # FIXME: goo bookmark don't allow ',' for tags. 
     35    map{ tr/,/_/ } @tags; # separator as comma in goo bookmark 
    3636    my $tag_string = @tags ? join(',', @tags) : ''; 
    3737