---

Class ::xowiki::PageInstanceForm

::xowiki::PageInstanceForm create ... \
           [ -f.page_template (default "page_template:text(select)
            {label "Page Template"}
            {options \[xowiki::page_templates\]}") ] \
           [ -field_list (default "item_id name page_order page_template description nls_language") ] \
           [ -with_categories (default "false") ]

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::WikiForm

::xotcl::Class create ::xowiki::PageInstanceForm \
     -superclass ::xowiki::WikiForm

Methods (to be applied on instances)

• edit_data (scripted)

  return [next]

• f.page_template (setter)

• field_list (setter)

• new_data (scripted)

  set item_id [next]
  :set_submit_link_edit
  return $item_id

• set_submit_link_edit (scripted)

  set object_type [[${:data} info class] object_type]
  #:log "-- data=${:data} cl=[${:data} info class] object_type=$object_type"
  set item_id [${:data} set item_id]
  set page_template [${:data} form_parameter page_template]
  if {[${:data} exists_query_parameter return_url]} {
    set return_url [${:data} query_parameter return_url:localurl]
  }
  :submit_link [${:data} pretty_link -query [export_vars {
    {m edit} page_template return_url item_id
  }]]
  # :log "-- submit_link = [:submit_link]"

• tidy (scripted)

  # nothing

• with_categories (setter)

Variables

::xowiki::PageInstanceForm set __default_metaclass ::xotcl::Class
::xowiki::PageInstanceForm set __default_superclass ::xotcl::Object

---