---

Class ::s5::Package

::s5::Package create ...

Class Relations

• class: ::xo::PackageMgr
• superclass: ::xowiki::Package

::xo::PackageMgr create ::s5::Package \
     -superclass ::xowiki::Package

Methods (to be applied on instances)

• init (scripted)

  set rich_text_spec {richtext(richtext),nospell,optional
    {label Content}
    {html {style {width: 100%}}}
    {options {editor xinha plugins {Stylist OacsFs} height 350px javascript {
   
   xinha_config.stylistLoadStylesheet('/resources/s5/s5-xinha.css');
  }}}}
  
  ::xo::cc set_parameter widget_specs [list *,text $rich_text_spec]
  next

• insert (scripted)

  set __table_name [[self class] table_name]
  set __id [[self class] id_column]
  set :$__id ${:object_id}
  :log "ID insert in $__table_name, id = $__id = [set :$__id]"
  next
  foreach {__slot_name __slot} [[self class] array get db_slot] {
    if {[info exists :$__slot_name]} {
      set $__slot_name [set :$__slot_name]
      lappend __vars $__slot_name
      lappend __atts [$__slot column_name]
    }
  }
  ::xo::dc dml insert_$__table_name "insert into $__table_name
    ([join $__atts ,]) values (:[join $__vars ,:])"

• package_id (setter)

---