- my ($self, $contest, $problem) = @_;
- $self->query('contest_has_problem_sth')->flat
-}
-
-sub job_list_orig {
- my ($self, %args) = @_;
- $args{page} //= 1;
- my $rs = $self->jobs->search(undef, {order_by => {-desc => 'me.id'}, prefetch => ['problem', 'owner', 'contest'], rows => JOBS_PER_PAGE, page => $args{page}});
- $rs = $rs->search({contest => $args{contest} || undef}) if exists $args{contest};
- $rs = $rs->search({'me.private'=> 0}) unless $args{private};
- $rs = $rs->search({'me.owner' => $args{owner}}) if $args{owner};
- $rs = $rs->search({problem => $args{problem}}) if $args{problem};
- $rs = $rs->search({result => $args{result}}) if defined $args{result};
- return {
- log => [map {
- my %params = $_->get_columns;
- $params{owner_name} = $_->owner->name;
- $params{problem_name} = $_->problem->name;
- $params{contest_name} = $_->contest->name if $params{contest};
- $params{results} &&= decode_json $params{results};
- $params{size} = length $params{source};
- delete $params{source};
- \%params
- } $rs->all],
- current_page => $rs->pager->current_page,
- maybe previous_page => $rs->pager->previous_page,
- maybe next_page => $rs->pager->next_page,
- maybe last_page => $rs->pager->last_page,
- }
-}
-
-sub job_entry_orig {
- my ($self, $id) = @_;
- my $job = $self->jobs->find($id, {prefetch => ['problem', 'owner', 'contest']});
- my %params = $job->get_columns;
- $params{owner_name} = $job->owner->name;
- $params{problem_name} = $job->problem->name;
- $params{contest_name} = $job->contest->name if $params{contest};
- $params{results} &&= decode_json $params{results};
- $params{size} = length $params{source};
- delete $params{source};
- \%params