--- loncom/LONCAPA.pm	2006/12/09 23:33:56	1.19
+++ loncom/LONCAPA.pm	2006/12/09 23:34:42	1.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.19 2006/12/09 23:33:56 albertel Exp $
+# $Id: LONCAPA.pm,v 1.20 2006/12/09 23:34:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -110,7 +110,7 @@ sub clean_domain {
     return $domain;
 }
 
-$match_username     = $LONCAPA::username_re     = qr{[a-zA-Z\_][\w\-.]+};
+$match_username     = $LONCAPA::username_re     = qr{[\w\-.]+};
 $match_not_username = $LONCAPA::not_username_re = qr{[^\w\-.]+};
 sub clean_username {
     my ($username) = @_;