Class ::xowiki::includelet::my-general-comments (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::my-general-comments

Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

List the general comments available for the current page.

Testcases:

No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::my-general-comments {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::my-general-comments instproc render {} {
    :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"
    }
  }
::xowiki::includelet::my-general-comments instparametercmd __decoration
::nsf::relation::set ::xowiki::includelet::my-general-comments superclass ::xowiki::Includelet

::nx::slotObj -container slot ::xowiki::includelet::my-general-comments
::xowiki::includelet::my-general-comments::slot eval {set :__parameter {{__decoration none}}}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::my-general-comments::slot::__decoration {set :accessor public
   set :configurable true
   set :convert false
   set :default none
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::my-general-comments
   set :incremental 0
   set :manager ::xowiki::includelet::my-general-comments::slot::__decoration
   set :methodname __decoration
   set :multiplicity 1..1
   set :name __decoration
   set :parameterSpec {-__decoration:substdefault none}
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

XQL Not present:

Generic, PostgreSQL, Oracle