[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface loncommon.pm

[raeburn]

raeburn		Sat Oct 24 03:32:50 2009 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Backport 1.902.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.692.4.19 loncom/interface/loncommon.pm:1.692.4.20
--- loncom/interface/loncommon.pm:1.692.4.19	Mon Oct 12 18:28:12 2009
+++ loncom/interface/loncommon.pm	Sat Oct 24 03:32:49 2009
@@ -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 @@
     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]);