浏览代码

fix making private posts

George S. Baugh 4 年之前
父节点
当前提交
ea69471a49
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      lib/Trog/DataModule.pm

+ 1 - 0
lib/Trog/DataModule.pm

@@ -294,6 +294,7 @@ sub _process ($post) {
 
     # Handle acls/tags
     $post->{tags} //= [];
+    $post->{acls} //= [];
     @{$post->{tags}} = grep { my $subj = $_; !grep { $_ eq $subj} qw{public private unlisted} } @{$post->{tags}};
     push(@{$post->{tags}}, @{$post->{acls}}) if $post->{visibility} eq 'private';
     delete $post->{acls};