Changeset 652

Show
Ignore:
Timestamp:
04/26/06 20:58:22
Author:
mizzy
Message:

Add genre to tags. (Thanks to otsune-san!)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/CustomFeed/iTunesRecentPlay.pm

    r507 r652  
    7373        m!<key>Album</key><string>(.*?)</string>! 
    7474            and $data->{album} = HTML::Entities::decode($1); 
     75        m!<key>Genre</key><string>(.*?)</string>! 
     76            and $data->{genre} = HTML::Entities::decode($1); 
    7577        m!<key>Total Time</key><integer>(.*?)</integer>! 
    7678            and $data->{duration} = HTML::Entities::decode($1); 
    …… 
    9294                        $entry->author($data->{artist}); 
    9395 
     96                        # Genre to tags 
     97                        $entry->add_tag($data->{genre}); 
     98 
    9499                        # title 
    95100                        my $title = $self->conf->{title_format};