---

Class ::xowiki::formfield::grading_scheme

::xowiki::formfield::grading_scheme create ...

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::formfield::select

::xotcl::Class create ::xowiki::formfield::grading_scheme \
     -superclass ::xowiki::formfield::select

Methods (to be applied on instances)

• initialize (scripted)

  if {${:__state} ne "after_specs"} return
  
  set t1 [clock clicks -milliseconds]
  ::xowf::test_item::grading::load_grading_schemes  -package_id [${:object} package_id]  -parent_id [${:object} parent_id]
  
  set :options [lsort [lmap gso [::xowf::test_item::grading::Grading info instances -closure] {
    set grading [namespace tail $gso]
    list [$gso cget -title] $grading
  }]]
  #ns_log notice "#### available grading_scheme_objs (took [expr {[clock clicks -milliseconds]-$t1}]ms)\n[join [lsort ${:options}] \n]"
  next
  
  set :__initialized 1

---