diff options
author | Daniel Cordero <theappleman@gmail.com> | 2011-10-04 17:17:23 +0800 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-10-04 13:13:28 +0200 |
commit | 3b903c10625206e54af6864a8bb8f8f1f165e3ee (patch) | |
tree | a77c9737756c6a68b8df61c98f0c26d9fe42f815 /lib/Multi/Feed.pm | |
parent | bb46b4d22011d581682aaf347a648ed89c70ed84 (diff) |
Multi::Feed: Add URL to alternative links
Not having the full URI in these links is not a specification fail,
but it helps some feed-readers that do not know where they should
point.
Diffstat (limited to 'lib/Multi/Feed.pm')
-rw-r--r-- | lib/Multi/Feed.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Multi/Feed.pm b/lib/Multi/Feed.pm index 1a955e05..78fdc214 100644 --- a/lib/Multi/Feed.pm +++ b/lib/Multi/Feed.pm @@ -112,7 +112,7 @@ sub write_atom { # num, res, feed, time $x->tag(updated => datetime($updated)); $x->tag(id => $VNDB::S{url}.$VNDB::S{atom_feeds}{$feed}[2]); $x->tag(link => rel => 'self', type => 'application/atom+xml', href => "$VNDB::S{url}/feeds/$feed.atom", undef); - $x->tag(link => rel => 'alternate', type => 'text/html', href => $VNDB::S{atom_feeds}{$feed}[2], undef); + $x->tag(link => rel => 'alternate', type => 'text/html', href => $VNDB::S{url}.$VNDB::S{atom_feeds}{$feed}[2], undef); for(@$r) { $x->tag('entry'); @@ -126,7 +126,7 @@ sub write_atom { # num, res, feed, time $x->tag(uri => '/u'.$_->{uid}) if $_->{uid}; $x->end; } - $x->tag(link => rel => 'alternate', type => 'text/html', href => $_->{id}, undef); + $x->tag(link => rel => 'alternate', type => 'text/html', href => $VNDB::S{url}.$_->{id}, undef); $x->tag('summary', type => 'html', bb2html $_->{summary}) if $_->{summary}; $x->end('entry'); } |