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.18, 2006/12/06 22:22:36
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 127 sub is_courseid {	Line 127 sub is_courseid {
return ($courseid =~ m/^$match_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;