Class ::xowiki::includelet::community-link (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::community-link

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

Include a link to the community including the current page. This includelet is designed to work with dotlrn.

Testcases:

No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::community-link {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::community-link instproc render {} {
        :get_parameters
        if {[info commands ::dotlrn_community::get_community_id] ne ""} {
          set community_id [::dotlrn_community::get_community_id]
          set base_url [dotlrn_community::get_community_url $community_id]

          return [subst {<a href="$base_url/$url">[ns_quotehtml $text]</a>}]
        }
      }
::xowiki::includelet::community-link instparametercmd __decoration
::xowiki::includelet::community-link instparametercmd parameter_declaration
::nsf::relation::set ::xowiki::includelet::community-link superclass ::xowiki::Includelet

::nx::slotObj -container slot ::xowiki::includelet::community-link
::xowiki::includelet::community-link::slot eval {set :__parameter {
        {__decoration none}
        {parameter_declaration {
          {-text ""}
          {-url ""}
        }}
      }}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::community-link::slot::parameter_declaration {set :accessor public
   set :configurable true
   set :convert false
   set :default {
          {-text ""}
          {-url ""}
        }
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::community-link
   set :incremental 0
   set :manager ::xowiki::includelet::community-link::slot::parameter_declaration
   set :methodname parameter_declaration
   set :multiplicity 1..1
   set :name parameter_declaration
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

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

XQL Not present:

Generic, PostgreSQL, Oracle