Class ::xowiki::includelet::create-item-button (public)

 ::xowiki::IncludeletClass ::xowiki::includelet::create-item-button

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

Button to create a new page based on the current one

Testcases:

No testcase defined.

Source code:

namespace eval ::xowiki::includelet {}
::nsf::object::alloc ::xowiki::IncludeletClass ::xowiki::includelet::create-item-button {set :__default_metaclass ::xotcl::Class
   set :__default_superclass ::xotcl::Object
   set :aggregating false
   set :cacheable false
   set :localized true
   set :personalized true}
::xowiki::includelet::create-item-button instproc render {} {
    :get_parameters
    set page [:get_page page_id]
    set page_order [::xowiki::utility incr_page_order [$page page_order]]
    if {[$page istype ::xowiki::FormPage]} {
      set template [$page page_template]
      return [:render_button  -page $template -method create-new -package_id $package_id  -title [_ xowiki.create_new_entry_of_type [list type [$template title]]]  -alt $alt -page_order $page_order  -return_url ${:return_url}]
    } else {
      set object_type [${:__including_page} info class]
      return [:render_button  -page $package_id -method edit_new -package_id $package_id  -title [_ xowiki.create_new_entry_of_type [list type $object_type]]  -alt $alt -page_order $page_order  -return_url ${:return_url}  -object_type $object_type]
    }
  }
::xowiki::includelet::create-item-button instparametercmd __decoration
::xowiki::includelet::create-item-button instparametercmd parameter_declaration
::nsf::relation::set ::xowiki::includelet::create-item-button superclass ::xowiki::includelet::item-button

::nx::slotObj -container slot ::xowiki::includelet::create-item-button
::xowiki::includelet::create-item-button::slot eval {set :__parameter {
        {__decoration none}
        {parameter_declaration {
          {-page_id}
          {-alt "new"}
          {-book_mode false}
        }}
      }}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::create-item-button::slot::parameter_declaration {set :accessor public
   set :configurable true
   set :convert false
   set :default {
          {-page_id}
          {-alt "new"}
          {-book_mode false}
        }
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::create-item-button
   set :incremental 0
   set :manager ::xowiki::includelet::create-item-button::slot::parameter_declaration
   set :methodname parameter_declaration
   set :multiplicity 1..1
   set :name parameter_declaration
   set :parameterSpec {-parameter_declaration:substdefault {
          {-page_id}
          {-alt "new"}
          {-book_mode false}
        }}
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

::nsf::object::alloc ::xotcl::Attribute ::xowiki::includelet::create-item-button::slot::__decoration {set :accessor public
   set :configurable true
   set :convert false
   set :default none
   set :defaultmethods {}
   set :disposition alias
   set :domain ::xowiki::includelet::create-item-button
   set :incremental 0
   set :manager ::xowiki::includelet::create-item-button::slot::__decoration
   set :methodname __decoration
   set :multiplicity 1..1
   set :name __decoration
   set :parameterSpec {-__decoration:substdefault none}
   set :per-object false
   set :position 0
   set :required false
   set :substdefault 0b111
   set :trace none
   : init}

XQL Not present:

Generic, PostgreSQL, Oracle