Fix names returned by standings

diff --git a/lib/Gruntmaster/Data/Result/Contest.pm b/lib/Gruntmaster/Data/Result/Contest.pm
index 4b1c1f4f288f8f1a0e9292deb01d58bb61711ed9..77ac716b8c6de2d9e45c7f380e6e8014611c023a 100644 (file)
--- a/lib/Gruntmaster/Data/Result/Contest.pm
+++ b/lib/Gruntmaster/Data/Result/Contest.pm
@@ -212,7 +212,7 @@ sub standings {
                $scores{$job->rawowner}{$job->rawproblem} = int ($factor * calc_score ($value, $time, $tries{$job->rawowner}{$job->rawproblem}++, $self->stop - $self->start));
        }
 
-       my %user_to_name = map { $_ => $_->name } $self->result_source->schema->users->all;
+       my %user_to_name = map { $_->id => $_->name } $self->result_source->schema->users->all;
 
        my @st = sort { $b->{score} <=> $a->{score} or $a->{user} cmp $b->{user} } map { ## no critic (ProhibitReverseSortBlock)
                my $user = $_;