summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
3825b4b)
my $source = $prog ? read_file $prog->path : $_{source_code};
unlink $prog->path if $prog;
my $source = $prog ? read_file $prog->path : $_{source_code};
unlink $prog->path if $prog;
+ my $private = (problem->private && !$_{contest}) ? 1 : 0;
my $newjob = db->jobs->create({
maybe contest => $_{contest},
my $newjob = db->jobs->create({
maybe contest => $_{contest},
- maybe private => problem->private && !$_{contest},
date => time,
extension => FORMAT_EXTENSION->{$_{prog_format}},
format => $_{prog_format},
date => time,
extension => FORMAT_EXTENSION->{$_{prog_format}},
format => $_{prog_format},