Class ::xowiki::includelet::unresolved-references (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::unresolved-references

Defined in /var/www/openacs.org/packages/xowiki/tcl/includelet-procs.tcl

List the pages with unresolved references in the current xowiki/xowf package. This is intended for use by admins.

Testcases:

No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::unresolved-references {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::unresolved-references instproc render {} {
    :get_parameters

    #
    # Get all unresolved references from this package
    #
    set unresolved_references [xo::dc list_of_lists _ {
      select page, name, o.package_id
      from xowiki_unresolved_references, acs_objects o
      where page = o.object_id
      and o.package_id = :package_id
      and link_type = 'link'
    }]

    set entries_with_unresolved_items {}
    foreach tuple $unresolved_references {
      lassign $tuple page name

      set pageObject [::xo::db::CrClass get_instance_from_db -item_id $page]

      #
      # Skip ::xowiki::Object instances.
      #
      if {[$page info class] eq "::xowiki::Object"} {
        continue
      }

      lappend entries_with_unresolved_items "<a href='[ns_quotehtml [$page pretty_link]]'>[ns_quotehtml [$page name]]</a> contains unresolved reference: $name"
    }
    if {[llength $entries_with_unresolved_items] > 0} {
      #
      # Return the pages with unresolved references in form of an
      # unordered list.
      #
      return <ul><li>[join [lsort -dictionary $entries_with_unresolved_items] </li><li>]</li></ul>
    } else {
      return "<ul><li>[_ acs-subsite.none]/li></ul>"
    }
  }
::xowiki::includelet::unresolved-references instparametercmd __decoration
::nsf::relation::set ::xowiki::includelet::unresolved-references superclass ::xowiki::Includelet

::nx::slotObj -container slot ::xowiki::includelet::unresolved-references
::xowiki::includelet::unresolved-references::slot eval {set :__parameter {{__decoration none}}}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::unresolved-references::slot::__decoration {set :accessor public
   set :configurable true
   set :convert false
   set :default none
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::unresolved-references
   set :incremental 0
   set :manager ::xowiki::includelet::unresolved-references::slot::__decoration
   set :methodname __decoration
   set :multiplicity 1..1
   set :name __decoration
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

XQL Not present:

Generic, PostgreSQL, Oracle