---

Class ::xowiki::formfield::child_pages

::xowiki::formfield::child_pages create ... \
           [ -form form ] \
           [ -publish_status (default "all") ]

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::formfield::label

::xotcl::Class create ::xowiki::formfield::child_pages \
     -superclass ::xowiki::formfield::label

Methods (to be applied on instances)

• form (setter)

• initialize (scripted)

  next
  #
  # for now, we allow just FormPages as child_pages
  #
  if {![info exists :form]} { return }
  set :package_id [${:object} package_id]
  set :form_objs [::${:package_id} instantiate_forms  -parent_id [${:object} parent_id]  -default_lang [${:object} lang]  -forms [:form]]

• pretty_value (scripted)

  if {[info exists :form_objs]} {
    set count 0
    foreach form ${:form_objs} {
      incr count [$form count_usages  -package_id ${:package_id}  -parent_id [${:object} item_id]  -publish_status ${:publish_status}]
    }
    return $count
  } else {
    return 0-NULL
  }

• publish_status (setter)

---