diff options
author | Yorhel <git@yorhel.nl> | 2020-08-31 10:20:46 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-08-31 10:20:53 +0200 |
commit | d4c11dddaf0ba52310afca84d26afcff182ee715 (patch) | |
tree | e511be955f96a111f7f14b1e8456304a5d284722 /lib/VNDB | |
parent | 26dd345e2ba99d00697ef840462f30f7997ca452 (diff) |
Handler::Misc: Replace "Random VNs" section with "New Reviews"
Still need a place to dump "latest review comments". Perhaps merge with
"recent posts"? Not sure...
Diffstat (limited to 'lib/VNDB')
-rw-r--r-- | lib/VNDB/Handler/Misc.pm | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm index b4827da2..71f19b38 100644 --- a/lib/VNDB/Handler/Misc.pm +++ b/lib/VNDB/Handler/Misc.pm @@ -133,16 +133,21 @@ sub homepage { end 'tr'; Tr; - # Random visual novels + # New Reviews td; h1; - a href => '/v/rand', 'Random visual novels'; + a href => '/w', 'New Reviews'; end; - my $random = $self->filFetchDB(vn => undef, undef, {results => 10, sort => 'rand'}); + my $reviews = tuwf->dbAlli(' + SELECT w.id, v.title,', VNWeb::DB::sql_user(), ',', VNWeb::DB::sql_totime('w.date'), 'AS date + FROM reviews w JOIN vn v ON v.id = w.vid LEFT JOIN users u ON u.id = w.uid ORDER BY w.id DESC LIMIT 10'); ul; - for (@$random) { + for (@$reviews) { li; - a href => "/v$_->{id}", title => $_->{original}||$_->{title}, shorten $_->{title}, 40; + txt fmtage($_->{date}).' '; + a href => "/$_->{id}", title => $_->{title}, shorten $_->{title}, 25; + lit ' by '; + VNWeb::HTML::user_($_); end; } end; @@ -151,7 +156,7 @@ sub homepage { # Upcoming releases td; h1; - a href => '/r?fil=released-0;o=a;s=released', 'Upcoming releases'; + a href => '/r?fil=released-0;o=a;s=released', 'Upcoming Releases'; end; my $upcoming = $self->filFetchDB(release => undef, undef, {results => 10, released => 0, what => 'platforms'}); ul; @@ -171,7 +176,7 @@ sub homepage { # Just released td; h1; - a href => '/r?fil=released-1;o=d;s=released', 'Just released'; + a href => '/r?fil=released-1;o=d;s=released', 'Just Released'; end; my $justrel = $self->filFetchDB(release => undef, undef, {results => 10, sort => 'released', reverse => 1, released => 1, what => 'platforms'}); ul; |