Class ::xowiki::includelet::community-link

::xowiki::includelet::community-link[i] create ... \
           [ -__decoration (default "none") ] \
           [ -parameter_declaration (default " {-text ""} {-url ""} ") ]

Include a link to the community including the current page. This includelet is designed to work with dotlrn.
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::community-link \
     -superclass ::xowiki::Includelet

Methods (to be applied on instances)

  • __decoration (setter)

  • parameter_declaration (setter)

  • render (scripted)

    :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>}]
    }