Index: openacs-4/packages/dotlrn/www/dotlrn-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.tcl,v diff -u -r1.27 -r1.28 --- openacs-4/packages/dotlrn/www/dotlrn-master.tcl 24 Oct 2003 13:02:32 -0000 1.27 +++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl 12 Nov 2003 10:12:51 -0000 1.28 @@ -185,7 +185,7 @@ # Set up some basic stuff set user_id [ad_get_user_id] -set user_name "[dotlrn::get_user_name $user_id]" +set user_name [acs_user::get_element -user_id $user_id -element name] if {![exists_and_not_null title]} { set title [ad_system_name] Index: openacs-4/packages/dotlrn/www/register.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/register.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/dotlrn/www/register.tcl 27 Oct 2003 14:31:15 -0000 1.11 +++ openacs-4/packages/dotlrn/www/register.tcl 12 Nov 2003 10:12:51 -0000 1.12 @@ -75,7 +75,7 @@ set query [db_map bulk_mail_query] - set full_name "[dotlrn::get_user_name $user_id]" + set full_name [acs_user::get_element -user_id $user_id -element name] set email "[cc_email_from_party $user_id]" set subject "$full_name ($email) has requested to join $community_name." Index: openacs-4/packages/dotlrn/www/weblog-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/weblog-new.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/weblog-new.tcl 4 Dec 2002 09:51:04 -0000 1.2 +++ openacs-4/packages/dotlrn/www/weblog-new.tcl 12 Nov 2003 10:12:51 -0000 1.3 @@ -34,7 +34,7 @@ if {![llength $existing_forum_ids]} { #No existing weblog lets make them one. - set user_name [dotlrn::get_user_name $user_id] + set user_name [acs_user::get_element -user_id $user_id -element name] set name "[_ dotlrn.lt_Web_Log_for_user_name]" set charter "[_ dotlrn.Public_Web_Log]" set presentation_type "weblog"