Index: openacs-4/packages/acs-templating/tcl/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/data-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	13 Sep 2002 10:54:05 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	15 Sep 2002 07:54:42 -0000	1.5
@@ -109,6 +109,9 @@
     if { [info exists value] && [string equal $value ":other:"] } { 
         set result 0
         set message "Please search for user by name, email, or screen name."
+    } elseif { [info exists value] && [string equal $value ":noresult:"] } { 
+        set result 0
+        set message "Your search didn't find any users, please search again."
     } elseif { [info exists value] && ![regexp {^[0-9]*$} $value] } {
         set result 0
         set message "Please pick a user from the result of your search."
Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	14 Sep 2002 19:26:11 -0000	1.12
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	15 Sep 2002 07:54:42 -0000	1.13
@@ -409,7 +409,7 @@
 
   set output {}
 
-  if { [info exists element(value)] && [string equal $element(value) ":other:"] } {
+  if { [info exists element(value)] && ([string equal $element(value) ":other:"] || [string equal $element(value) ":noresult:"]) } {
       # input widget to search for users
 
       append output "<input name=\"$element(name)\""
@@ -439,9 +439,22 @@
       }
 
       set users_list [db_list_of_lists users $sql]
-      lappend users_list { "Search again..." ":other:" }
-
-      set output [template::widget::menu $element(name) $users_list "" attributes]
+      if { [llength $users_list] == 0 } {
+          append output "<input name=\"$element(name)\""
+          foreach name [array names attributes] {
+              if { [string equal $attributes($name) {}] } {
+                  append output " $name"
+              } else {
+                  append output " $name=\"$attributes($name)\""
+              }
+          }
+          set element(value) ":noresult:"
+      append output ">"
+          
+      } else {
+          lappend users_list { "Search again..." ":other:" }
+          set output [template::widget::menu $element(name) $users_list "" attributes]
+      }
   } else {
       # select widget to pick a known user
       set options $element(options)