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 -N -r1.99 -r1.100
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	11 Apr 2018 21:50:05 -0000	1.99
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 May 2018 13:13:00 -0000	1.100
@@ -283,13 +283,6 @@
         # Message lookups below need variable user_name
         set user_name [acs_user::get_element -user_id $user_id -element name]
 
-        # get the name of the user to stick in the folder name
-        set user_name [db_string select_user_name {
-            select first_names || ' ' || last_name
-            from persons
-            where person_id = :user_id
-        }]
-
         # get the root folder of dotlrn file storage instance
         set package_id [site_node_apm_integration::get_child_package_id \
             -package_id [dotlrn::get_package_id] \
@@ -374,13 +367,6 @@
         # Message lookups below need variable user_name
         set user_name [acs_user::get_element -user_id $user_id -element name]
 
-        # get the folder name we used for this user
-        set user_name [db_string select_user_name {
-            select first_names || ' ' || last_name
-            from persons
-            where person_id = :user_id
-        }]
-
         # get the root folder of this package instance
         set package_id [site_node_apm_integration::get_child_package_id \
             -package_id [dotlrn::get_package_id] \