Changeset 8aa81172 for perl/modules


Ignore:
Timestamp:
Sep 20, 2011, 11:15:33 PM (10 years ago)
Author:
Edward Z. Yang <ezyang@mit.edu>
Branches:
master, release-1.9
Children:
1efafe7
Parents:
68c0afd
git-author:
Edward Z. Yang <ezyang@mit.edu> (07/15/11 21:48:50)
git-committer:
Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:33)
Message:
Show permalink for comments too.

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

Legend:

Unmodified
Added
Removed
  • perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

    r68c0afd r8aa81172  
    289289            }
    290290
     291            my $link = $post->{actions}[0]{link};
     292
    291293            # Only handle post if it's new
    292294            my $created_time = str2time($post->{created_time});
     
    307309                    # serves as a canonical link to the post.  The {name}
    308310                    # field should equal 'Comment'.
    309                     permalink => $post->{actions}[0]{link},
     311                    permalink => $link,
    310312                   );
    311313                BarnOwl::queue_message($msg);
     
    333335                        topic     => $topic,
    334336                        time      => asctime(localtime $comment_time),
    335                         permalink => "",
     337                        permalink => $link,
    336338                       );
    337339                    BarnOwl::queue_message($msg);
Note: See TracChangeset for help on using the changeset viewer.