Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/categories/tcl/widget-procs.tcl	16 Feb 2005 02:43:15 -0000	1.12
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	24 Feb 2005 11:11:52 -0000	1.13
@@ -92,6 +92,12 @@
 	set tree_name [ad_quotehtml $tree_name]
 	set one_tree [list]
 
+        if { $require_category_p == "t" } { 
+            set required_mark "<span class=\"form-required-mark\">*</span>"
+        } else {
+            set required_mark {}
+        }
+
 	foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] {
 	    util_unlist $category category_id category_name deprecated_p level
 	    set category_name [ad_quotehtml $category_name]
@@ -102,7 +108,7 @@
 	}
 
         if { [llength $mapped_trees] > 1 } {
-            append output "<div class=\"categorySelect\"><div class=\"categoryTreeName\">$tree_name</div>"
+            append output "<div class=\"categorySelect\"><div class=\"categoryTreeName\">$tree_name$required_mark</div>"
 	}
 
 	if {$assign_single_p == "t" || $all_single_p} {