Foorum::ResultSet::Comment - Foorum Comment System
# get comments my ($view_mode) = ( $c->req->path =~ /\/view_mode=(thread|flat)(\/|$)/ ); my ($comment_id) = ( $c->req->path =~ /\/comment_id=(\d+)(\/|$)/ ); ( $c->stash->{comments}, $c->stash->{comments_pager} ) = $c->model('DBIC::Comment')->get_comments_by_object( { object_type => 'topic', object_id => $topic_id, page => $page, view_mode => $view_mode, comment_id => $comment_id, } );
Usually it's used in Topic or User page, to show the comments up. opts:
object_type => 'topic', # or 'user_profile' object_type => $topic_id, # or $user_id, page => $page, # show which page rows => 20, # optional, default as c.config.per_page.topic || 10; view_mode => 'flat', # flat or thread comment_id => $comment_id, # for URL like /topic/$topic_id/comment_id=12/ # go comment_id=12's page
That's mainly for thread mode. when comment_id=2's reply_to=1, that means comment_id=2 is the child of comment_id=1. meanwhile comment_id=3's reply_to=2, when we get children of comment_id=1, that's included too.
For get_comment_by_object and remove_children using.
just get the @comments from table. no other action. with upload and text filtered.
get one comment. attrs:
with_text => 1, # get the $comment->{text} filtered.
remove all comments belong to one certain object.
check the CONCEPT above.
remove one comment with upload and others.
Fayland Lam <fayland at gmail.com>
To install Foorum, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Foorum
CPAN shell
perl -MCPAN -e shell install Foorum
For more information on module installation, please visit the detailed CPAN module installation guide.