---

Class ::xowiki::Link::language

::xowiki::Link::language create ... \
           [ -return_only return_only ]

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::Link

::xotcl::Class create ::xowiki::Link::language \
     -superclass ::xowiki::Link

Methods (to be applied on instances)

• render (scripted)

  set item_id [:resolve]
  if {$item_id} {
    set image_css_class "found"
    set link [::${:package_id} pretty_link  -lang ${:lang} -parent_id ${:parent_id}  -page $item_id  ${:stripped_name}]
  } else {
    set image_css_class "undefined"
    set last_page_id [${:page} set item_id]
    set object_type  [[${:page} info class] set object_type]
    set name ${:name}
    set link [::${:package_id} make_link ${:package_id}  edit-new object_type name last_page_id]
  }
  # :log "--lang_link=$link"
  if {[info exists :return_only] && ${:return_only} ne $image_css_class} {
    set link ""
  }
  if {$link ne ""} {
    ${:page} lappend lang_links($image_css_class)  "<a href='[ns_quotehtml $link]' [:mk_css_class_and_id]><img class='[ns_quotehtml $image_css_class]'  src='/resources/xowiki/flags/${:lang}.png' alt='${:lang}'></a>"
  }
  return ""

• return_only (setter)

---