Fix #84: correctly filter users posts

lib/Trog/Data/DUMMY.pm

@@ -123,8 +123,9 @@ sub get ($self, %request) {
 
     # Next, handle the query, tags and ACLs
     @filtered = grep { my $tags = $_->{tags}; grep { my $t = $_; grep {$t eq $_ } @{$request{tags}} } @$tags } @filtered if @{$request{tags}};
-    @filtered = grep { my $tags = $_->{tags}; grep { my $t = $_; grep {$t eq $_ } @{$request{acls}} } @$tags } @filtered unless grep { $_ eq 'admin' } @{$request{acls}};    
+    @filtered = grep { my $tags = $_->{tags}; grep { my $t = $_; grep {$t eq $_ } @{$request{acls}} } @$tags } @filtered unless grep { $_ eq 'admin' } @{$request{acls}};
     @filtered = grep { $_->{data} =~ m/\Q$request{like}\E/i } @filtered if $request{like};
+
     @filtered = grep { $_->{user} eq $request{author} } @filtered if $request{author};
 
     # Finally, paginate

lib/Trog/Routes/HTML.pm

@@ -667,7 +667,7 @@ sub posts ($query, $render_cb) {
     if ($query->{id} && @$posts && grep { $_ eq 'about'} @{$posts->[0]->{tags}} ) {
         my $user = shift(@$posts);
         my $id = delete $query->{id};
-        $query->{author} = $query->{user};
+        $query->{author} = $user->{user};
         ($pages, $posts) = _post_helper($query, [], $query->{acls});
         @$posts = grep { $_->{id} ne $id } @$posts;
         unshift @$posts, $user;