Changeset 585

Show
Ignore:
Timestamp:
04/13/06 21:36:02
Author:
miyagawa
Message:

fix permalink stuff again

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/Subscription/Bloglines.pm

    r584 r585  
    164164            $entry->date( Plagger::Date->parse('Mail', $item->{pubDate}) ); 
    165165            $entry->link($item->{link}); 
    166             $entry->permalink("$item->{guid}") # stringify MagicElement 
    167                 if $item->{guid} && $item->{guid} =~ m!^https?://! && $item->{isPermaLink} eq 'true'; 
     166 
     167            if ($item->{guid}) { 
     168                my $is_permalink = $item->{guid}->{isPermaLink}; 
     169                my $guid_url     = "$item->{guid}"; # stringify MagicElement 
     170                $entry->permalink($guid_url) 
     171                    if $guid_url =~ m!^https?://! && $is_permalink eq 'true'; 
     172            } 
     173 
    168174            $entry->feed_link($feed->link); 
    169175            $entry->id($item->{guid}); 
    170  
    171176            $entry->body($item->{description}); 
    172177