Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	22 Feb 2006 12:33:53 -0000	1.7
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	5 Aug 2006 20:38:24 -0000	1.8
@@ -130,6 +130,18 @@
       }
   
   #
+  # for the time being, just a proc
+  #
+  proc get_user_name {uid} {
+    if {$uid ne "" && $uid != 0} {
+      acs_user::get -user_id $uid -array user
+      return "$user(first_names) $user(last_name)"
+    } else {
+      return nobody
+    }
+  }
+
+  #
   # define an abstract table
   #