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

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 04 Dec 2006 21:38:51 -0000


albertel		Mon Dec  4 16:38:51 2006 EDT

  Modified files:              
    /loncom	LONCAPA.pm 
  Log:
  - er exactly backwards there
  
  
Index: loncom/LONCAPA.pm
diff -u loncom/LONCAPA.pm:1.16 loncom/LONCAPA.pm:1.17
--- loncom/LONCAPA.pm:1.16	Fri Dec  1 16:52:28 2006
+++ loncom/LONCAPA.pm	Mon Dec  4 16:38:50 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.16 2006/12/01 21:52:28 albertel Exp $
+# $Id: LONCAPA.pm,v 1.17 2006/12/04 21:38:50 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{[a-zA-Z\_][\w\-.]+};
 $match_not_username = $LONCAPA::not_username_re = qr{[^\w\-.]+};
 sub clean_username {
     my ($username) = @_;