[LON-CAPA-cvs] cvs: loncom / LONCAPA.pm

[albertel]

albertel		Sun Dec 10 18:06:13 2006 EDT

  Modified files:              
    /loncom	LONCAPA.pm 
  Log:
  - require a word char to satr a username
  
  
Index: loncom/LONCAPA.pm
diff -u loncom/LONCAPA.pm:1.20 loncom/LONCAPA.pm:1.21
--- loncom/LONCAPA.pm:1.20	Sat Dec  9 18:34:42 2006
+++ loncom/LONCAPA.pm	Sun Dec 10 18:06:13 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.20 2006/12/09 23:34:42 albertel Exp $
+# $Id: LONCAPA.pm,v 1.21 2006/12/10 23:06:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -110,11 +110,11 @@
     return $domain;
 }
 
-$match_username     = $LONCAPA::username_re     = qr{[\w\-.]+};
+$match_username     = $LONCAPA::username_re     = qr{\w[\w\-.]+};
 $match_not_username = $LONCAPA::not_username_re = qr{[^\w\-.]+};
 sub clean_username {
     my ($username) = @_;
-    $username =~ s/^\d+//;
+    $username =~ s/^\W+//;
     $username =~ s/$match_not_username//g;
     return $username;
 }