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-references

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

  • ::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-references[i]
          Meta-class:
          ::xowiki::IncludeletClass[i]
          Parameter for instances:
          __decoration (default "none")
          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-references \
     -superclass ::xowiki::Includelet \
     -parameter {{__decoration none}}

Methods

  • instproc render

    ::2458834 instproc render {} {
        my get_parameters
        my instvar __including_page
    
        set item_id [$__including_page item_id] 
        set refs [list]
        # The same image might be linked both, as img or file on one page, 
        # so we need DISTINCT.
    
        db_foreach [my qn get_references] "SELECT DISTINCT page,ci.name,ci.parent_id,o.package_id as pid  from xowiki_references,cr_items ci,acs_objects o  where reference=$item_id and ci.item_id = page and ci.item_id = o.object_id" {
              if {$pid eq ""} {
                # in version less then oacs 5.2, this returns empty
                set pid [::xo::db_string _ {select package_id from cr_folders where folder_id = :parent_id}]
              }
              if {$pid ne ""} {
                ::xowiki::Package require $pid
                lappend refs "<a href='[$pid pretty_link -parent_id $parent_id $name]'>$name</a>"
              }
            }
        set references [join $refs ", "]
    
        array set lang {found "" undefined ""}
        foreach i [$__including_page array names lang_links] {
          set lang($i) [join [$__including_page set lang_links($i)] ", "]
        }
    
        append references " " $lang(found)
        set result ""
        if {$references ne " "} {
          append result "References to this Page: $references"
        }
        if {$lang(undefined) ne ""} {
          append result "Create this page in a different language $lang(undefined)"
        }
        return $result
      }
    

Variables

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

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