--- loncom/interface/loncommon.pm	2009/10/22 13:41:41	1.901
+++ loncom/interface/loncommon.pm	2009/10/24 03:24:13	1.902
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.901 2009/10/22 13:41:41 bisitz Exp $
+# $Id: loncommon.pm,v 1.902 2009/10/24 03:24:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10244,6 +10244,16 @@ sub group_term {
     return $names{$crstype};
 }
 
+sub course_types {
+    my @types = ('official','unofficial','community');
+    my %typename = (
+                         official   => 'Official course',
+                         unofficial => 'Unofficial course',
+                         community  => 'Community',
+                   );
+    return (\@types,\%typename);
+}
+
 sub icon {
     my ($file)=@_;
     my $curfext = lc((split(/\./,$file))[-1]);