![[BACK]](/icons/back.gif){kind=icon}
Return to LONCAPA.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to LONCAPA.pm CVS log | Up to [LON-CAPA] / loncom |
| version 1.19, 2006/12/09 23:33:56 | 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) = @_; |