%3 ::xowiki::Includelet ::xowiki::Includelet → available_includelets → describe_includelets → glob_clause → html_encode → html_id → html_to_text → js_encode → js_name → listing → locale_clause → parent_id_clause → publish_status_clause → require_YUI_CSS → require_YUI_JS category_clause get_current_folder get_page_order include_head_entries initialize js_name resolve_page_name screen_name tableWidget ::xo::Context ::xo::Context exists_query_parameter export_vars get_all_query_parameter get_parameters initialize original_url_and_query process_query_parameter query_parameter set_query_parameter unset_query_parameter ::xowiki::Includelet->::xo::Context ::xotcl::Object ::xotcl::Object ::xo::Context->::xotcl::Object ::xowiki::includelet::my-general-comments ::xowiki::includelet::my-general-comments render ::xowiki::includelet::my-general-comments->::xowiki::Includelet

Class ::xowiki::includelet::my-general-comments

::xowiki::includelet::my-general-comments[i] create ... \
           [ -__decoration (default "none") ]
List the general comments available for the current page.
Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

Class Relations

  • class: ::xowiki::IncludeletClass[i]
  • superclass: ::xowiki::Includelet[i]
::xowiki::IncludeletClass create ::xowiki::includelet::my-general-comments \
     -superclass ::xowiki::Includelet

Methods (to be applied on instances)

  • __decoration (setter)

  • render (scripted)
    

    :get_parameters
set item_id [${:__including_page} item_id]
set gc_return_url [::$package_id url]
#
# Even, if general_comments is turned on, don't offer the
# link to add comments, unless the user is logged in.
# Otherwise, this attracts spammers and search bots
#
if {[::xo::cc user_id] != 0} {
  set gc_link [general_comments_create_link  -object_name [${:__including_page} title]  $item_id $gc_return_url]
  set gc_link <p>$gc_link</p>
} else {
  set gc_link ""
}
set gc_comments [general_comments_get_comments $item_id $gc_return_url]
if {$gc_comments ne ""} {
  return "<p>#general-comments.Comments#</p><ul>$gc_comments</ul>$gc_link"
} else {
  return "$gc_link"
}