[LON-CAPA-cvs] cvs: loncom / LONCAPA.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Sat, 09 Dec 2006 23:34:42 -0000
albertel Sat Dec 9 18:34:42 2006 EDT
Modified files:
/loncom LONCAPA.pm
Log:
- allow usernames to start with a digit
Index: loncom/LONCAPA.pm
diff -u loncom/LONCAPA.pm:1.19 loncom/LONCAPA.pm:1.20
--- loncom/LONCAPA.pm:1.19 Sat Dec 9 18:33:56 2006
+++ loncom/LONCAPA.pm Sat Dec 9 18:34:42 2006
@@ -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 @@
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) = @_;