my ($self, $htc, $lang, $env, $contest, $id) = @_;
debug $env => "language is '$lang', contest is '$contest', id is '$id'";
my $user = $env->{REMOTE_USER};
my ($self, $htc, $lang, $env, $contest, $id) = @_;
debug $env => "language is '$lang', contest is '$contest', id is '$id'";
my $user = $env->{REMOTE_USER};
local $Gruntmaster::Data::contest = $contest;
mark_open $id, $user;
debug $env => "Marking problem $id of contest $contest open by $user";
}
local $Gruntmaster::Data::contest = $contest;
mark_open $id, $user;
debug $env => "Marking problem $id of contest $contest open by $user";
}
$htc->param(name => problem_name $id);
$htc->param(author => problem_author $id);
$htc->param(owner => problem_owner $id);
$htc->param(name => problem_name $id);
$htc->param(author => problem_author $id);
$htc->param(owner => problem_owner $id);