Changeset 0b372aa

Timestamp:

Sep 19, 2011, 1:31:35 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Children:

d35b6fa

Parents:

fd92f78

git-author:

Edward Z. Yang <ezyang@mit.edu> (07/15/11 21:48:50)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:35)

Message:

Show permalink for comments too.

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

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (3 diffs)

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

@@ -289 +289 @@
             }
 
+            my $link = $post->{actions}[0]{link};
+
             # Only handle post if it's new
             my $created_time = str2time($post->{created_time});
@@ -307 +309 @@
                     # serves as a canonical link to the post.  The {name}
                     # field should equal 'Comment'.
-                    permalink => $post->{actions}[0]{link},
+                    permalink => $link,
                    );
                 BarnOwl::queue_message($msg);
@@ -333 +335 @@
                         topic     => $topic,
                         time      => asctime(localtime $comment_time),
-                        permalink => "",
+                        permalink => $link,
                        );
                     BarnOwl::queue_message($msg);