|
version 1.18, 2006/12/06 22:22:36
|
version 1.19, 2006/12/09 23:33:56
|
|
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 { |
![[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