Purge affected pages on insert/update/delete

[gruntmaster-data.git] / lib / Gruntmaster / Data / Result / Problem.pm

diff --git a/lib/Gruntmaster/Data/Result/Problem.pm b/lib/Gruntmaster/Data/Result/Problem.pm
index 34c9d876571618c2c04c7cb170473b5249e184e2..fe5523d62ced72ae2b9fa3316a63244eeffdacfe 100644 (file)
--- a/lib/Gruntmaster/Data/Result/Problem.pm
+++ b/lib/Gruntmaster/Data/Result/Problem.pm
@@ -314,6 +314,14 @@ __PACKAGE__->many_to_many("contests", "contest_problems", "contest");
 # Created by DBIx::Class::Schema::Loader v0.07042 @ 2014-12-19 16:54:00
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:QZHyWOWaPmTm/EQ5M22CGA
 
+use Class::Method::Modifiers qw/after/;
+
+after qw/insert update delete/ => sub {
+       my ($self) = @_;
+       Gruntmaster::Data::purge '/pb/';
+       Gruntmaster::Data::purge '/pb/' . $self->id;
+};
+
 sub is_private {
        my ($self, $time) = @_;
        return 1 if $self->private;