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.426 -r1.427 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 15 Nov 2010 15:47:07 -0000 1.426 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 2 Feb 2011 22:16:27 -0000 1.427 @@ -2407,7 +2407,7 @@ PageInstance instproc widget_spec_from_folder_object {name given_template_name} { # get the widget field specifications from the payload of the folder object # for a field with a specified name in a specified page template - my msg WidgetSpecs=[$package_id get_parameter WidgetSpecs] + my instvar package_id foreach {s widget_spec} [$package_id get_parameter WidgetSpecs] { foreach {template_name var_name} [split $s ,] break #ns_log notice "--w T.title = '$given_template_name' var=$name" @@ -2419,6 +2419,7 @@ } return "" } + PageInstance instproc get_field_type {name default_spec} { my instvar page_template # get widget spec from folder (highest priority)