Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.72 -r1.73
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	12 Nov 2003 10:08:35 -0000	1.72
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	12 Nov 2003 10:17:14 -0000	1.73
@@ -225,10 +225,14 @@
 	return [db_string select_user_portal_id {} -default ""]
     }
 
-    ad_proc -public get_user_name {
+    ad_proc -public -deprecated get_user_name {
 	user_id
     } {
-	Get the names the the user
+	Get the names the the user.
+        
+        Deprectead. Use acs_user::get_element -element name instead.
+
+        @see acs_user::get_element.
     } {
         return [acs_user::get_element -user_id $user_id -element name]
     }