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

[albertel]

albertel		Mon Jul  2 17:15:29 2007 EDT

  Modified files:              
    /loncom	LONCAPA.pm 
  Log:
  - BUG#5305 allow @ in usernames
  
  
Index: loncom/LONCAPA.pm
diff -u loncom/LONCAPA.pm:1.23 loncom/LONCAPA.pm:1.24
--- loncom/LONCAPA.pm:1.23	Wed Jan 10 15:22:30 2007
+++ loncom/LONCAPA.pm	Mon Jul  2 17:15:29 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.23 2007/01/10 20:22:30 albertel Exp $
+# $Id: LONCAPA.pm,v 1.24 2007/07/02 21:15:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -113,8 +113,8 @@
     return $domain;
 }
 
-$match_username     = $LONCAPA::username_re     = qr{\w[\w\-.]+};
-$match_not_username = $LONCAPA::not_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/^\W+//;
@@ -148,8 +148,8 @@
     return ($domain,$coursenum);
 }
 
-$match_handle     = $LONCAPA::handle_re     = qr{[\w\-.]+};
-$match_not_handle = $LONCAPA::not_handle_re = qr{[^\w\-.]+};
+$match_handle     = $LONCAPA::handle_re     = qr{[\w\-.@]+};
+$match_not_handle = $LONCAPA::not_handle_re = qr{[^\w\-.@]+};
 sub clean_handle {
     my ($handle) = @_;
     $handle =~ s/$match_not_handle//g;