Index: openacs-4/packages/dotlrn/www/dotlrn-master-kelp.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master-kelp.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/dotlrn-master-kelp.tcl 30 Apr 2018 09:14:23 -0000 1.11
+++ openacs-4/packages/dotlrn/www/dotlrn-master-kelp.tcl 28 Jun 2018 11:54:02 -0000 1.12
@@ -154,7 +154,7 @@
if { [ad_conn untrusted_user_id] == 0 } {
set user_name {}
} else {
- set user_name [acs_user::get_element -user_id [ad_conn untrusted_user_id] -element name]
+ set user_name [person::name -person_id [ad_conn untrusted_user_id]]
}
if {(![info exists title] || $title eq "")} {
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.46 -r1.47
--- openacs-4/packages/dotlrn/www/dotlrn-master.tcl 30 Apr 2018 09:14:23 -0000 1.46
+++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl 28 Jun 2018 11:54:02 -0000 1.47
@@ -165,7 +165,7 @@
if { [ad_conn untrusted_user_id] == 0 } {
set user_name {}
} else {
- set user_name [acs_user::get_element -user_id [ad_conn untrusted_user_id] -element name]
+ set user_name [person::name -user_id [ad_conn untrusted_user_id]]
}
if {![info exists title] || $title eq ""} {
Index: openacs-4/packages/dotlrn/www/register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/register.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/dotlrn/www/register.tcl 21 Jan 2018 00:38:38 -0000 1.19
+++ openacs-4/packages/dotlrn/www/register.tcl 28 Jun 2018 11:54:02 -0000 1.20
@@ -79,21 +79,21 @@
}
"needs approval" {
dotlrn_community::add_user -member_state "needs approval" $community_id $user_id
-
-
+
+
# Following the same process as spam.tcl to email
# admins in bulk.
-
+
set segment_id [db_string select_admin_rel_segment_id {}]
set community_name [dotlrn_community::get_community_name $community_id]
set community_url "[parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL][dotlrn_community::get_community_url $community_id]"
-
+
set query [db_map bulk_mail_query]
- set full_name [acs_user::get_element -user_id $user_id -element name]
+ set full_name [person::name -user_id $user_id]
set email [party::email -party_id $user_id]
set subject "$full_name ($email) has requested to join $community_name."
-
+
set message "$full_name ($email) has requested to join $community_name.
Visit this link to approve or reject this request:
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.8 -r1.9
--- openacs-4/packages/dotlrn/www/weblog-new.tcl 19 Jan 2018 14:38:45 -0000 1.8
+++ openacs-4/packages/dotlrn/www/weblog-new.tcl 28 Jun 2018 11:54:02 -0000 1.9
@@ -34,7 +34,7 @@
if {![llength $existing_forum_ids]} {
#No existing weblog lets make them one.
- set user_name [acs_user::get_element -user_id $user_id -element name]
+ set user_name [person::name -user_id $user_id]
set name "[_ dotlrn.lt_Web_Log_for_user_name]"
set charter "[_ dotlrn.Public_Web_Log]"
set presentation_type "weblog"
Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.100 -r1.101
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 28 May 2018 13:13:00 -0000 1.100
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl 28 Jun 2018 11:54:02 -0000 1.101
@@ -281,7 +281,7 @@
One time user-specific init
} {
# Message lookups below need variable user_name
- set user_name [acs_user::get_element -user_id $user_id -element name]
+ set user_name [person::name -user_id $user_id]
# get the root folder of dotlrn file storage instance
set package_id [site_node_apm_integration::get_child_package_id \
@@ -365,7 +365,7 @@
} {
# reverse the logic done by add_user
# Message lookups below need variable user_name
- set user_name [acs_user::get_element -user_id $user_id -element name]
+ set user_name [person::name -user_id $user_id]
# get the root folder of this package instance
set package_id [site_node_apm_integration::get_child_package_id \
Index: openacs-4/packages/views/lib/views-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/views/lib/views-chunk.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/views/lib/views-chunk.tcl 7 Aug 2017 23:48:29 -0000 1.5
+++ openacs-4/packages/views/lib/views-chunk.tcl 28 Jun 2018 11:54:02 -0000 1.6
@@ -33,7 +33,7 @@
} else {
if {[info exists viewer_id]} {
if {$viewer_id ne ""} {
- set user_filter_label [acs_user::get_element -user_id $viewer_id -element name]
+ set user_filter_label [person::name -user_id $viewer_id]
} else {
set user_filter_label "Current User"
unset viewer_id