--- loncom/LONCAPA.pm	2006/12/06 22:22:36	1.18
+++ loncom/LONCAPA.pm	2006/12/09 23:33:56	1.19
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.18 2006/12/06 22:22:36 albertel Exp $
+# $Id: LONCAPA.pm,v 1.19 2006/12/09 23:33:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -122,10 +122,6 @@ sub clean_username {
 
 $match_courseid     = $LONCAPA::courseid_re     = qr{\d[\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};
 sub clean_name {