Changeset 230
- Timestamp:
- 08/22/06 16:01:51 (2 years ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
plagger/trunk/lib/Plagger/Plugin/CustomFeed/AmazonWebService.pm
r228 r230 45 45 for my $item ( @$items ) { 46 46 my $entry = Plagger::Entry->new; 47 47 48 $entry->title($item->ProductName); 48 49 $entry->body($item->ProductDescription); 49 50 $entry->link($item->url); 50 51 $entry->icon({ url => $item->ImageUrlSmall }); 52 53 if ( ref $item eq 'Net::Amazon::Property::Book' ){ 54 $entry->author($item->author); 55 } 56 elsif ( ref $item eq 'Net::Amazon::Property::Music' ){ 57 $entry->author($item->artist); 58 } 59 elsif ( ref $item eq 'Net::Amazon::Property::DVD' ){ 60 $entry->author( ( $item->starring() )[0] ); 61 } 51 62 52 63 my $date = Plagger::Date->strptime('%Y/%m/%d', $item->ReleaseDate); … … 81 92 82 93 if($response->is_error) { 83 $context->log(error => $response->message );94 $context->log(error => $response->message . ": $keyword"); 84 95 return; 85 96 } plagger/trunk/lib/Plagger/Plugin/Publish/iCal.pm
r229 r230 37 37 my $event = Data::ICal::Entry::Event->new; 38 38 $event->add_properties( 39 summary => $entry->title ,39 summary => $entry->title . ' - ' . $entry->author, 40 40 description => $entry->summary || $entry->body, 41 organizer => $entry->author, 41 42 dtstart => join('', split('-', $date->ymd)), 42 43 dtend => join('', split('-', Plagger::Date->from_epoch(epoch => $date->epoch + 60*60*24)->ymd)),
