Disallow editing your own post after one week

1 files changed, 9 insertions, 3 deletions

diff --git a/lib/VNDB/Handler/Discussions.pm b/lib/VNDB/Handler/Discussions.pm
index e1645fd5..755d14c9 100644
--- a/lib/VNDB/Handler/Discussions.pm
+++ b/lib/VNDB/Handler/Discussions.pm
@@ -19,6 +19,13 @@ TUWF::register(
 );
 
 
+sub caneditpost {
+  my($self, $post) = @_;
+  return $self->authCan('boardmod') ||
+    ($self->authInfo->{id} && $post->{uid} == $self->authInfo->{id} && !$post->{hidden} && time()-$post->{date} < $self->{board_edit_time})
+}
+
+
 sub thread {
   my($self, $tid, $page) = @_;
   $page ||= 1;
@@ -63,7 +70,7 @@ sub thread {
         }
        end;
        td class => 'tc2';
-        if($self->authCan('boardmod') || $self->authInfo->{id} && $_->{uid} == $self->authInfo->{id} && !$_->{hidden}) {
+        if(caneditpost($self, $_)) {
           i class => 'edit';
            txt '< ';
            a href => "/t$tid.$_->{num}/edit", mt '_thread_editpost';
@@ -149,8 +156,7 @@ sub edit {
   # are we allowed to perform this action?
   return $self->htmlDenied if !$self->authCan('board')
     || ($tid && ($t->{locked} || $t->{hidden}) && !$self->authCan('boardmod'))
-    || ($num && $p->{uid} != $self->authInfo->{id} && !$self->authCan('boardmod'))
-    || ($num && $p->{hidden} && !$self->authCan('boardmod'));
+    || ($num && !caneditpost($self, $p));
 
   # check form etc...
   my $frm;