[LON-CAPA-cvs] cvs: loncom /interface loncreatecourse.pm
raeburn
raeburn@source.lon-capa.org
Thu, 29 Oct 2009 16:18:02 -0000
raeburn Thu Oct 29 16:18:02 2009 EDT
Modified files:
/loncom/interface loncreatecourse.pm
Log:
- Coordinator assigned to a new Community receives 'co' role.
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.129 loncom/interface/loncreatecourse.pm:1.130
--- loncom/interface/loncreatecourse.pm:1.129 Fri Oct 2 19:10:23 2009
+++ loncom/interface/loncreatecourse.pm Thu Oct 29 16:18:02 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.129 2009/10/02 19:10:23 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.130 2009/10/29 16:18:02 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -787,10 +787,14 @@
# Make the requested user a course coordinator or group coordinator
#
if (($ccdomain) && ($ccuname)) {
+ my $ccrole = 'cc';
+ if ($crstype eq 'Community') {
+ $ccrole = 'co';
+ }
$r->print(&mt('Assigning role of '.$crstype.' Coordinator to [_1]:',
,'<i>'.$ccuname.':'.$ccdomain.'</i>')
.&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,
- 'cc','','','','','createcourse').'<p>');
+ $ccrole,'','','','','createcourse').'<p>');
}
if ($env{'form.setkeys'}) {
$r->print(