diff options
author | Dave Arter <davea@mysociety.org> | 2016-09-19 17:58:22 +0100 |
---|---|---|
committer | Dave Arter <davea@mysociety.org> | 2016-09-23 14:46:52 +0100 |
commit | 8471a8500e081d812e8e63d644d7bdcdf1a793ce (patch) | |
tree | 05bcd5d6ed9c089a516377615870028af4146d96 /perllib/FixMyStreet/DB/Result | |
parent | ceb96bff41e318d439d3c1e3957d79bb874e4ed1 (diff) |
Update user reputation when inspecting report
Diffstat (limited to 'perllib/FixMyStreet/DB/Result')
-rw-r--r-- | perllib/FixMyStreet/DB/Result/User.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm index 405d9e920..8d42d5926 100644 --- a/perllib/FixMyStreet/DB/Result/User.pm +++ b/perllib/FixMyStreet/DB/Result/User.pm @@ -378,4 +378,12 @@ sub is_planned_report { return $self->active_planned_reports->find({ id => $problem->id }); } +sub update_reputation { + my ( $self, $change ) = @_; + + my $reputation = $self->get_extra_metadata('reputation') || 0; + $self->set_extra_metadata( reputation => $reputation + $change); + $self->update; +} + 1; |