Diff for /loncom/LONCAPA.pm between versions 1.18 and 1.20

version 1.18, 2006/12/06 22:22:36 version 1.20, 2006/12/09 23:34:42
Line 110  sub clean_domain { Line 110  sub clean_domain {
     return $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\-.]+};  $match_not_username = $LONCAPA::not_username_re = qr{[^\w\-.]+};
 sub clean_username {  sub clean_username {
     my ($username) = @_;      my ($username) = @_;
Line 122  sub clean_username { Line 122  sub clean_username {
   
 $match_courseid     = $LONCAPA::courseid_re     = qr{\d[\w\-.]+};  $match_courseid     = $LONCAPA::courseid_re     = qr{\d[\w\-.]+};
 $match_not_courseid = $LONCAPA::not_courseid_re = qr{[^\w\-.]+};  $match_not_courseid = $LONCAPA::not_courseid_re = qr{[^\w\-.]+};
 sub is_courseid {  
     my ($courseid) = @_;  
     return ($courseid =~ m/^$match_courseid$/);  
 }  
   
 $match_name         = $LONCAPA::name = qr{$match_username|$match_courseid};  $match_name         = $LONCAPA::name = qr{$match_username|$match_courseid};
 sub clean_name {  sub clean_name {

Removed from v.1.18  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>