Fix purge bug introduced two commits ago

[gruntmaster-data.git] / lib / Gruntmaster / Data / Result / Problem.pm

diff --git a/lib/Gruntmaster/Data/Result/Problem.pm b/lib/Gruntmaster/Data/Result/Problem.pm
index 6b9b3bfff02ae3156c9332d5aa4cd0c35ed00641..4cf06b2a7e1c1cec43a9613f13800517a650a8f9 100644 (file)
--- a/lib/Gruntmaster/Data/Result/Problem.pm
+++ b/lib/Gruntmaster/Data/Result/Problem.pm
@@ -325,6 +325,7 @@ after qw/insert update delete/ => sub {
 
 sub is_private {
        my ($self, $time) = @_;
+       return 0 if grep { !$_->contest->is_pending($time) } $self->contest_problems;
        return 1 if $self->private;
        grep { $_->contest->is_pending($time) } $self->contest_problems;
 }