---

Class ::xowiki::includelet::unresolved-references

::xowiki::includelet::unresolved-references create ... \
           [ -__decoration (default "none") ]

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

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

Class Relations

• class: ::xowiki::IncludeletClass
• superclass: ::xowiki::Includelet

::xowiki::IncludeletClass create ::xowiki::includelet::unresolved-references \
     -superclass ::xowiki::Includelet

Methods (to be applied on instances)

• __decoration (setter)

• render (scripted)

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

---