X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FData%2FResult%2FContest.pm;h=4ea2f1ae988f189b76d074073c06105b9940ba47;hb=e6a01c9f7e096edf7fb3e53d6e32fcb043b7f29d;hp=e7b72259d7b10fc05c3736a7200347f4fd3405ea;hpb=be2f7678d7b65c497fe9d65b74b1b5bb4a47b496;p=gruntmaster-data.git diff --git a/lib/Gruntmaster/Data/Result/Contest.pm b/lib/Gruntmaster/Data/Result/Contest.pm index e7b7225..4ea2f1a 100644 --- a/lib/Gruntmaster/Data/Result/Contest.pm +++ b/lib/Gruntmaster/Data/Result/Contest.pm @@ -171,8 +171,15 @@ __PACKAGE__->many_to_many("problems", "contest_problems", "problem"); # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:54:00 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:IxxZqQwKisBwDabCNUD55Q +use Class::Method::Modifiers qw/after/; use List::Util qw/sum/; +after qw/insert update delete/ => sub { + my ($self) = @_; + Gruntmaster::Data::purge '/ct/'; + Gruntmaster::Data::purge '/ct/' . $self->id; +}; + sub is_pending { my ($self, $time) = @_; $self->start > ($time // time) @@ -228,7 +235,7 @@ sub standings { } } keys %scores; - $st[0]->{rank} = 1; + $st[0]->{rank} = 1 if @st; $st[$_]->{rank} = $st[$_ - 1]->{rank} + ($st[$_]->{score} < $st[$_ - 1]->{score}) for 1 .. $#st; @st }