--- loncom/interface/loncommon.pm	2009/10/12 18:28:12	1.692.4.19
+++ loncom/interface/loncommon.pm	2009/10/24 03:32:49	1.692.4.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.692.4.19 2009/10/12 18:28:12 raeburn Exp $
+# $Id: loncommon.pm,v 1.692.4.20 2009/10/24 03:32:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9711,6 +9711,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]);