---

Class ::xowiki::includelet::copy-item-button

::xowiki::includelet::copy-item-button create ... \
           [ -__decoration (default "none") ] \
           [ -parameter_declaration (default "
          {-page_id}
          {-alt "copy"}
          {-book_mode false}
        ") ]

Button to copy a page

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

Class Relations

• class: ::xowiki::IncludeletClass
• superclass: ::xowiki::includelet::item-button

::xowiki::IncludeletClass create ::xowiki::includelet::copy-item-button \
     -superclass ::xowiki::includelet::item-button

Methods (to be applied on instances)

• __decoration (setter)

• parameter_declaration (setter)

• render (scripted)

  :get_parameters
  set page [:get_page page_id]
  
  if {[$page istype ::xowiki::FormPage]} {
    set template [$page page_template]
    return [:render_button  -page $template -method create-new -package_id $package_id  -title [_ xowiki.copy_entry [list type [$template title]]]  -alt $alt -source_item_id [$page item_id]  -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.copy_entry [list type $object_type]]  -alt $alt -source_item_id [$page item_id]  -return_url ${:return_url}  -object_type $object_type]
  }

---