--- loncom/interface/loncreateuser.pm	2004/07/03 20:45:23	1.84
+++ loncom/interface/loncreateuser.pm	2004/07/19 17:58:10	1.85
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.84 2004/07/03 20:45:23 albertel Exp $
+# $Id: loncreateuser.pm,v 1.85 2004/07/19 17:58:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -174,8 +174,8 @@ sub print_user_modification_page {
     my $ccuname=$ENV{'form.ccuname'};
     my $ccdomain=$ENV{'form.ccdomain'};
 
-    $ccuname=~s/\W//gs;
-    $ccdomain=~s/\W//gs;
+    $ccuname=~s/[\W|_]//gs;
+    $ccdomain=~s/[\W|_]//gs;
 
     unless (($ccuname) && ($ccdomain)) {
 	&print_username_entry_form($r);