loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.17, 2006/12/04 21:38:50	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 = 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;