loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.16, 2006/12/01 21:52:28	version 1.19, 2006/12/09 23:33:56
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{[a-zA-Z\_][\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 = qr{$match_username\|$match_courseid};	$match_name = $LONCAPA::name = qr{$match_username\|$match_courseid};
sub clean_name {	sub clean_name {
my ($name) = @_;	my ($name) = @_;
$name =~ s/$match_not_username//g;	$name =~ s/$match_not_username//g;