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.24 -r1.25
--- openacs-4/packages/ams/tcl/ams-procs.tcl	6 Oct 2005 22:24:41 -0000	1.24
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	23 Oct 2005 10:45:58 -0000	1.25
@@ -421,8 +421,8 @@
 
 ad_proc -public ams::value {
     -object_id:required
-    -attribute_id
-    -attribute_name
+    {-attribute_id ""}
+    {-attribute_name ""}
     {-format "html"}
     {-locale ""}
 } {
@@ -471,6 +471,7 @@
     } else {
 	set where_clause "and aa.attribute_name = :attribute_name"
     }
+    
     if {[db_0or1row select_value {}]} {
 	return [ams::widget -widget $widget -request "value_${format}" -attribute_name $attribute_name -attribute_id $attribute_id -value $value -locale $locale]
     } else {
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.10 -r1.11
--- openacs-4/packages/ams/tcl/ams-widget-procs.tcl	9 Sep 2005 14:06:12 -0000	1.10
+++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl	23 Oct 2005 10:45:58 -0000	1.11
@@ -893,7 +893,8 @@
 	    return ${value}
 	}
         value_html {
-	    return [ad_html_text_convert -from "text/plain" -to "text/html" -- ${value}]
+#	    return [ad_html_text_convert -from "text/plain" -to "text/html" -- ${value}]
+	    return ${value}
 	}
         csv_value {
 	    # not yet implemented
@@ -969,7 +970,8 @@
 	    return ${value}
 	}
         value_html {
-	    return [ad_html_text_convert -from "text/plain" -to "text/html" -- ${value}]
+#	    return [ad_html_text_convert -from "text/plain" -to "text/html" -- ${value}]
+	    return ${value}
 	}
         csv_value {
 	    # not yet implemented