loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.18, 2006/12/06 22:22:36	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) = @_;
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 {