--- loncom/interface/loncoursegroups.pm 2009/02/02 13:27:39 1.91
+++ loncom/interface/loncoursegroups.pm 2009/02/05 12:32:26 1.92
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncoursegroups.pm,v 1.91 2009/02/02 13:27:39 schafran Exp $
+# $Id: loncoursegroups.pm,v 1.92 2009/02/05 12:32:26 schafran Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -75,7 +75,7 @@ sub handler {
my $crstype = &Apache::loncommon::course_type();
my %functions = (
- communication => 'Send Messages',
+ email => 'Send Messages',
discussion => 'Discussion Boards',
chat => 'Chat',
files => 'File Repository',
@@ -1588,7 +1588,7 @@ sub general_settings_form {
@{$tools} = sort(keys(%{$functions}));
&privilege_specificity($r,$action,3,$tools,$stored,$toolprivs,
$fixedprivs,\@available,$formname,
- $gpterm,$ucgpterm);
+ $gpterm,$ucgpterm,$functions);
&mapping_options($r,$action,$formname,$page,$sectioncount,
$states,$stored,$navbuttons,4,5,
$gpterm,$ucgpterm,$crstype,$cdom,$cnum);
@@ -2169,7 +2169,7 @@ sub pick_new_members {
sub privilege_specificity {
my ($r,$action,$img,$tools,$stored,$toolprivs,$fixedprivs,$available,
- $formname,$gpterm,$ucgpterm) = @_;
+ $formname,$gpterm,$ucgpterm,$functions) = @_;
my %lt = &Apache::lonlocal::texthash (
'uprv' => 'User privileges for collaborative tools',
'frty' => 'For each collaborative tool you have chosen to include, '.
@@ -2266,7 +2266,7 @@ sub privilege_specificity {
$r->print($lt{'algm'}.'
');
}
&default_privileges($r,$action,$tools,$toolprivs,$fixedprivs,
- $available);
+ $available,$functions);
} else {
if ($action eq 'create') {
$r->print($lt{'asyo'});
@@ -2290,7 +2290,7 @@ sub privilege_specificity {
}
sub default_privileges {
- my ($r,$action,$tools,$toolprivs,$fixedprivs,$available) = @_;
+ my ($r,$action,$tools,$toolprivs,$fixedprivs,$available,$functions) = @_;
my %lt = &Apache::lonlocal::texthash(
'addp' => 'Additional privileges',
'fixp' => 'Fixed privileges',
@@ -2300,11 +2300,11 @@ sub default_privileges {
$r->print(&Apache::lonhtmlcommon::start_pick_box('LC_group_priv_box').
&Apache::lonhtmlcommon::row_title($lt{'func'},undef,
'LC_groups_functionality'));
- my @printtool = @{$tools};
- foreach my $printtool (@printtool){
- $printtool = &mt($printtool);
- }
- $r->print(join('