diff options
author | Yorhel <git@yorhel.nl> | 2010-11-14 12:52:14 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2010-11-14 12:52:14 +0100 |
commit | bea881bea4a429fb2a63325410a9f5fab7291a2d (patch) | |
tree | 4f203c24b0387c72286461aa2ecaa2f3905ee192 /lib/VNDB/Handler/Misc.pm | |
parent | f5366ab8d9d5465a80d4e9f599cee6c1fe4f5b49 (diff) |
Handler::Misc: Added title attribute to the feed cssicons
This also gets rid of three perl warnings.
Diffstat (limited to 'lib/VNDB/Handler/Misc.pm')
-rw-r--r-- | lib/VNDB/Handler/Misc.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm index cbd1dc50..815f308f 100644 --- a/lib/VNDB/Handler/Misc.pm +++ b/lib/VNDB/Handler/Misc.pm @@ -64,7 +64,7 @@ sub homepage { td; h1; a href => '/hist', mt '_home_recentchanges'; txt ' '; - a href => '/feeds/changes.atom'; cssicon 'feed'; end; + a href => '/feeds/changes.atom'; cssicon 'feed', mt '_atom_feed'; end; end; my $changes = $self->dbRevisionGet(what => 'item user', results => 10, auto => 1); ul; @@ -84,8 +84,7 @@ sub homepage { my $an = $self->dbThreadGet(type => 'an', sort => 'id', reverse => 1, results => 2); h1; a href => '/t/an', mt '_home_announcements'; txt ' '; - a href => '/feeds/announcements.atom'; cssicon 'feed'; end; - + a href => '/feeds/announcements.atom'; cssicon 'feed', mt '_atom_feed'; end; end; for (@$an) { my $post = $self->dbPostGet(tid => $_->{id}, num => 1)->[0]; @@ -102,8 +101,7 @@ sub homepage { td; h1; a href => '/t', mt '_home_recentposts'; txt ' '; - a href => '/feeds/posts.atom'; cssicon 'feed'; end; - + a href => '/feeds/posts.atom'; cssicon 'feed', mt '_atom_feed'; end; end; my $posts = $self->dbThreadGet(what => 'lastpost boardtitles', results => 10, sort => 'lastpost', reverse => 1, notusers => 1); ul; |