--- loncom/interface/loncommon.pm	2006/06/28 20:15:37	1.405
+++ loncom/interface/loncommon.pm	2006/06/29 16:03:39	1.407
@@ -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.407 2006/06/29 16:03:39 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3200,6 +3200,7 @@ table#LC_menubuttons img, table#LC_menub
 table#LC_top_nav td {
   background: $tabbg;
   border: 0px;
+  font-size: small;
 }
 table#LC_top_nav td a, div#LC_top_nav a {
   color: $font;
@@ -5179,6 +5180,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];