Changeset 77d1ef1 for perl/modules/Facebook/lib/BarnOwl

Timestamp:

Sep 20, 2011, 11:15:31 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

4b23009

Parents:

44f585c

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/20/11 12:36:17)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:31)

Message:

Suppress interest groups for now.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (1 diff)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -184 +184 @@
         # No app invites, thanks! (XXX make configurable)
         if ($post->{type} eq 'link' && $post->{application}) {
+            next;
+        }
+
+        # XXX Filtering out interest groups for now
+        # A more reasonable strategy may be to show their
+        # posts, but not the comments.
+        if (defined $post->{from}{category}) {
             next;
         }