Index: openacs-4/packages/ams/tcl/ams-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v diff -u -r1.33 -r1.34 --- openacs-4/packages/ams/tcl/ams-procs.tcl 1 Dec 2005 11:01:07 -0000 1.33 +++ openacs-4/packages/ams/tcl/ams-procs.tcl 15 Dec 2005 22:50:16 -0000 1.34 @@ -370,9 +370,14 @@ # Control list to know which attributes are already in the # elements list so we don't en up with duplicates set control_list [list] + + # If we do not have a list_id then don't bother to try and get any attributes... + if {[string eq "" $list_ids]} { + set all_attributes [list] + } else { + set all_attributes [db_list_of_lists select_elements " "] + } - set all_attributes [db_list_of_lists select_elements " "] - foreach attribute $all_attributes { set attribute_id [lindex $attribute 0] if { [string equal [lsearch $control_list $attribute_id] "-1"] } { Index: openacs-4/packages/ams/tcl/ams-widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-widget-procs.tcl,v diff -u -r1.16 -r1.17 --- openacs-4/packages/ams/tcl/ams-widget-procs.tcl 1 Dec 2005 11:01:07 -0000 1.16 +++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl 15 Dec 2005 22:50:16 -0000 1.17 @@ -1510,7 +1510,6 @@ switch $value { "TRUE" {set value "t" } "FALSE" {set value "f" } - default {set value "#acs-translations.organization_[set attribute]_$value#"} } set option_id [db_string get_option {select option_id from ams_option_types where attribute_id = :attribute_id and option = :value} \ -default {}]