---

::xowiki::IncludeletClass ::xowiki::includelet::my-categories

Class Hierarchy of ::xowiki::includelet::my-categories

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check, class^C, cleanup^C, configure^C, contains^C, copy^C, db_0or1row^C, db_1row^C, debug, defaultmethod^C, destroy^C, destroy_on_cleanup, ds, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch, forward, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass, ismetaclass, ismixin, isobject, istype, lappend^C, log, method, mixin^C, mixinguard^C, move^C, msg, noinit^C, objectparameter, parametercmd^C, proc, procsearch, qn, requireNamespace^C, residualargs^C, self, serialize, set^C, set_instance_vars_defaults, show-object, subst^C, trace^C, unknown, unset^C, uplevel^C, upvar^C, volatile^C, vwait

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  getExitHandler, setExitHandler, unsetExitHandler

• ::xo::Context

  Meta-class:

  ::xotcl::Class

  Parameter for instances:

  actual_query (default " "), locale, package_id (default "0"), parameter_declaration (default "")

  Methods for instances:

  exists_query_parameter, export_vars, get_all_query_parameter, get_parameters, initialize, original_url_and_query, process_query_parameter, query_parameter

  Methods to be applied on the class:

  Methods provided by the meta-class

• ::xowiki::Includelet

  Meta-class:

  ::xotcl::Class

  Parameter for instances:

  __decoration (default "portlet"), id, name (default ""), parameter_declaration (default ""), title (default "")

  Methods for instances:

  category_clause, get_page_order, include_head_entries, initialize, js_name, resolve_page_name, screen_name

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  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

• ::xowiki::includelet::my-categories

  Meta-class:

  ::xowiki::IncludeletClass

  Parameter for instances:

  __decoration (default "none"), parameter_declaration (default " {-summary 1} ")

  Methods for instances:

  render

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xowiki::Includelet

::xowiki::IncludeletClass create ::xowiki::includelet::my-categories \
     -superclass ::xowiki::Includelet \
     -parameter {{__decoration none} {parameter_declaration {
          {-summary 1}
        }}}

Methods

• instproc render

  ::522557 instproc render {} {
      my get_parameters
      my instvar __including_page
      set content ""
  
      set weblog_page [$package_id get_parameter weblog_page weblog]
      set entries [list]
      set href [$package_id package_url]$weblog_page?summary=$summary
      set notification_type ""
      if {[$package_id get_parameter "with_notifications" 1] &&
          [::xo::cc user_id] != 0} { ;# notifications require login
        set notification_type [notification::type::get_type_id -short_name xowiki_notif]
      }
      if {[$package_id exists_query_parameter return_url]} {
        set return_url [$package_id query_parameter return_url]
      }
      foreach cat_id [category::get_mapped_categories [$__including_page set item_id]] {
        foreach {category_id category_name tree_id tree_name} [category::get_data $cat_id] break
        #my log "--cat $cat_id $category_id $category_name $tree_id $tree_name"
        set entry "<a href='$href&amp;category_id=$category_id'>$category_name ($tree_name)</a>"
        if {$notification_type ne ""} {
          set notification_text "Subscribe category $category_name in tree $tree_name"
          set notifications_return_url [expr {[info exists return_url] ? $return_url : [ad_return_url]}]
          set notification_image  "<img style='border: 0px;' src='/resources/xowiki/email.png'  alt='$notification_text' title='$notification_text'>"
  
          set cat_notif_link [export_vars -base /notifications/request-new  {{return_url $notifications_return_url}  {pretty_name $notification_text}  {type_id $notification_type}  {object_id $category_id}}]
          append entry "<a href='$cat_notif_link'> "  "<img style='border: 0px;' src='/resources/xowiki/email.png' "  "alt='$notification_text' title='$notification_text'>" </a>
  
        }
        lappend entries $entry
      }
      if {[llength $entries]>0} {
        set content "Categories: [join $entries {, }]"
      }
      return $content
    }
  

Variables

::xowiki::includelet::my-categories set __default_metaclass ::xotcl::Class
::xowiki::includelet::my-categories set __default_superclass ::xotcl::Object
::xowiki::includelet::my-categories set aggregating false
::xowiki::includelet::my-categories set cacheable false
::xowiki::includelet::my-categories set localized true
::xowiki::includelet::my-categories set personalized true

---