# Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-03-05 13:11:39
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dAEmtAexvUaNXLgYz2rNEg
-our $VERSION = '5999.000_011';
+our $VERSION = '5999.000_012';
use Lingua::EN::Inflect qw/PL_N/;
use JSON::MaybeXS qw/decode_json/;
}
sub user_list {
- my $rs = $_[0]->users->search(undef, {order_by => 'name', columns => USER_PUBLIC_COLUMNS});
- [ map { { $_->get_columns } } $rs->all ]
+ my $rs = $_[0]->users->search(undef, {columns => USER_PUBLIC_COLUMNS, prefetch => [qw/problem_statuses contest_statuses/]} );
+ [ sort { $b->{solved} <=> $a->{solved} or $b->{attempted} <=> $a->{attempted} } map { ## no critic (ProhibitReverseSort)
+ my $solved = $_->problem_statuses->count(solved => 1);
+ my $attempted = $_->problem_statuses->count(solved => 0);
+ my $contests = $_->contest_statuses->count;
+ +{ $_->get_columns, solved => $solved, attempted => $attempted, contests => $contests }
+ } $rs->all ]
}
sub user_entry {