--- loncom/interface/loncommon.pm	2006/06/28 20:15:37	1.405
+++ loncom/interface/loncommon.pm	2006/06/28 23:38:10	1.406
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.405 2006/06/28 20:15:37 albertel Exp $
+# $Id: loncommon.pm,v 1.406 2006/06/28 23:38:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5179,6 +5179,15 @@ sub course_type {
     }
 }
 
+sub group_term {
+    my $crstype = &course_type();
+    my %names = (
+                  'Course' => 'group',
+                  'Group' => 'team',
+                );
+    return $names{$crstype};
+}
+
 sub icon {
     my ($file)=@_;
     my $curfext = (split(/\./,$file))[-1];