Set contest on problem_list only when contest is running

diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index b4a124ce3c4f7e5b168e4d09136d6cd8b3bb4c5c..75548fb18d4995ec63956b9dc029df387973c059 100644 (file)
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -83,7 +83,7 @@ sub problem_list {
        $rs = $rs->search({'contest_problems.contest' => $args{contest}}, {join => 'contest_problems'}) if $args{contest};
        $rs = $rs->search({'me.owner' => $args{owner}}) if $args{owner};
        my %params;
-       $params{contest} = $args{contest} if $args{contest};
+       $params{contest} = $args{contest} if $args{contest} && $self->contest($args{contest})->is_running;
        for ($rs->all) {
                $params{$_->level} //= [];
                push @{$params{$_->level}}, {$_->get_columns, owner_name => $_->owner->name} ;