diff options
author | yorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b> | 2008-07-08 09:24:59 +0000 |
---|---|---|
committer | yorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b> | 2008-07-08 09:24:59 +0000 |
commit | deb02936b7bd39259d019bbc46893af583ff856e (patch) | |
tree | f44d8d5c561222a21b80c3b2a548049d2adf96cd /lib | |
parent | 079e594bb5a43f948fed01b5140e01f3fd127ff9 (diff) |
Added recent posts, upcoming releases and just released lists to the homepage, and removed the vote count
git-svn-id: svn://vndb.org/vndb@56 1fe2e327-d9db-4752-bcf7-ef0cb4a1748b
Diffstat (limited to 'lib')
-rw-r--r-- | lib/VNDB/HomePages.pm | 4 | ||||
-rw-r--r-- | lib/VNDB/Util/DB.pm | 6 | ||||
-rw-r--r-- | lib/VNDB/Util/Tools.pm | 2 |
3 files changed, 10 insertions, 2 deletions
diff --git a/lib/VNDB/HomePages.pm b/lib/VNDB/HomePages.pm index 1db0fbe4..4907a7db 100644 --- a/lib/VNDB/HomePages.pm +++ b/lib/VNDB/HomePages.pm @@ -20,6 +20,10 @@ sub HomePage { recentedits => scalar $self->DBGetHist( results => 10, what => 'iid ititle'), recentvns => scalar $self->DBGetHist( results => 10, what => 'iid ititle', edits => 0, type => 'v'), recentps => scalar $self->DBGetHist( results => 10, what => 'iid ititle', edits => 0, type => 'p'), + recentposts => scalar $self->DBGetThreads(results => 10, what => 'lastpost', order => 'tp2.date DESC'), + # cache this shit when performance is going to be problematic + upcomingrel => scalar $self->DBGetRelease(results => 10, unreleased => 1), + justrel => scalar $self->DBGetRelease(results => 10, order => 'rr.released DESC', unreleased => 0), }); } diff --git a/lib/VNDB/Util/DB.pm b/lib/VNDB/Util/DB.pm index 679c16b6..4c5b3085 100644 --- a/lib/VNDB/Util/DB.pm +++ b/lib/VNDB/Util/DB.pm @@ -813,6 +813,7 @@ sub DBGetRelease { # %options->{ id vid results page rev } $o{results} ||= 50; $o{page} ||= 1; $o{what} ||= ''; + $o{order} ||= 'rr.released ASC'; my %where = ( !$o{id} && !$o{rev} ? ( 'r.hidden = 0' => 1 ) : (), @@ -822,6 +823,8 @@ sub DBGetRelease { # %options->{ id vid results page rev } 'c.rev = %d' => $o{rev} ) : (), $o{vid} ? ( 'rv.vid = %d' => $o{vid} ) : (), + defined $o{unreleased} ? ( + q|rr.released %s TO_CHAR('today'::timestamp, 'YYYYMMDD')::integer| => $o{unreleased} ? '>' : '<=' ) : (), ); my $where = scalar keys %where ? 'WHERE !W' : ''; @@ -839,9 +842,10 @@ sub DBGetRelease { # %options->{ id vid results page rev } FROM releases_rev rr @join $where - ORDER BY rr.released ASC + ORDER BY %s LIMIT %d OFFSET %d|, $where ? \%where : (), + $o{order}, $o{results}+(wantarray?1:0), $o{results}*($o{page}-1) ); $_->{released} = sprintf '%08d', $_->{released} for @$r; diff --git a/lib/VNDB/Util/Tools.pm b/lib/VNDB/Util/Tools.pm index 9b6180e1..caa66ef4 100644 --- a/lib/VNDB/Util/Tools.pm +++ b/lib/VNDB/Util/Tools.pm @@ -137,7 +137,7 @@ sub AddDefaultStuff { $self->ResAddTpl(st => $self->{static_url}); $self->ResAddTpl('Stat'.$_, $self->DBTableCount($_)) - for (qw|users producers vn releases votes|); + for (qw|users producers vn releases|); # development shit if($self->{debug}) { |