--- loncom/interface/loncoursegroups.pm 2008/12/16 19:33:36 1.85
+++ loncom/interface/loncoursegroups.pm 2009/02/26 16:17:29 1.95
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncoursegroups.pm,v 1.85 2008/12/16 19:33:36 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.95 2009/02/26 16:17:29 schafran Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -75,9 +75,9 @@ sub handler {
my $crstype = &Apache::loncommon::course_type();
my %functions = (
- email => 'E-mail',
+ email => 'Send Messages',
discussion => 'Discussion Boards',
- chat => 'Chat',
+ chat => 'Chat Room',
files => 'File Repository',
roster => 'Membership Roster',
homepage => $ucgpterm.' home page',
@@ -141,7 +141,7 @@ function openGroupRoster(group,status) {
rosterbrowser = open(url,title,options,'1');
rosterbrowser.focus();
}\n|;
- $r->print(&header('Groups',$jscript,$action,$state));
+ $r->print(&header('My Space',$jscript,$action,$state));
if ($env{'form.refpage'} eq 'cusr') {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/createuser",
@@ -349,8 +349,8 @@ END
'
'.$quota.' | '.
''.$totalmembers.' | '.
''.
- ' '.&mt('Files: [_1]',$totalfiles).' '.
- ''.&mt('Folders: [_1]',$totaldirs).' '.
+ ''.&mt('Files: [_1]',$totalfiles).' '.
+ ''.&mt('Folders: [_1]',$totaldirs).''.
' | '.
''.$boards.' | '.
''.$diskuse.' | '.
@@ -915,11 +915,11 @@ function changeSort(caller) {
result => 'Re-enabled'
);
my %navbuttons = &Apache::lonlocal::texthash(
- gtns => 'Go to next step',
- gtps => 'Go to previous step',
+ gtns => 'Next',#'Go to next step',
+ gtps => 'Back',#'Go to previous step',
crgr => 'Create '.$gpterm,
- mose => 'Modify settings',
- gtpp => 'Go to previous page',
+ mose => 'Save',#'Modify settings',
+ gtpp => 'Back',#'Go to previous page',
adme => 'Add members',
);
if ((($action eq 'create') || ($action eq 'modify') || ($action eq 'delete') || ($action eq 'reenable')) &&
@@ -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);
@@ -1649,7 +1649,7 @@ END
for (my $i=0; $i<$halfnum; $i++) {
$r->print(' |
+ &mt($$functions{$allfunctions[$i]}).'
| | ');
}
$r->print('print(' | |
+ &mt($$functions{$allfunctions[$j]}).'
| | ');
}
if ($remnum) {
@@ -1804,7 +1804,7 @@ sub sections_selection {
}
}
my $output = '
-