--- loncom/interface/loncommon.pm	2009/10/30 04:44:56	1.905
+++ loncom/interface/loncommon.pm	2009/10/31 16:17:07	1.907
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.905 2009/10/30 04:44:56 raeburn Exp $
+# $Id: loncommon.pm,v 1.907 2009/10/31 16:17:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -764,6 +764,9 @@ sub selectcourse_link {
    my $linktext = &mt('Select Course');
    if ($selecttype eq 'Community') {
        $linktext = &mt('Select Community'); 
+   } elsif ($selecttype eq 'Course/Community') {
+       $linktext = &mt('Select Course/Community');
+       $selecttype = 'Course';
    }
    return '<span class="LC_nobreak">'
          ."<a href='"
@@ -1168,7 +1171,7 @@ sub general_help {
     my $helptopic='Student_Intro';
     if ($env{'request.role'}=~/^(ca|au)/) {
 	$helptopic='Authoring_Intro';
-    } elsif ($env{'request.role'}=~/^cc/) {
+    } elsif ($env{'request.role'}=~/^(cc|co)/) {
 	$helptopic='Course_Coordination_Intro';
     } elsif ($env{'request.role'}=~/^dc/) {
         $helptopic='Domain_Coordination_Intro';
@@ -3729,6 +3732,7 @@ sub findallcourses {
         if (!%roles) {
             %roles = (
                        cc => 1,
+                       co => 1,
                        in => 1,
                        ep => 1,
                        ta => 1,
@@ -6896,7 +6900,7 @@ sub get_users_function {
     if ($env{'request.role'}=~/^(st)/) {
         $function='student';
     }
-    if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
+    if ($env{'request.role'}=~/^(cc|co|in|ta|ep)/) {
         $function='coordinator';
     }
     if ($env{'request.role'}=~/^(su|dc|ad|li)/) {