Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.34 -r1.35 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 14 May 2006 20:03:53 -0000 1.34 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 19 May 2006 11:23:16 -0000 1.35 @@ -732,6 +732,21 @@ set content [my substitute_markup [my set text]] } + Page instproc get_rich_text_spec {field_name default} { + set spec "" + foreach {s widget_spec} [[my set parent_id] get_payload widget_specs] { + foreach {page_name var_name} [split $s ,] break + #ns_log notice "--w T.name = '[my set name]' var=$page_name, $var_name $field_name []" + if {[string match $page_name [my set name]] && + [string match $var_name $field_name]} { + set spec $widget_spec + break + } + } + if {$spec eq ""} {return $default} + return $field_name:$spec + } + Page instproc update_references {page_id references} { db_dml delete_references \ "delete from xowiki_references where page = $page_id"