Require admin to list problems of pending contests

diff --git a/lib/Plack/App/Gruntmaster.pm b/lib/Plack/App/Gruntmaster.pm
index 490fb44e726794c1d6212283650cf5ae81b2b311..00f9b0f52c39d133f0e0903544e3283c634067fe 100644 (file)
--- a/lib/Plack/App/Gruntmaster.pm
+++ b/lib/Plack/App/Gruntmaster.pm
@@ -153,6 +153,7 @@ sub dispatch_request{
                },
                sub (/pb/  + ?:owner~&:contest~&:private~)                  {
                        forbid $_{private};
+                       forbid contest->is_pending;
                        response pb => 'Problems', db->problem_list(%_)
                },