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.3 -r1.4
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	19 Jan 2002 03:55:16 -0000	1.3
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	13 Sep 2002 10:54:05 -0000	1.4
@@ -98,3 +98,23 @@
     transform::$type $value_ref
   }
 }
+
+ad_proc -public template::data::validate::user { value_ref message_ref } {
+    A data type that works with the 'user' widget. It allows you to
+    search for a particular user when a dropdown would get too big.
+} {
+
+    upvar 2 $message_ref message $value_ref value
+
+    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] && ![regexp {^[0-9]*$} $value] } {
+        set result 0
+        set message "Please pick a user from the result of your search."
+    } else {
+        set result 1
+    }
+
+    return $result 
+}