my ($self) = @_;
Gruntmaster::Data::purge '/pb/';
Gruntmaster::Data::purge '/pb/' . $self->id;
- Gruntmaster::Data::purge '/sol/' . $self->id;
+ Gruntmaster::Data::purge '/csol/' . $self->id;
};
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;
}