diff options
author | Yorhel <git@yorhel.nl> | 2010-11-13 10:27:32 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2010-11-13 10:27:32 +0100 |
commit | a985f2316e50a7170229538efc907c232889bfcc (patch) | |
tree | f4113dfea3fe1e2a331ce24c0df83ef620a94bc6 /lib/VNDB/Handler | |
parent | 935ad7c2c3b7f442664c84e2ccf44957dd642381 (diff) |
Added <link> elements for the related atom feeds to some pages
Diffstat (limited to 'lib/VNDB/Handler')
-rw-r--r-- | lib/VNDB/Handler/Discussions.pm | 4 | ||||
-rw-r--r-- | lib/VNDB/Handler/Misc.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/VNDB/Handler/Discussions.pm b/lib/VNDB/Handler/Discussions.pm index ed18fcaf..ee6e460d 100644 --- a/lib/VNDB/Handler/Discussions.pm +++ b/lib/VNDB/Handler/Discussions.pm @@ -294,7 +294,7 @@ sub board { sort => $type eq 'an' ? 'id' : 'lastpost', reverse => 1, ); - $self->htmlHeader(title => $title, noindex => !@$list || $type eq 'u'); + $self->htmlHeader(title => $title, noindex => !@$list || $type eq 'u', feeds => [ $type eq 'an' ? 'announcements' : 'posts' ]); $self->htmlMainTabs($type, $obj, 'disc') if $iid; div class => 'mainbox'; @@ -330,7 +330,7 @@ sub board { sub index { my $self = shift; - $self->htmlHeader(title => mt '_disindex_title'); + $self->htmlHeader(title => mt('_disindex_title'), feeds => [ 'posts', 'announcements' ]); div class => 'mainbox'; h1 mt '_disindex_title'; p class => 'browseopts'; diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm index 87839730..901e25e0 100644 --- a/lib/VNDB/Handler/Misc.pm +++ b/lib/VNDB/Handler/Misc.pm @@ -37,7 +37,7 @@ YAWF::register( sub homepage { my $self = shift; - $self->htmlHeader(title => mt '_site_title'); + $self->htmlHeader(title => mt('_site_title'), feeds => [ keys %{$self->{atom_feeds}} ]); div class => 'mainbox'; h1 mt '_site_title'; @@ -216,7 +216,7 @@ sub history { releases => $f->{r}, ); - $self->htmlHeader(title => $title, noindex => 1); + $self->htmlHeader(title => $title, noindex => 1, feeds => [ 'changes' ]); $self->htmlMainTabs($type, $obj, 'hist') if $type; # url generator |