summaryrefslogtreecommitdiff
path: root/lib/VNWeb
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2021-12-06 13:53:12 +0100
committerYorhel <git@yorhel.nl>2021-12-06 13:53:14 +0100
commit9792336a222226e96668aaf4eb23645dbf5fae26 (patch)
treebebfd140755842dd2dfac1815be43d4a8c963dd3 /lib/VNWeb
parentff131288a94efd47b8d1e92944950a76490230b5 (diff)
Reviews::Edit: Hide unreleased releases
Fixes https://vndb.org/t2520.621
Diffstat (limited to 'lib/VNWeb')
-rw-r--r--lib/VNWeb/Reviews/Edit.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/VNWeb/Reviews/Edit.pm b/lib/VNWeb/Reviews/Edit.pm
index 2921be75..9c76f5fb 100644
--- a/lib/VNWeb/Reviews/Edit.pm
+++ b/lib/VNWeb/Reviews/Edit.pm
@@ -25,6 +25,12 @@ my $FORM_OUT = form_compile out => $FORM;
sub throttled { tuwf->dbVali('SELECT COUNT(*) FROM reviews WHERE uid =', \auth->uid, 'AND date > date_trunc(\'day\', NOW())') >= 5 }
+sub releases {
+ my($vid) = @_;
+ my $today = strftime '%Y%m%d', gmtime;
+ [ grep $_->{released} <= $today, releases_by_vn($vid)->@* ]
+}
+
TUWF::get qr{/$RE{vid}/addreview}, sub {
my $v = tuwf->dbRowi('SELECT id, title FROM vn WHERE NOT hidden AND id =', \tuwf->capture('id'));
@@ -42,7 +48,7 @@ TUWF::get qr{/$RE{vid}/addreview}, sub {
};
} else {
elm_ 'Reviews.Edit' => $FORM_OUT, { elm_empty($FORM_OUT)->%*,
- vid => $v->{id}, vntitle => $v->{title}, releases => releases_by_vn($v->{id}), mod => auth->permBoardmod()
+ vid => $v->{id}, vntitle => $v->{title}, releases => releases($v->{id}), mod => auth->permBoardmod()
};
}
};
@@ -57,7 +63,7 @@ TUWF::get qr{/$RE{wid}/edit}, sub {
return tuwf->resNotFound if !$e->{id};
return tuwf->resDenied if !can_edit w => $e;
- $e->{releases} = releases_by_vn $e->{vid};
+ $e->{releases} = releases $e->{vid};
$e->{mod} = auth->permBoardmod;
framework_ title => "Edit review for $e->{vntitle}", dbobj => $e, tab => 'edit', sub {
elm_ 'Reviews.Edit' => $FORM_OUT, $e;