xotcl.wu-wien.ac.at
Begin main content
Methods: Source: Variables:
[All Methods | Documented Methods | Hide Methods] [Display Source | Hide Source] [Show Variables | Hide Variables]

::xowiki::IncludeletClass[i] ::xowiki::includelet::my-categories

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

  • ::xotcl::Object[i]
    Meta-class:
    ::xotcl::Class[i]
    Methods for instances:
    __api_make_doc, __api_make_forward_doc, __timediff, abstract, ad_doc, ad_forward, ad_proc, appendC, arrayC, asHTML, autonameC, check, classC, cleanupC, configureC, containsC, copyC, db_0or1rowC, db_1rowC, debug, defaultmethodC, destroyC, destroy_on_cleanup, ds, evalC, existsC, extractConfigureArg, filterC, filterguardC, filtersearch, forward, hasclass, incrC, infoC, init, instvarC, invarC, isclass, ismetaclass, ismixin, isobject, istype, lappendC, log, method, mixinC, mixinguardC, moveC, msg, noinitC, objectparameter, parametercmdC, proc, procsearch, qn, requireNamespaceC, residualargsC, self, serialize, setC, set_instance_vars_defaults, show-object, substC, traceC, unknown, unsetC, uplevelC, upvarC, volatileC, vwait
    Methods to be applied on the class (in addition to the methods provided by the meta-class):
    getExitHandler, setExitHandler, unsetExitHandler
    • ::xo::Context[i]
      Meta-class:
      ::xotcl::Class[i]
      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[i]
        Meta-class:
        ::xotcl::Class[i]
        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[i]
          Meta-class:
          ::xowiki::IncludeletClass[i]
          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[i]
::xowiki::IncludeletClass create ::xowiki::includelet::my-categories \
     -superclass ::xowiki::Includelet \
     -parameter {{__decoration none} {parameter_declaration {
          {-summary 1}
        }}}

Methods

  • instproc render

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

Methods: Source: Variables:
[All Methods | Documented Methods | Hide Methods] [Display Source | Hide Source] [Show Variables | Hide Variables]