version 1.23, 2007/01/10 20:22:30
|
version 1.24, 2007/07/02 21:15:29
|
Line 113 sub clean_domain {
|
Line 113 sub clean_domain {
|
return $domain; |
return $domain; |
} |
} |
|
|
$match_username = $LONCAPA::username_re = qr{\w[\w\-.]+}; |
$match_username = $LONCAPA::username_re = qr{\w[\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) = @_; |
$username =~ s/^\W+//; |
$username =~ s/^\W+//; |
Line 148 sub split_courseid {
|
Line 148 sub split_courseid {
|
return ($domain,$coursenum); |
return ($domain,$coursenum); |
} |
} |
|
|
$match_handle = $LONCAPA::handle_re = qr{[\w\-.]+}; |
$match_handle = $LONCAPA::handle_re = qr{[\w\-.@]+}; |
$match_not_handle = $LONCAPA::not_handle_re = qr{[^\w\-.]+}; |
$match_not_handle = $LONCAPA::not_handle_re = qr{[^\w\-.@]+}; |
sub clean_handle { |
sub clean_handle { |
my ($handle) = @_; |
my ($handle) = @_; |
$handle =~ s/$match_not_handle//g; |
$handle =~ s/$match_not_handle//g; |