---

Class ::xo::Package

::xo::Package create ... \
           [ -context (default "::xo::cc") ] \
           [ -force_refresh_login (default "false") ] \
           [ -id:integer id:integer ] \
           [ -package_url package_url ] \
           [ -url url ]

Defined in

Class Relations

• class: ::xo::PackageMgr
• superclass: ::xo::db::Object
• subclass: ::xo::oauth::Package, ::xowiki::Package

::xo::PackageMgr create ::xo::Package \
     -superclass ::xo::db::Object

Methods (to be applied on instances)

• initialize (scripted)

   <instance of xo::Package> initialize

  Testcases:

  create_form_with_form_instance, xowiki

  # Empty hook for OpenACS package level initialization.  This is
  # used e.g. by xowf for adding the work flow mixin classes.

• reply_to_user (scripted)

   <instance of xo::Package> reply_to_user

  Testcases:

  create_folder_with_page, xowf, create_workflow_with_instance, create_form_with_form_instance

  
  :handle_http_caching
  
  #:log "REPLY [::xo::cc exists __continuation]"
  if {[::xo::cc exists __continuation]} {
    #:log "REPLY [::xo::cc set __continuation]"
    eval [::xo::cc set __continuation]
  } else {
    if {[string length $text] > 1} {
      set default_status_code 200
    } else {
      set default_status_code 204
    }
    set status_code [expr {[::xo::cc exists status_code]
                           ? [::xo::cc set status_code]
                           : $default_status_code}]
    #:log "REPLY ${:delivery} $status_code ${:mime_type} - length: [string length $text] - [ad_conn peeraddr]"
    ${:delivery} $status_code ${:mime_type} $text
  }

• require_root_folder (scripted, public)

   <instance of xo::Package> require_root_folder \
      [ -parent_id parent_id ] [ -content_types content_types ] \
      -name name 

  Make sure, the root folder for the given package exists. If not, create it and register all allowed content types. Note that xowiki (and derived packages) define their own version of "require_root_folder" based on form pages. Therefore, this function is just for packages not based on xowiki.

  Switches:

  -parent_id (optional, defaults to "-100")

  -content_types (optional)

  -name (required)

  Returns:

  folder_id

  Testcases:

  xowiki_test_cases

  set folder_id [::xo::xotcl_package_cache eval root_folder-${:id} {
  
    set folder_id [::xo::db::CrClass lookup -name $name -parent_id $parent_id]
    if {$folder_id == 0} {
      :log "folder with name '$name' and parent $parent_id does NOT EXIST"
      set folder_id [::acs::dc call content_folder new  -name $name  -label ${:instance_name}  -parent_id $parent_id  -package_id ${:id}  -context_id ${:id}]
      :log "CREATED folder '$name' and parent $parent_id ==> $folder_id"
    }
  
    # Register all specified content types
    ::xo::db::CrFolder register_content_types  -folder_id $folder_id  -content_types $content_types
    #:log "returning from cache folder_id $folder_id"
    return $folder_id
  }]
  #:log "returning from require folder_id $folder_id"
  return $folder_id

Variables

::xo::Package set __default_metaclass ::xotcl::Class
::xo::Package set __default_superclass ::xotcl::Object
::xo::Package set abstract_p f
::xo::Package set auto_save false
::xo::Package array set db_constraints {}
::xo::Package array set db_slot \
       {default_locale ::xo::Package::slot::default_locale package_key \
       ::xo::Package::slot::package_key package_id ::xo::Package::slot::package_id instance_name \
       ::xo::Package::slot::instance_name}
::xo::Package set default_package_parameter_page_info {}
::xo::Package set default_package_parameters {}
::xo::Package set id_column package_id
::xo::Package set name_method {}
::xo::Package set object_type apm_package
::xo::Package set object_type_key 0000000000000101
::xo::Package set package_key apm_package
::xo::Package set pretty_name Package
::xo::Package set pretty_plural Package
::xo::Package set security_inherit_p t
::xo::Package set site_wide_package_parameter_page_info {}
::xo::Package set site_wide_package_parameters {}
::xo::Package set site_wide_pages {}
::xo::Package set sql_package_name ::xo::Package
::xo::Package set supertype acs_object
::xo::Package set table_name apm_packages
::xo::Package set with_table true

---