1 files changed, 13 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/DB/Result/Comment.pm b/perllib/FixMyStreet/DB/Result/Comment.pm
index 6eefb30b2..7259087be 100644
--- a/perllib/FixMyStreet/DB/Result/Comment.pm
+++ b/perllib/FixMyStreet/DB/Result/Comment.pm
@@ -84,4 +84,17 @@ sub check_for_errors {
 
     return \%errors;
 }
+
+=head2 confirm
+
+Set state of comment to confirmed
+
+=cut
+
+sub confirm {
+    my $self = shift;
+
+    $self->state( 'confirmed' );
+    $self->confirmed( \'ms_current_timestamp()' );
+}
 1;