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.45 -r1.46 --- openacs-4/packages/ams/tcl/ams-procs.tcl 31 Mar 2006 22:08:00 -0000 1.45 +++ openacs-4/packages/ams/tcl/ams-procs.tcl 5 Apr 2006 19:20:46 -0000 1.46 @@ -52,11 +52,15 @@ } { get the help_text of an attribute. } { - set help_text [lang::util::localize "#acs-translations.ams_attribute_${attribute_id}_help_text#"] - if {[string match "MESSAGE KEY MISSING*" $help_text]} { + if { $attribute_id eq "" } { return "" } else { - return $help_text + set help_text [lang::util::localize "#acs-translations.ams_attribute_${attribute_id}_help_text#"] + if {[string match "MESSAGE KEY MISSING*" $help_text]} { + return "" + } else { + return $help_text + } } } @@ -133,9 +137,9 @@ set edit_url "" } return $edit_url - } +} - ad_proc -public ams::util::localize_and_sort_list_of_lists { +ad_proc -public ams::util::localize_and_sort_list_of_lists { {-list} {-position "0"} } {