From bea881bea4a429fb2a63325410a9f5fab7291a2d Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Sun, 14 Nov 2010 12:52:14 +0100
Subject: Handler::Misc: Added title attribute to the feed cssicons

This also gets rid of three perl warnings.
---
 data/lang.txt            | 8 ++++++++
 lib/VNDB/Handler/Misc.pm | 8 +++-----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/data/lang.txt b/data/lang.txt
index 8ddd96d6..4388dc72 100644
--- a/data/lang.txt
+++ b/data/lang.txt
@@ -1511,6 +1511,14 @@ hu : moderálásra vár
 nl : ongemodereerd
 
 
+# title of the syndication icon (this thing -> http://en.wikipedia.org/wiki/Atom_feed)
+
+:_atom_feed
+en : Atom Feed
+ru*:
+cs*:
+hu*:
+nl :
 
 
 #############################################################################
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;
-- 
cgit v1.2.3