xowiki::require_parameter_page (public)

 xowiki::require_parameter_page -name name -package_id package_id \
    [ -parent_id parent_id ] [ -title title ] \
    [ -instance_attributes instance_attributes ] [ -form form ] \
    [ -publish_status publish_status ]

Defined in packages/xowiki/tcl/parameter-page-procs.tcl

Create or up update a parameter page. This is a convenience method to ease the interaction with parameter pages.

Switches:

-name

(required)

-package_id

(required)

-parent_id

(optional)

-title

(defaults to "Parameter Page") (optional)

-instance_attributes

(optional)

-form

(defaults to "en:Parameter.form") (optional)

-publish_status

(defaults to "production") (optional)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

create_folder_with_page

Source code:

    ::xo::Package require $package_id

    if {![info exists parent_id]} {
      set parent_id [::$package_id folder_id]
    }

    set item_id [::xo::db::CrClass lookup -name $name -parent_id $parent_id]
    if {$item_id == 0} {
      #
      # We have to create the parameter page new....
      # Get first the parameter form
      #
      set page [::$package_id get_page_from_item_ref  -use_prototype_pages true  -use_package_path true  -parent_id $parent_id  $form]
      if {$page eq ""} {
        error "cannot instantiate $form"
      }

      #ns_log notice FORM=[$page serialize]

      if {[$page publish_status] ne $publish_status} {
        ns_log notice "form $form: change publish_status -> $publish_status"
        ::xo::db::sql::content_item set_live_revision  -revision_id [::$page revision_id]  -publish_status $publish_status
      }

      set instance_vars [list title $title parent_id $parent_id  package_id $package_id  instance_attributes $instance_attributes]
      ad_try {
        ns_log notice "form $form: try to create form page $name"
        ::$page create_form_page_instance  -name $name  -package_id $package_id  -parent_id $parent_id  -nls_language en_US  -default_variables $instance_vars
      } on error {errorMsg} {
        error "cannot create instance named '$name' of form $form: $errorMsg\n$::errorInfo"
      } on ok {p} {
        ns_log notice "form $form: try to create form page $name DONE, do a save_new"
        $p save_new
        ns_log notice "form $form: try to create form page $name DONE, do a save_new DONE"
      }
    } else {
      #
      # The parameter page exists already. Get the old instance
      # attributes, add the new ones and save the page
      #
      set p [::xowiki::FormPage get_instance_from_db -item_id $item_id]
      $p title $title
      $p instance_attributes [dict merge [$p instance_attributes] $instance_attributes]
      $p save
      ns_log notice "form $form: updated parameter page saved."
    }

XQL Not present:

Generic, PostgreSQL, Oracle