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

raeburn raeburn@source.lon-capa.org
Sat, 31 Oct 2009 16:17:07 -0000


raeburn		Sat Oct 31 16:17:07 2009 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Accommodate Communities
    - coordinator color scheme for "co" role in communities.
    - include "co" role when accumulating all course roles. 
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.906 loncom/interface/loncommon.pm:1.907
--- loncom/interface/loncommon.pm:1.906	Sat Oct 31 05:47:10 2009
+++ loncom/interface/loncommon.pm	Sat Oct 31 16:17:07 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.906 2009/10/31 05:47:10 raeburn Exp $
+# $Id: loncommon.pm,v 1.907 2009/10/31 16:17:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1171,7 +1171,7 @@
     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';
@@ -3732,6 +3732,7 @@
         if (!%roles) {
             %roles = (
                        cc => 1,
+                       co => 1,
                        in => 1,
                        ep => 1,
                        ta => 1,
@@ -6899,7 +6900,7 @@
     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)/) {