summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2009-09-07 09:34:20 +0200
committerYorhel <git@yorhel.nl>2009-09-07 09:34:20 +0200
commit869aff4e43d1c849d3757591aacdc3746c06edb3 (patch)
tree5a8d83f5ad0d7bfa4f8519196fec23d630f9b10e /lib
parentb1831418483d8209d3f4e8480a4db837f550b530 (diff)
Handler::Misc: Made box titles on the homepage click-able
Diffstat (limited to 'lib')
-rw-r--r--lib/VNDB/Handler/Misc.pm22
1 files changed, 16 insertions, 6 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm
index 187f1b0c..48ede5c0 100644
--- a/lib/VNDB/Handler/Misc.pm
+++ b/lib/VNDB/Handler/Misc.pm
@@ -6,6 +6,7 @@ use strict;
use warnings;
use YAWF ':html', ':xml', 'xml_escape';
use VNDB::Func;
+use POSIX 'strftime';
YAWF::register(
@@ -59,7 +60,9 @@ sub homepage {
# Recent changes
td;
- h1 mt '_home_recentchanges';
+ h1;
+ a href => '/hist', mt '_home_recentchanges';
+ end;
my $changes = $self->dbRevisionGet(what => 'item user', results => 10, auto => 1, hidden => 1);
ul;
for (@$changes) {
@@ -77,8 +80,9 @@ sub homepage {
# Announcements
td;
my $an = $self->dbThreadGet(type => 'an', order => 't.id DESC', results => 2);
- a class => 'right', href => '/t/an', mt '_home_newsarchive';
- h1 mt '_home_announcements';
+ h1;
+ a href => '/t/an', mt '_home_announcements';
+ end;
for (@$an) {
my $post = $self->dbPostGet(tid => $_->{id}, num => 1)->[0];
h2;
@@ -92,7 +96,9 @@ sub homepage {
# Recent posts
td;
- h1 mt '_home_recentposts';
+ h1;
+ a href => '/t', mt '_home_recentposts';
+ end;
my $posts = $self->dbThreadGet(what => 'lastpost boardtitles', results => 10, order => 'tpl.date DESC', notusers => 1);
ul;
for (@$posts) {
@@ -125,7 +131,9 @@ sub homepage {
# Upcoming releases
td;
- h1 mt '_home_upcoming';
+ h1;
+ a href => strftime('/r?mi=%Y%m%d;o=a;s=released', gmtime), mt '_home_upcoming';
+ end;
my $upcoming = $self->dbReleaseGet(results => 10, unreleased => 1, what => 'platforms');
ul;
for (@$upcoming) {
@@ -142,7 +150,9 @@ sub homepage {
# Just released
td;
- h1 mt '_home_justreleased';
+ h1;
+ a href => strftime('/r?ma=%Y%m%d;o=d;s=released', gmtime), mt '_home_justreleased';
+ end;
my $justrel = $self->dbReleaseGet(results => 10, order => 'rr.released DESC', unreleased => 0, what => 'platforms');
ul;
for (@$justrel) {