--- loncom/LONCAPA.pm	2006/12/04 21:38:50	1.17
+++ loncom/LONCAPA.pm	2006/12/06 22:22:36	1.18
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.17 2006/12/04 21:38:50 albertel Exp $
+# $Id: LONCAPA.pm,v 1.18 2006/12/06 22:22:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -127,7 +127,7 @@ sub is_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 {
     my ($name) = @_;
     $name =~ s/$match_not_username//g;