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.5 -r1.6
--- openacs-4/packages/categories/tcl/widget-procs.tcl	3 Feb 2004 18:36:14 -0000	1.5
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	3 Feb 2004 21:13:21 -0000	1.6
@@ -39,6 +39,7 @@
     set tree_id {}
     set subtree_id {}
     set assign_single_p f
+    set require_category_p t
 
     if { [exists_and_not_null element(value)] && [llength $element(value)] == 2 } {
         # Legacy method for passing parameters
@@ -60,6 +61,9 @@
         if { [exists_and_not_null element(category_assign_single_p)] } {
             set assign_single_p $element(category_assign_single_p)
         }
+        if { [exists_and_not_null element(require_category_p)] } {
+            set assign_single_p $element(require_category_p)
+        }
     }
     if { [empty_string_p $package_id] } {
 	set package_id [ad_conn package_id]
@@ -102,7 +106,9 @@
 
 	if {$assign_single_p == "t" || $all_single_p} {
 	    # single-select widget
-	    set one_tree [concat [list [list "" ""]] $one_tree]
+            if { ![template::util::is_true $require_category_p] } {
+                set one_tree [concat [list [list "" ""]] $one_tree]
+            }
 	    append output [template::widget::menu $element(name) $one_tree $mapped_categories attributes $element(mode)]
 	} else {
 	    # multiselect widget (if user didn't override with single option)