Return to LONCAPA.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.17, 2006/12/04 21:38:50 | version 1.18, 2006/12/06 22:22:36 |
---|---|
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; |