--- loncom/LONCAPA.pm	2006/11/22 19:58:29	1.14
+++ loncom/LONCAPA.pm	2006/11/27 16:34:38	1.15
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.14 2006/11/22 19:58:29 albertel Exp $
+# $Id: LONCAPA.pm,v 1.15 2006/11/27 16:34:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -201,10 +201,9 @@ sub untie_domain_hash {
 sub tie_user_hash {
     my ($domain,$user,$namespace,$how,$loghead,$what) = @_;
 
-    $namespace=~s/\//\_/g;	# / -> _
-    $namespace=~s/\W//g;		# whitespace eliminated.
-    my $proname     = &propath($domain, $user);
-
+    $namespace=~s{/}{_}g;	# / -> _
+    $namespace     = &clean_username($namespace);
+    my $proname    = &propath($domain, $user);
     my $file_prefix="$proname/$namespace";
     return &_locking_hash_tie($file_prefix,$namespace,$how,$loghead,$what);
 }