sub _generate{
my ($self, $htc, $lang, $env, $contest, $id) = @_;
debug $env => "language is '$lang', contest is '$contest', id is '$id'";
my $user = $env->{REMOTE_USER};
if ($contest && $user) {
sub _generate{
my ($self, $htc, $lang, $env, $contest, $id) = @_;
debug $env => "language is '$lang', contest is '$contest', id is '$id'";
my $user = $env->{REMOTE_USER};
if ($contest && $user) {
$htc->param(author => problem_author $id);
$htc->param(owner => problem_owner $id);
$htc->param(statement => problem_statement $id);
$htc->param(author => problem_author $id);
$htc->param(owner => problem_owner $id);
$htc->param(statement => problem_statement $id);