Changeset 12
- Timestamp:
- 02/05/06 09:22:41
- Files:
-
- trunk/plagger/lib/Plagger/Date.pm (modified) (1 diff)
- trunk/plagger/lib/Plagger/Plugin/Aggregator/Simple.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Date.pm
r7 r12 4 4 5 5 use UNIVERSAL::require; 6 7 sub rebless { bless $_[1], $_[0] } 6 8 7 9 sub parse { trunk/plagger/lib/Plagger/Plugin/Aggregator/Simple.pm
r7 r12 36 36 $feed->updated($remote->modified); 37 37 38 for my $ remote_entry($remote->entries) {38 for my $e ($remote->entries) { 39 39 my $entry = Plagger::Entry->new; 40 $entry->title($remote_entry->title); 41 $entry->author($remote_entry->author); 42 $entry->tags([ $remote_entry->category ]) 43 if $remote_entry->category; 44 $entry->date($remote_entry->issued); 45 $entry->link($remote_entry->link); 46 $entry->id($remote_entry->id); 47 $entry->body($remote_entry->content->body); 40 $entry->title($e->title); 41 $entry->author($e->author); 42 $entry->tags([ $e->category ]) if $e->category; 43 $entry->date( Plagger::Date->rebless($e->issued) ); 44 $entry->link($e->link); 45 $entry->id($e->id); 46 $entry->body($e->content->body); 48 47 49 48 $feed->add_entry($entry);
