xowiki::Package proc is_xowiki_p (public)

 xowiki::Package is_xowiki_p package_id

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

A small stunt to detect if a package is a descendant of xowiki.

Parameters:

package_id (required)

Returns:

boolean

Testcases:

parameter__check_procs

Source code:

set xowiki_p false
set package_key [apm_package_key_from_id $package_id]
set package_class [::xo::PackageMgr get_package_class_from_package_key $package_key]
if {$package_class ne ""} {
  # we found an xo::Package, but is it an xowiki package?
  set classes [list $package_class {*}[$package_class info heritage]]
  if {"::xowiki::Package" in $classes} {
    set xowiki_p true
  }
}
return $xowiki_p

XQL Not present:

Generic, PostgreSQL, Oracle