loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursegroups.pm between versions 1.48 and 1.72

version 1.48, 2006/07/07 21:20:25	version 1.72, 2007/12/24 18:36:44
Line 29 package Apache::loncoursegroups;	Line 29 package Apache::loncoursegroups;

use strict;	use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon();
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnavmaps;	use Apache::lonnavmaps();
use Apache::longroup;	use Apache::longroup();
use Apache::portfolio;	use Apache::portfolio();
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
	use LONCAPA::map();
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

Line 63 sub handler {	Line 64 sub handler {
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};

my $view_permission =	my $view_permission =
&Apache::lonnet::allowed('vcg',$env{'request.course.id'});	&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
my $manage_permission =	my $manage_permission =
&Apache::lonnet::allowed('mdg',$env{'request.course.id'});	&Apache::lonnet::allowed('mdg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();

my $gpterm = &Apache::loncommon::group_term();	my $gpterm = &Apache::loncommon::group_term();
Line 91 sub handler {	Line 92 sub handler {

my $action = $env{'form.action'};	my $action = $env{'form.action'};
my $state = $env{'form.state'};	my $state = $env{'form.state'};
if ((!defined($action)) \|\| ($action eq 'view')) {	if ((!defined($action)) \|\| ($action eq 'view') \|\| ($action eq 'modify') \|\| ($action eq 'delete') \|\| ($action eq 'reenable')) {
if (!defined($state)) {	if (!defined($state)) {
$state = 'view';	$state = 'view';
}	}
}	}
if ($action eq 'create' \|\| $action eq 'modify' \|\| $action eq 'view') {	if ($action eq 'create' \|\| $action eq 'modify' \|\| $action eq 'view' \|\|
	$action eq 'delete' \|\| $action eq 'reenable') {
if ($view_permission \|\| $manage_permission) {	if ($view_permission \|\| $manage_permission) {
&group_administration($r,$action,$state,$cdom,$cnum,	if ($state eq 'view') {
\%functions,\%idx,$view_permission,	&print_main_menu($r,$cdom,$cnum,\%functions,\%idx,
$manage_permission,$gpterm,$ucgpterm,	$view_permission,$manage_permission,
$crstype);	$action,$state,$gpterm,$ucgpterm,$crstype);
	} else {
	&group_administration($r,$action,$state,$cdom,$cnum,
	\%functions,\%idx,$view_permission,
	$manage_permission,$gpterm,$ucgpterm,
	$crstype);
	}
} else {	} else {
$r->print(&mt('You do not have [_1] administration '.	$r->print(&mt('You do not have [_1] administration '.
'privileges in this [_2]',$gpterm,lc($crstype)));	'privileges in this [_2]',$gpterm,lc($crstype)));
Line 117 sub handler {	Line 125 sub handler {
sub print_main_menu {	sub print_main_menu {
my ($r,$cdom,$cnum,$functions,$idx,$view_permission,$manage_permission,	my ($r,$cdom,$cnum,$functions,$idx,$view_permission,$manage_permission,
$action,$state,$gpterm,$ucgpterm,$crstype) = @_;	$action,$state,$gpterm,$ucgpterm,$crstype) = @_;
my $pagename = "$crstype $ucgpterm".'s';
my $jscript = qq\|	my $jscript = qq\|
function changeSort(caller) {	function changeSort(caller) {
document.$state.sortby.value = caller;	document.$state.sortby.value = caller;
document.$state.submit();	document.$state.submit();
	}
	function openGroupRoster(group,status) {
	var url = '/adm/grouproster?';
	url += 'group='+group+'&status='+status+'&ref=popup';
	var title = 'Group Membership';
	var options = 'scrollbars=1,resizable=1,menubar=0';
	options += ',width=700,height=600';
	rosterbrowser = open(url,title,options,'1');
	rosterbrowser.focus();
}\n\|;	}\n\|;
$r->print(&header($pagename,$jscript,$action,$state));	$r->print(&header('Groups',$jscript,$action,$state));
	if ($env{'form.refpage'} eq 'cusr') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/createuser",
	text=>"User Management"});
	}
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/coursegroups",	({href=>"/adm/coursegroups",
text=>"$pagename"});	text=>"Groups"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs($pagename));	my $helpitem;
	if ($manage_permission) {
	$helpitem = 'Creating_Groups';
	}
	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Groups',$helpitem));
&display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission,	&display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission,
$manage_permission,$action,$state,$gpterm,$ucgpterm,	$manage_permission,$action,$state,$gpterm,$ucgpterm,
$crstype);	$crstype);
Line 142 sub display_groups {	Line 167 sub display_groups {
my %grp_info = ();	my %grp_info = ();
my %actionlinks = (	my %actionlinks = (
modify => '<a href="/adm/coursegroups?action=modify&refpage='.	modify => '<a href="/adm/coursegroups?action=modify&refpage='.
$env{'form.refpage'}.'&groupname=',	$env{'form.refpage'}.'&state=pick_task&groupname=',
view => '<a href="/adm/'.$cdom.'/'.$cnum.'/',	view => '<a href="/adm/'.$cdom.'/'.$cnum.'/',
delete => '<a href="/adm/coursegroups?action=delete&refpage='.	delete => '<a href="/adm/coursegroups?action=delete&refpage='.
$env{'form.refpage'}.'&groupname=',	$env{'form.refpage'}.'&state=verify&groupname=',
	reenable => '<a href="/adm/coursegroups?action=reenable&refpage='.
	$env{'form.refpage'}.'&state=verify&groupname=',
);	);
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
modify => 'Modify',	modify => 'Modify',
view => 'View',	view => 'View',
delete => 'Delete',	delete => 'Delete',
	reenable => 'Re-enable',
act => 'Action',	act => 'Action',
gname => "$ucgpterm Name",	gname => 'Group Name',
desc => 'Description',	desc => 'Group Title',
crea => 'Creator',	crea => 'Creator',
crtd => 'Created',	crtd => 'Created',
last => 'Last Modified',	last => 'Last Modified',
func => 'Functionality',	func => 'Collaborative Tools',
quot => 'Quota (Mb)',	quot => 'Quota (Mb)',
memb => 'Members',	memb => 'Members',
file => 'Files',	file => 'Files',
dibd => 'Discussion Boards',	dibd => 'Discussion Boards',
dius => 'Disk Use (%)',	dius => 'Disk Use (%)',
nogr => 'No '.$gpterm.'s exist.',	nogr => 'No groups exist.',
crng => 'Create a new '.$gpterm,	crng => 'Create a new group',
	redg => 'Re-enable a deleted group',
alth => 'Although your current role has privileges'.	alth => 'Although your current role has privileges'.
' to view any existing '.$gpterm.'s in this'.	' to view any existing groups in this '.
lc($crstype).', you do not have privileges'.	lc($crstype).', you do not have privileges '.
'to create new '.$gpterm.'s.',	'to create new groups.',
);	);
if ($view_permission) {	if ($view_permission) {
if (!defined($action)) {	if (!defined($action)) {
$action = 'view';	$action = 'view';
}	}
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);	my ($status,$reenable_link);
	if ($action eq 'reenable') {
	$status = 'deleted_groups';
	} else {
	if ($manage_permission) {
	my %deleted_groups =
	&Apache::longroup::coursegroups($cdom,$cnum,undef,'deleted_groups');
	if (keys(%deleted_groups) > 0) {
	$reenable_link = '    <a href="/adm/coursegroups?action=reenable&refpage='.$env{'form.refpage'}.'">'.$lt{'redg'}.'</a>';
	}
	}
	}
	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,undef,
	$status);

if (%curr_groups) {	if (%curr_groups) {
if ($manage_permission) {	if ($manage_permission) {
$r->print('<br /><a href="/adm/coursegroups?action=create&refpage='.$env{'form.refpage'}.'">'.$lt{'crng'}.'</a>');	if ($action ne 'reenable') {
	$r->print('<br /><a href="/adm/coursegroups?action=create&refpage='.$env{'form.refpage'}.'">'.$lt{'crng'}.'</a>');
	}
	if ($reenable_link) {
	$r->print($reenable_link);
	}
}	}
$r->print('<br /><br />');	$r->print('<br /><br />');
$r->print(&Apache::loncommon::start_data_table().	$r->print(&Apache::loncommon::start_data_table().
Line 270 END	Line 318 END
$functionality = &mt('None available');	$functionality = &mt('None available');
}	}
my $link = $actionlinks{$action};	my $link = $actionlinks{$action};
if ($action eq 'modify' \|\| $action eq 'delete') {	if ($action eq 'modify' \|\| $action eq 'delete' \|\|
	$action eq 'reenable') {
$link .= $group;	$link .= $group;
} else {	} else {
$link .= $group.'/grppg';	$link .= $group.'/smppg?ref=grouplist';
	if (exists($env{'form.refpage'})) {
	$link .= '&refpage='.$env{'form.refpage'};
	}
}	}
$link .= '">'.$lt{$action}.'</a>';	$link .= '">'.$lt{$action}.'</a>';
if ($action eq 'view') {	if ($action eq 'view') {
if (($manage_permission) &&	if ($manage_permission) {
($env{'form.refpage'} ne 'enrl')) {
$link .= '  '.$actionlinks{'modify'}.	$link .= '  '.$actionlinks{'modify'}.
$group.'">'.$lt{'modify'}.'</a>';	$group.'">'.$lt{'modify'}.'</a>'.
	'  '.$actionlinks{'delete'}.
	$group.'">'.$lt{'delete'}.'</a>';
}	}
}	}
$r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense').	$r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense').
Line 312 END	Line 365 END
} else {	} else {
$r->print($lt{'nogr'});	$r->print($lt{'nogr'});
if ($manage_permission) {	if ($manage_permission) {
$r->print('<br /><br /><a href="/adm/coursegroups?action=create&refpage='.$env{'form.refpage'}.'">'.$lt{'crng'}.'</a>');	$r->print('<br /><br /><a href="/adm/coursegroups?action=create&refpage='.$env{'form.refpage'}.'">'.$lt{'crng'}.'</a>');
	if ($action ne 'reenable') {
	if ($reenable_link) {
	$r->print($reenable_link);
	}
	}
} else {	} else {
$r->print('<br /><br />'.$lt{'alth'});	$r->print('<br /><br />'.$lt{'alth'});

}	}
}	}
} else {	} else {
Line 329 END	Line 386 END
$curr_groups{$group});	$curr_groups{$group});
my $description = &unescape(	my $description = &unescape(
$group_info{description});	$group_info{description});
my ($uname,$udom) = split(/:/,$group_info{creator});	$r->print('<font size="+1"><a href="/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg?ref=grouplist">'.$group,'</a><font><br /><small>'.$description.'</small><br /><br />');
$r->print('<font size="+1"><a href="/adm/'.$udom.'/'.$uname.'/'.$group.'/grppg">'.$group,'</a><font><br /><small>'.$description.'</small><br /><br />');
}	}
}	}
} else {	} else {
Line 350 sub group_administration {	Line 406 sub group_administration {
my @types = ();	my @types = ();
my @roles = ();	my @roles = ();
my @sections = ();	my @sections = ();
	my @buildsections = ();
my %users = ();	my %users = ();
my %userdata = ();	my %userdata = ();
my @members = ();	my @members = ();
Line 401 sub group_administration {	Line 458 sub group_administration {
if ($state eq '') {	if ($state eq '') {
if (defined($env{'form.groupname'})) {	if (defined($env{'form.groupname'})) {
$state = 'pick_task';	$state = 'pick_task';
} else {
$state = 'pick_group';
}	}
} else {	} else {
%stored = &retrieve_settings($cdom,$cnum,$groupname);	%stored = &retrieve_settings($cdom,$cnum,$groupname,$action);
if (ref($stored{'types'}) eq 'ARRAY') {	if (ref($stored{'types'}) eq 'ARRAY') {
@types = @{$stored{'types'}};	@types = @{$stored{'types'}};
}	}
Line 496 sub group_administration {	Line 551 sub group_administration {
(($action eq 'modify') && (($state eq 'change_settings') \|\|	(($action eq 'modify') && (($state eq 'change_settings') \|\|
($state eq 'add_members')))) {	($state eq 'add_members')))) {
%sectioncount = &Apache::loncommon::get_sections($cdom,$cnum);	%sectioncount = &Apache::loncommon::get_sections($cdom,$cnum);
if (%sectioncount) {	$elements{'create'}{'pick_name'}{'sectionpick'} = 'selectbox';
$elements{'create'}{'pick_name'}{'sectionpick'} = 'selectbox';	$elements{'modify'}{'change_mapping'}{'sectionpick'} = 'selectbox';
$elements{'modify'}{'change_mapping'}{'sectionpick'} = 'selectbox';	$elements{'modify'}{'add_members'}{'sectionpick'} = 'selectbox';
$elements{'modify'}{'add_members'}{'sectionpick'} = 'selectbox';
}
}	}

if (($action eq 'create') \|\|	if (($action eq 'create') \|\|
Line 514 sub group_administration {	Line 567 sub group_administration {
if (defined($env{'form.sectionpick'})) {	if (defined($env{'form.sectionpick'})) {
@sections=&Apache::loncommon::get_env_multiple('form.sectionpick');	@sections=&Apache::loncommon::get_env_multiple('form.sectionpick');
if (grep/^all$/,@sections) {	if (grep/^all$/,@sections) {
@sections = sort {$a cmp $b} keys(%sectioncount);	@buildsections = sort {$a cmp $b} keys(%sectioncount);
	} else {
	@buildsections = @sections;
}	}
}	}
}	}

if (($state eq 'pick_members') \|\| ($state eq 'pick_privs') \|\| ($state eq 'change_privs')) {	if (($state eq 'pick_members') \|\| ($state eq 'pick_privs') \|\| ($state eq 'change_privs')) {
&build_members_list($cdom,$cnum,\@types,\@roles,\@sections,\%users,	&build_members_list($cdom,$cnum,\@types,\@roles,\@buildsections,\%users,
\%userdata);	\%userdata);
}	}
if ($state eq 'pick_members') {	if ($state eq 'pick_members') {
Line 556 sub group_administration {	Line 611 sub group_administration {
$num_reenable ++;	$num_reenable ++;
next;	next;
} elsif (($start > $now)) {	} elsif (($start > $now)) {
$num_activate = 1;	$num_activate ++;
next;	next;
} else {	} else {
$num_expire ++;	$num_expire ++;
Line 725 sub group_administration {	Line 780 sub group_administration {
my $space_trim = '/^\s\|\s\$/g,""';	my $space_trim = '/^\s\|\s\$/g,""';
my $float_check = '/^([0-9]\.?[0-9])$/';	my $float_check = '/^([0-9]\.?[0-9])$/';
$validate_script = '	$validate_script = '
var newquota = document.'.$state.'.quota.value;	var newquota = new String(document.'.$state.'.quota.value);
newquota.replace('.$space_trim.');	newquota.replace('.$space_trim.');
if (newquota == "" ) {	if (newquota == "" ) {
document.'.$state.'.quota.value = 0;	document.'.$state.'.quota.value = 0;
newquota = 0;	newquota = "0";
}	}
var maxposs = '.$maxposs.';	var maxposs = '.sprintf("%.2f",$maxposs).';
if (newquota > maxposs) {	if (newquota > maxposs) {
alert("The file repository quota you entered for this group ("+newquota+" Mb) exceeds the maximum possible ("+maxposs+" Mb). Please enter a smaller number.");	alert("The file repository quota you entered for this group ("+newquota+" Mb) exceeds the maximum possible ("+maxposs+" Mb). Please enter a smaller number.");
return;	return;
Line 782 function changeSort(caller) {	Line 837 function changeSort(caller) {
my %states = ();	my %states = ();
my %branchstates = ();	my %branchstates = ();
@{$states{'create'}} = ('pick_name','pick_members','pick_privs','result');	@{$states{'create'}} = ('pick_name','pick_members','pick_privs','result');
@{$states{'modify'}} = ('pick_group','pick_task');	@{$states{'modify'}} = ('pick_task');
	@{$states{'delete'}} = ('verify','result');
	@{$states{'reenable'}} = ('verify','result');
@{$branchstates{'noprivs'}} = ('result');	@{$branchstates{'noprivs'}} = ('result');
@{$branchstates{'settings'}} = ('change_settings','chgresult');	@{$branchstates{'settings'}} = ('change_settings','chgresult');
@{$branchstates{'members'}} = ('change_members','change_privs','memresult');	@{$branchstates{'members'}} = ('change_members','change_privs','memresult');
Line 793 function changeSort(caller) {	Line 850 function changeSort(caller) {
push (@{$states{$action}},@{$branchstates{$env{'form.branch'}}});	push (@{$states{$action}},@{$branchstates{$env{'form.branch'}}});
}	}

if (($action eq 'create') \|\| ($action eq 'modify')) {	if (($action eq 'create') \|\| ($action eq 'modify') \|\| ($action eq 'delete') \|\| ($action eq 'reenable')) {
my $done = 0;	my $done = 0;
my $i=0;	my $i=0;
while ($i<@{$states{$action}} && !$done) {	while ($i<@{$states{$action}} && !$done) {
Line 806 function changeSort(caller) {	Line 863 function changeSort(caller) {
}	}

my $loaditems = &onload_action($action,$state);	my $loaditems = &onload_action($action,$state);
my $crumbtitle = "$crstype $ucgpterm".'s';	$r->print(&header("Groups Manager",
$r->print(&header("$crumbtitle Manager",
$jscript,$action,$state,$page,$loaditems));	$jscript,$action,$state,$page,$loaditems));

if ($env{'form.refpage'} eq 'enrl') {	if ($env{'form.refpage'} eq 'cusr') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/dropadd",	({href=>"/adm/createuser",
text=>"Enrollment Manager",	text=>"User Management",
faq=>9,bug=>'Instructor Interface',});	faq=>9,bug=>'Instructor Interface',});
} else {	if ($action eq 'modify' \|\| $action eq 'delete') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/coursegroups?refpage=cusr&action=$action",
	text=>"Groups",
	faq=>9,bug=>'Instructor Interface',});
	}
	} else {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/coursegroups",	({href=>"/adm/coursegroups",
text=>"$crumbtitle",	text=>"Groups",
faq=>9,bug=>'Instructor Interface',});	faq=>9,bug=>'Instructor Interface',});
	if ($env{'form.refpage'} eq 'grouplist') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/$cdom/$cnum/$env{'form.groupname'}/smppg?ref=grouplist",
	text=>"Group: $description",});
	}
}	}

my %trail = ();	my %trail = ();
Line 830 function changeSort(caller) {	Line 897 function changeSort(caller) {
result => 'Creation Complete',	result => 'Creation Complete',
);	);
%{$trail{'modify'}} = &Apache::lonlocal::texthash(	%{$trail{'modify'}} = &Apache::lonlocal::texthash(
pick_group => $ucgpterm.'s',
pick_task => 'Choose Task',	pick_task => 'Choose Task',
change_settings => "$ucgpterm Settings",	change_settings => "$ucgpterm Settings",
change_members => 'Modify/Delete Members',	change_members => 'Modify/Delete Members',
Line 843 function changeSort(caller) {	Line 909 function changeSort(caller) {
memresult => 'Modifications Complete',	memresult => 'Modifications Complete',
addresult => 'Additions Complete',	addresult => 'Additions Complete',
);	);
	%{$trail{'delete'}} = &Apache::lonlocal::texthash(
	verify => 'Verify deletion',
	result => 'Deletion Complete'
	);
	%{$trail{'reenable'}} = &Apache::lonlocal::texthash(
	verify => 'Verify Re-enable',
	result => 'Re-enabled'
	);
my %navbuttons = &Apache::lonlocal::texthash(	my %navbuttons = &Apache::lonlocal::texthash(
gtns => 'Go to next step',	gtns => 'Go to next step',
gtps => 'Go to previous step',	gtps => 'Go to previous step',
Line 851 function changeSort(caller) {	Line 925 function changeSort(caller) {
gtpp => 'Go to previous page',	gtpp => 'Go to previous page',
adme => 'Add members',	adme => 'Add members',
);	);
if ((($action eq 'create') \|\| ($action eq 'modify')) &&	if ((($action eq 'create') \|\| ($action eq 'modify') \|\| ($action eq 'delete') \|\| ($action eq 'reenable')) &&
($manage_permission)) {	($manage_permission)) {
for (my $i=0; $i<@{$states{$action}}; $i++) {	for (my $i=0; $i<@{$states{$action}}; $i++) {
if ($state eq $states{$action}[$i]) {	if ($state eq $states{$action}[$i]) {
&Apache::lonhtmlcommon::add_breadcrumb(	&Apache::lonhtmlcommon::add_breadcrumb(
{text=>"$trail{$action}{$state}"});	{text=>"$trail{$action}{$state}"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs	$r->print(&Apache::lonhtmlcommon::breadcrumbs
("$crumbtitle Manager"));	("Groups Manager","Creating_Groups"));
&display_control($r,$cdom,$cnum,$action,$state,$page,	&display_control($r,$cdom,$cnum,$action,$state,$page,
\%sectioncount,$groupname,$description,$functions,	\%sectioncount,$groupname,$description,$functions,
\@tools,$toolprivs,$fixedprivs,$startdate,$enddate,	\@tools,$toolprivs,$fixedprivs,$startdate,$enddate,
Line 869 function changeSort(caller) {	Line 943 function changeSort(caller) {
$crstype);	$crstype);
last;	last;
} else {	} else {
if (($state eq 'result') && ($i > 0)) {	if (($action eq 'create') \|\| ($action eq 'modify')) {
&Apache::lonhtmlcommon::add_breadcrumb(	if (($state eq 'result') && ($i > 0)) {
	&Apache::lonhtmlcommon::add_breadcrumb(
{href=>"javascript:backPage(document.$state,'$states{$action}[0]')",	{href=>"javascript:backPage(document.$state,'$states{$action}[0]')",
text=>"$trail{$action}{$states{$action}[$i]}"});	text=>"$trail{$action}{$states{$action}[$i]}"});
} else {	} else {
&Apache::lonhtmlcommon::add_breadcrumb(	&Apache::lonhtmlcommon::add_breadcrumb(
{href=>"javascript:backPage(document.$state,'$states{$action}[$i]')",	{href=>"javascript:backPage(document.$state,'$states{$action}[$i]')",
text=>"$trail{$action}{$states{$action}[$i]}"});	text=>"$trail{$action}{$states{$action}[$i]}"});
	}
}	}
}	}
}	}
} elsif (($action eq 'view') && ($view_permission)) {	} elsif (($action eq 'view') && ($view_permission)) {
&Apache::lonhtmlcommon::add_breadcrumb(	&Apache::lonhtmlcommon::add_breadcrumb(
{text=>"View $gpterm".'s'});	{text=>"View $gpterm".'s'});
my $crumbtitle = "$crstype $ucgpterm".'s Manager';
$r->print(&Apache::lonhtmlcommon::breadcrumbs	$r->print(&Apache::lonhtmlcommon::breadcrumbs
(&mt($crumbtitle)));	('Groups Manager'));
&display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission,	&display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission,
$manage_permission,$action,$state,$gpterm,$ucgpterm,	$manage_permission,$action,$state,$gpterm,$ucgpterm,
$crstype);	$crstype);

}	}
$r->print(&footer());	$r->print(&footer());
return;	return;
}	}

sub retrieve_settings {	sub retrieve_settings {
my ($cdom,$cnum,$groupname) = @_;	my ($cdom,$cnum,$groupname,$action) = @_;
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$groupname);	my %curr_groups;
	my $namespace;
	if ($action eq 'reenable') {
	$namespace = 'deleted_groups';
	} else {
	$namespace = 'coursegroups';
	}
	%curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$groupname,
	$namespace);

return if (!%curr_groups);	return if (!%curr_groups);

Line 942 sub retrieve_settings {	Line 1024 sub retrieve_settings {
foreach my $role (sort(keys(%{$groupinfo{'autosec'}}))) {	foreach my $role (sort(keys(%{$groupinfo{'autosec'}}))) {
if (ref($groupinfo{'autosec'}{$role}) eq 'ARRAY') {	if (ref($groupinfo{'autosec'}{$role}) eq 'ARRAY') {
foreach my $section (@{$groupinfo{'autosec'}{$role}}) {	foreach my $section (@{$groupinfo{'autosec'}{$role}}) {

push (@{$stored{'sec_'.$role}},$section);	push (@{$stored{'sec_'.$role}},$section);
}	}
if (@{$groupinfo{'autosec'}{$role}} > 0) {	if (@{$groupinfo{'autosec'}{$role}} > 0) {
Line 989 sub display_control {	Line 1072 sub display_control {
}	}
} elsif ($action eq 'modify') {	} elsif ($action eq 'modify') {
my $groupname = $env{'form.groupname'};	my $groupname = $env{'form.groupname'};
if ($state eq 'pick_group') {	if ($state eq 'pick_task') {
&display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission,
$manage_permission,$action,$state,$gpterm,
$ucgpterm,$crstype);
} elsif ($state eq 'pick_task') {
&modify_menu($r,$groupname,$page,$gpterm);	&modify_menu($r,$groupname,$page,$gpterm);
} elsif ($state eq 'change_settings') {	} elsif ($state eq 'change_settings') {
&general_settings_form($r,$cdom,$cnum,$action,$state,$page,	&general_settings_form($r,$cdom,$cnum,$action,$state,$page,
Line 1007 sub display_control {	Line 1086 sub display_control {
$userdata,$granularity,$quota,$specificity,	$userdata,$granularity,$quota,$specificity,
$idx,$states,$navbuttons,$gpterm,$ucgpterm);	$idx,$states,$navbuttons,$gpterm,$ucgpterm);
} elsif ($state eq 'add_members') {	} elsif ($state eq 'add_members') {
&add_members_form($r,$action,$state,$page,$startdate,	&add_members_form($r,$cdom,$cnum,$action,$state,$page,$startdate,
$enddate,$groupname,$description,$granularity,	$enddate,$groupname,$description,$granularity,
$quota,$sectioncount,$tools,$functions,$stored,	$quota,$sectioncount,$tools,$functions,$stored,
$states,$navbuttons,$gpterm,$ucgpterm);	$states,$navbuttons,$gpterm,$ucgpterm);
Line 1039 sub display_control {	Line 1118 sub display_control {
$sections,$states,$navbuttons,$memchg,	$sections,$states,$navbuttons,$memchg,
$sectioncount,$stored,$gpterm,$ucgpterm,$crstype);	$sectioncount,$stored,$gpterm,$ucgpterm,$crstype);
}	}
	} elsif ($action eq 'delete') {
	my %stored = &retrieve_settings($cdom,$cnum,$groupname,$action);
	if ($state eq 'verify') {
	&verify_delete($r,$groupname,$state,$action,$page,$states,
	\%stored);
	} elsif ($state eq 'result') {
	&delete_group($r,$cdom,$cnum,$groupname);
	}
	} elsif ($action eq 'reenable') {
	my %stored = &retrieve_settings($cdom,$cnum,$groupname,$action);
	if ($state eq 'verify') {
	&verify_reenable($r,$groupname,$state,$action,$page,$states,
	\%stored);
	} elsif ($state eq 'result') {
	&reenable_group($r,$cdom,$cnum,$groupname);
	}
	}
	}

	sub verify_delete {
	my ($r,$groupname,$formname,$action,$page,$states,$stored) = @_;
	$r->print(&Apache::lonhtmlcommon::echo_form_input([]));
	$r->print(&mt("You have requested deletion of the following group: ").'<i>'.
	$stored->{'description'}.'</i>'.
	'<br /><br />'.&mt('When a group is deleted the following occurs:').'<ul>'.
	'<li>'.&mt('All group membership is terminated.').'</li>'.
	'<li>'.&mt('The group ceases to be available either for viewing or for modification of group settings and membership.').'</li>'.
	'<li>'.&mt('The group folder is removed from the folder containing it - normally this is the "Course Groups" folder which contains folders for all groups in the course.').'</li>'.
	'</ul>'.&mt('Although a deleted group is no longer accessible, the group name used for the group will be reserved, and will not be available for assignment to a new group in the same course in the future.'));
	my $prevtext = &mt('Go back');
	my $nexttext = &mt('Delete group');
	my $prev;
	if ($env{'form.refpage'} eq 'cusr') {
	$prev = 'view';
	}
	&display_navbuttons($r,$formname,$prev,$prevtext,
	$$states{$action}[$page+1],$nexttext);
	return;
	}

	sub delete_group {
	my ($r,$cdom,$cnum,$groupname) = @_;
	my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,
	$groupname);
	my $now = time;
	my $num_users = 0;
	my $num_fail = 0;
	my $num_ok = 0;
	my @deleted;
	my @undeleted;
	my %usersettings;
	foreach my $key (sort(keys(%membership))) {
	if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) {
	my $user = $1;
	my($end,$start,$userprivs) = split(/:/,$membership{$key},3);
	if ($start != -1) {
	$num_users ++;
	$usersettings{$groupname.':'.$user} = $now.':-1:'.$userprivs;
	if (&Apache::lonnet::modify_group_roles($cdom,$cnum,
	$groupname,$user,
	$now,'-1',$userprivs)
	eq 'ok') {
	$num_ok ++;
	push(@deleted,$user);
	} else {
	push(@undeleted,$user);
	$num_fail ++;
	}
	}
	}
	}
	if ($num_ok > 0) {
	my $roster_result =
	&Apache::lonnet::modify_coursegroup_membership($cdom,$cnum,
	\%usersettings);
	}
	if ($num_fail > 0) {
	$r->print(&mt('Group deletion failed because deletion of [_1] out of [_2] members failed.',$num_fail,$num_users));

	} else {
	my ($result,$message) =
	&Apache::lonnet::toggle_coursegroup_status($cdom,$cnum,
	$groupname,'delete');
	if ($result eq 'ok') {
	my $outcome = &modify_folders($cdom,$cnum,$groupname);
	if ($outcome eq '') {
	$r->print(&mt('Group successfully deleted.'));
	} else {
	$r->print(&mt("Although the group was deleted, an error ([_1]) occurred when removing the group's folder from the 'Course Groups' folder.",$outcome));
	}
	} else {
	$r->print(&mt('Group deletion failed.'));
	}
	}
	return;
	}

	sub reenable_folder {
	my ($cdom,$cnum,$groupname,$description) = @_;
	my $outcome;
	my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
	my $allgrpsmap = $crspath.'group_allfolders.sequence';
	my $foldertitle = &mt('Course Folder -').$description;
	my $mapurl = $crspath.'group_folder_'.
	$groupname.'.sequence';
	my ($errtext,$fatal)=&LONCAPA::map::mapread($allgrpsmap);
	if ($fatal) {
	$outcome=&mt('Error reading contents of parent folder to group').
	" ($allgrpsmap): $errtext".'<br />';
	} else {
	my $idx=&LONCAPA::map::getresidx($mapurl);
	$LONCAPA::map::resources[$idx] = $foldertitle.':'.$mapurl.
	':false:normal:res';
	$LONCAPA::map::order[1+$#LONCAPA::map::order]=$idx;
	my ($outtext,$errtext) = &LONCAPA::map::storemap($allgrpsmap,1);
	if ($errtext) {
	$outcome = &mt('Error saving updated parent folder to group').
	"- $allgrpsmap - $errtext".'<br />';
	} else {
	my ($furl,$ferr) =
	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
	}
	}
	return $outcome;
	}

	sub modify_folders {
	my ($cdom,$cnum,$groupname) = @_;
	my $outcome;
	my $navmap = Apache::lonnavmaps::navmap->new();
	my $groupmap = '/uploaded/'.$cdom.'/'.$cnum.'/'.'group_folder_'.
	$groupname.'.sequence';
	my $groupmapres = $navmap->getResourceByUrl($groupmap);
	my ($map,$id,$src);
	if ($groupmapres) {
	($map,$id,$src)=&Apache::lonnet::decode_symb($groupmapres->symb());
	}
	undef($navmap);
	if ($map) {
	$map = '/'.$map;
	my ($errtext,$fatal) = &LONCAPA::map::mapread($map);
	if ($fatal) {
	$outcome=&mt('Error reading contents of parent folder to group').
	" ($map): $errtext".'<br />';
	} else {
	my $idx = 0;
	my $grpidx;
	foreach my $item (@LONCAPA::map::order) {
	my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$item]);
	$url=&LONCAPA::map::qtescape($url);
	if ($url eq $groupmap) {
	$grpidx = $idx;
	last;
	} else {
	$idx++;
	}
	}

	if ($grpidx ne '') {
	&LONCAPA::map::makezombie($LONCAPA::map::order[$grpidx]);
	for (my $i=$grpidx;$i<$#LONCAPA::map::order;$i++) {
	$LONCAPA::map::order[$i] = $LONCAPA::map::order[$i+1];
	}
	$#LONCAPA::map::order--;
	my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1);
	if ($errtext) {
	$outcome = &mt('Error saving updated parent folder to group'). "- $map - $errtext".'<br />';
	} else {
	my ($furl,$ferr) =
	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
	}
	}
	}
	}
	return $outcome;
	}

	sub verify_reenable {
	my ($r,$groupname,$formname,$action,$page,$states,$stored) = @_;
	$r->print(&Apache::lonhtmlcommon::echo_form_input([]));
	$r->print(&mt("You have requested enabling the following previously deleted group: ").'<i>'.
	$stored->{'description'}.'</i>'.
	'<br /><br />'.&mt('When a deleted group is re-enabled the following occurs:').'<ul>'.
	'<li>'.&mt('Group settings and membership at the time the group was deleted are reinstated.').'</li>'.
	'<li>'.&mt('A group folder is added to the "Course Groups" folder which contains folders for all groups in the course.').'</li></ul>');
	my $prevtext = &mt('Go back');
	my $nexttext = &mt('Reenable group');
	my $prev;
	if ($env{'form.refpage'} eq 'cusr') {
	$prev = 'view';
}	}
	&display_navbuttons($r,$formname,$prev,$prevtext,
	$$states{$action}[$page+1],$nexttext);
	return;
	}

	sub reenable_group {
	my ($r,$cdom,$cnum,$groupname) = @_;
	my %groups =
	&Apache::longroup::coursegroups($cdom,$cnum,$groupname,
	'deleted_groups');
	if (keys(%groups) == 0) {
	$r->print(&mt('The group ([_1]) was not re-enabled, because it is not a deleted group.<br />Perhaps it has already been re-enabled?',$groupname));
	return;
	}
	my %groupinfo =
	&Apache::longroup::get_group_settings($groups{$groupname});
	my $defstart = $groupinfo{'startdate'};
	my $defend = $groupinfo{'enddate'};
	my $showstart = &Apache::lonlocal::locallocaltime($defstart);
	my $showend;
	if ($defend == 0) {
	$showend = &mt('No end date set');
	} else {
	$showend = &Apache::lonlocal::locallocaltime($defend);
	}
	my $description = &unescape($groupinfo{'description'});
	my $num_users = 0;
	my $num_ok = 0;
	my $num_fail = 0;
	my (%usersettings,@enabled,@unenabled);
	my ($result,$message) =
	&Apache::lonnet::toggle_coursegroup_status($cdom,$cnum,$groupname,
	'reenable');
	if ($result eq 'ok') {
	my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,
	$groupname);
	foreach my $key (sort(keys(%membership))) {
	if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) {
	my $user = $1;
	my($end,$start,$userprivs) = split(/:/,$membership{$key},3);
	if (($start == -1) && ($end == $groupinfo{'modified'})) {
	$num_users ++;
	$usersettings{$groupname.':'.$user} = $defend.':'.
	$defstart.':'.
	$userprivs;
	if (&Apache::lonnet::modify_group_roles($cdom,$cnum,
	$groupname,$user,
	$defend,$defstart,
	$userprivs) eq 'ok') {
	$num_ok ++;
	push(@enabled,$user);
	} else {
	push(@unenabled,$user);
	$num_fail ++;
	}
	}
	}
	}
	if ($num_users > 0) {
	if ($num_ok > 0) {
	my $roster_result =
	&Apache::lonnet::modify_coursegroup_membership($cdom,$cnum,
	\%usersettings);
	if ($roster_result eq 'ok') {
	$r->print(&mt('Membership reinstated for [_1] users, each with start and end dates for group access set to defaults: [_2] and [_3]',$num_ok,$showstart,$showend).'<br />');
	}
	} else {
	$r->print(&mt('A problem occurred when trying to reinstate [_1] of the [_2] members of the pre-existing group.',$num_fail,$num_users).'<br />');
	}
	} else {
	$r->print(&mt('There were no group members to reinstate, as none were removed when the group was deleted.').'<br />');
	}
	my $outcome = &reenable_folder($cdom,$cnum,$groupname,$description);
	if ($outcome eq '') {
	$r->print(&mt('Group successfully re-enabled.'));
	} else {
	$r->print(&mt("Although the group was re-enabled, an error ([_1]) occurred when adding the group's folder to the 'Course Groups' folder.",$outcome));
	}
	} else {
	$r->print(&mt('Re-enabling group failed'));
	}
	return;
}	}

sub header {	sub header {
Line 1078 sub onload_action {	Line 1429 sub onload_action {
}	}
if (($action eq 'modify') &&	if (($action eq 'modify') &&
($state eq 'change_settings' \|\| $state eq 'change_members' \|\|	($state eq 'change_settings' \|\| $state eq 'change_members' \|\|
$state eq 'change_privs' \|\| $state eq 'add_members' \|\|	$state eq 'change_privs' \|\| $state eq 'add_members')) {
$state eq 'pick_members')) {
$loaditems{'onload'} =	$loaditems{'onload'} =
'javascript:setFormElements(document.'.$state.')';	'javascript:setFormElements(document.'.$state.')';
}	}
Line 1132 sub group_members {	Line 1482 sub group_members {
my ($cdom,$cnum,$group,$group_info) = @_;	my ($cdom,$cnum,$group,$group_info) = @_;
my %memberhash = &Apache::lonnet::get_group_membership($cdom,$cnum,$group);	my %memberhash = &Apache::lonnet::get_group_membership($cdom,$cnum,$group);
my $now = time;	my $now = time;
my ($tmp)=keys(%memberhash);	my %lt = &Apache::lonlocal::texthash (
if ($tmp=~/^error:/) {	active => 'active',
$$group_info{'totalmembers'} = 'Unknown - an error occurred';	previous => 'previous',
return $tmp;	future => 'future',
}	);
	my %membercounts = (
	active => 0,
	previous => 0,
	future => 0,
	);
my $totalmembers = 0;	my $totalmembers = 0;
my $active = 0;
my $previous = 0;
my $future = 0;
foreach my $member (keys %memberhash) {	foreach my $member (keys %memberhash) {
$totalmembers ++;	$totalmembers ++;
my ($end,$start) = split(/:/,$memberhash{$member});	my ($end,$start) = split(/:/,$memberhash{$member});
unless ($start == -1) {	unless ($start == -1) {
if (($end!=0) && ($end<$now)) {	if (($end!=0) && ($end<$now)) {
$previous ++;	$membercounts{previous} ++;
} elsif (($start!=0) && ($start>$now)) {	} elsif (($start!=0) && ($start>$now)) {
$future ++;	$membercounts{future} ++;
} else {	} else {
$active ++;	$membercounts{active} ++;
}	}
}	}
}	}
if ($totalmembers == 0) {	if ($totalmembers == 0) {
$$group_info{$group}{'totalmembers'} = 'None';	$$group_info{$group}{'totalmembers'} = 'None';
} else {	} else {
$$group_info{$group}{'totalmembers'} = '<nobr>'.$active.	foreach my $type ('active','previous','future') {
' - active</nobr><br /><nobr>'.$previous.	$$group_info{$group}{'totalmembers'} .=
' - previous</nobr><br /><nobr>'.$future.	&open_list_window($group,$type,$membercounts{$type},$lt{$type});
' - future</nobr>';	}
}	}
return 'ok';	return 'ok';
}	}

	sub open_list_window {
	my ($group,$status,$count,$text) = @_;
	my $entry;
	if ($count > 0) {
	$entry = '<nobr><a href="javascript:openGroupRoster('.
	"'$group','$status'".')">'.$text.'</a> - '.$count.
	'</nobr><br />';
	} else {
	$entry = '<nobr>'.$text.' - '.$count.'</nobr><br />';
	}
	return $entry;
	}


sub general_settings_form {	sub general_settings_form {
my ($r,$cdom,$cnum,$action,$formname,$page,$functions,$tools,	my ($r,$cdom,$cnum,$action,$formname,$page,$functions,$tools,
Line 1175 sub general_settings_form {	Line 1540 sub general_settings_form {
$gpterm,$ucgpterm,$crstype);	$gpterm,$ucgpterm,$crstype);
&access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm);	&access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm);
if ($action eq 'create') {	if ($action eq 'create') {
&membership_options($r,$action,$formname,$sectioncount,3,$gpterm,	&membership_options($r,$cdom,$cnum,$action,$formname,$sectioncount,3,
$ucgpterm);	$gpterm,$ucgpterm);
$nexttext = $$navbuttons{'gtns'};	$nexttext = $$navbuttons{'gtns'};
} else {	} else {
my @available = ();	my @available = ();
Line 1188 sub general_settings_form {	Line 1553 sub general_settings_form {
$gpterm,$ucgpterm);	$gpterm,$ucgpterm);
&mapping_options($r,$action,$formname,$page,$sectioncount,	&mapping_options($r,$action,$formname,$page,$sectioncount,
$states,$stored,$navbuttons,4,5,	$states,$stored,$navbuttons,4,5,
$gpterm,$ucgpterm,$crstype);	$gpterm,$ucgpterm,$crstype,$cdom,$cnum);
$nexttext = $$navbuttons{'mose'};	$nexttext = $$navbuttons{'mose'};
}	}
$prevtext = $$navbuttons{'gtpp'};	$prevtext = $$navbuttons{'gtpp'};
Line 1201 sub groupsettings_options {	Line 1566 sub groupsettings_options {
my ($r,$functions,$action,$formname,$stored,$image,$gpterm,	my ($r,$functions,$action,$formname,$stored,$image,$gpterm,
$ucgpterm,$crstype) = @_;	$ucgpterm,$crstype) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'gdat' => "$ucgpterm open and close dates",	'gdat' => "Group access start and end dates",
'sten' => "Set a start date/time and end date/time for the $gpterm",	'gnde' => "Group name, title and available collaborative tools",
'gfun' => "$ucgpterm functionality",	'desc' => 'Group Title',
'gnde' => "$ucgpterm name, description and available functionality",	'func' => 'Collaborative Tools',
'desc' => 'Description',	'gnam' => 'Group Name',
'func' => 'Functionality',	'lett' => 'Letters, numbers and underscore only',
'gnam' => "$ucgpterm Name",	'doyo' => 'Different subsets of the chosen collaborative tools '.
'doyo' => "Do you want to assign different functionality ".	'for different group members?',
"to different $gpterm members?",
);	);
my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored);	my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored);
&topic_bar($r,$image,$lt{'gnde'});	&topic_bar($r,$image,$lt{'gnde'});
Line 1220 sub groupsettings_options {	Line 1584 sub groupsettings_options {
<td colspan="5">	<td colspan="5">
');	');
if ($action eq 'create') {	if ($action eq 'create') {
$r->print('<input type="text" name="groupname" size="25" />');	$r->print('<input type="text" name="groupname" size="25" /> ('.
	$lt{'lett'}.')');
} else {	} else {
$r->print('<input type="hidden" name="groupname" value="'.	$r->print('<input type="hidden" name="groupname" value="'.
$env{'form.groupname'}.'" />'.$env{'form.groupname'});	$env{'form.groupname'}.'" />'.$env{'form.groupname'});
Line 1288 END	Line 1653 END
$r->print(' <input type="text" name="quota" size="4" />Mb');	$r->print(' <input type="text" name="quota" size="4" />Mb');
if ($action eq 'create') {	if ($action eq 'create') {
$r->print('<br />'.	$r->print('<br />'.
&mt('A total of [_1] Mb is shared between all [_2]s in the '.	&mt('A total of [_1] Mb can be divided amongst all [_2]s in the '.
'[_3], and [_4] Mb are currently unallocated.',$crsquota,	'[_3], and [_4] Mb are currently unallocated.',$crsquota,
$gpterm,lc($crstype),$freespace));	$gpterm,lc($crstype),sprintf("%.2f",$freespace)));
} else {	} else {
$r->print('  ('.&mt('The quota is currently [_1] Mb',	$r->print('  ('.&mt('The quota is currently [_1] Mb',
$$stored{'quota'}).').');	$$stored{'quota'}).').');

$r->print('<br />'.&mt('The quota can be increased to [_1] Mb, '.	$r->print('<br />'.&mt('The quota can be increased to [_1] Mb, '.
'by adding all unallocated space for [_2]s in the [_3].',	'by adding all unallocated space for [_2]s in the [_3].',
$maxposs,$gpterm,lc($crstype)));	sprintf("%.2f",$maxposs),$gpterm,lc($crstype)));
}	}
$r->print('	$r->print('
</td>	</td>
Line 1324 sub get_quota_constraints {	Line 1689 sub get_quota_constraints {
}	}

sub membership_options {	sub membership_options {
my ($r,$action,$state,$sectioncount,$image,$gpterm,$ucgpterm) = @_;	my ($r,$cdom,$cnum,$action,$state,$sectioncount,$image,$gpterm,$ucgpterm)=@_;
my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'pipa' => 'Pick parameters to generate membership list',	'pipa' => 'Build a list of users for selection of group members',
'gmem' => "$ucgpterm membership options",	'gmem' => "Group membership selection list criteria:",
'picr' => 'Pick the criteria to use to build a list of '.	'picr' => 'Pick the criteria to use to build a list of '.
lc($crstype).' users from which you will select ',	lc($crstype).' users from which you will select ',
'meof' => "members of the new $gpterm.",	'meof' => "members of the new group.",
'admg' => "additional members of the $gpterm.",	'admg' => "additional members of the group.",
'ifno' => "If you do not wish to add members when you first ".	'ifno' => "If you do not wish to add members when you first ".
"create the $gpterm, do not make any selections.",	"create the group, there is no need to pick any criteria.",
'asub' => "A subsequent step will also allow you to specify automatic adding/dropping of $gpterm members triggered by specified role and section changes.",	'asub' => "A subsequent step will also allow you to specify automatic adding/dropping of group members triggered by specified user role and section <i>changes</i> in the course.",
'acty' => 'Access types',	'acty' => 'Access types',
'coro' => $crstype.' roles',	'coro' => $crstype.' roles',
'cose' => $crstype.' sections',	'cose' => $crstype.' sections',
Line 1346 sub membership_options {	Line 1711 sub membership_options {
future => &mt('Will have future access'),	future => &mt('Will have future access'),
);	);

#FIXME need to plumb around for the various cr roles defined by the user	my @roles = ('st','cc','in','ta','ep','cr');
my @roles = ('st','cc','in','ta','ep');

my @sections = keys(%{$sectioncount});	my @sections = keys(%{$sectioncount});

Line 1365 sub membership_options {	Line 1729 sub membership_options {
<table class="LC_status_selector">	<table class="LC_status_selector">
<tr>	<tr>
<th>'.$lt{'acty'}.'</th>	<th>'.$lt{'acty'}.'</th>
<th>'.$lt{'coro'}.'</th>');	<th>'.$lt{'coro'}.'</th>
if (@sections >0) {	<th>'.$lt{'cose'}.'</th>
$r->print('	</tr><tr><td>');
<th>'.$lt{'cose'}.'</th>');
}
$r->print('</tr><tr><td>');
$r->print(&Apache::lonhtmlcommon::status_select_row(\%status_types));	$r->print(&Apache::lonhtmlcommon::status_select_row(\%status_types));
$r->print('</td><td>');	$r->print('</td><td>');
$r->print(&Apache::lonhtmlcommon::role_select_row(\@roles));	$r->print(&Apache::lonhtmlcommon::role_select_row(\@roles,undef,undef,1,$cdom,$cnum));
if (@sections > 0) {	if (@sections > 0) {
@sections = sort {$a cmp $b} @sections;	@sections = sort {$a cmp $b} @sections;
unshift(@sections,'none'); # Put 'no sections' next	unshift(@sections,'none'); # Put 'no sections' next
unshift(@sections,'all'); # Put 'all' at the front of the list	unshift(@sections,'all'); # Put 'all' at the front of the list
$r->print('</td><td>'.	} else {
&sections_selection(\@sections,'sectionpick').'</td>');	@sections = ('all','none');
}	}
$r->print('	$r->print('</td><td>'.
	&sections_selection(\@sections,'sectionpick').'</td>
</tr>	</tr>
</table>');	</table>');
return;	return;
Line 1396 sub sections_selection {	Line 1758 sub sections_selection {
}	}
foreach my $sec (@{$sections}) {	foreach my $sec (@{$sections}) {
if ($sec eq 'all') {	if ($sec eq 'all') {
$section_sel .= ' <option value="'.$sec.'" selected="selected">'.&mt('all sections').'</option>'."\n";	$section_sel .= ' <option value="'.$sec.'">'.&mt('all sections').'</option>'."\n";
} elsif ($sec eq 'none') {	} elsif ($sec eq 'none') {
$section_sel .= ' <option value="'.$sec.'">'.&mt('no section').'</option>'."\n";	$section_sel .= ' <option value="'.$sec.'">'.&mt('no section').'</option>'."\n";
} else {	} else {
Line 1502 sub display_navbuttons {	Line 1864 sub display_navbuttons {
<input type="button" name="previous" value = "'.$prevtext.'"	<input type="button" name="previous" value = "'.$prevtext.'"
onclick="javascript:backPage(document.'.$formname.','."'".$prev."'".')"/>	onclick="javascript:backPage(document.'.$formname.','."'".$prev."'".')"/>
');	');
	} elsif ($prevtext) {
	$r->print('
	<input type="button" name="previous" value = "'.$prevtext.'"
	onclick="javascript:history.back()"/>
	');
}	}
if ($next) {	if ($next) {
$r->print('	$r->print('
Line 1528 sub print_current_settings {	Line 1895 sub print_current_settings {
$granularity,$quota,$available,$unavailable,$gpterm,$ucgpterm) = @_;	$granularity,$quota,$available,$unavailable,$gpterm,$ucgpterm) = @_;

my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
grna => "$ucgpterm Name",	grna => 'Group Name',
desc => 'Description',	desc => 'Group Title',
grfn => "$ucgpterm Functions",	grfn => "Collaborative Tools",
gran => 'Granularity',	gran => 'Granularity',
quot => 'File quota',	quot => 'File quota',
dfac => 'Default access dates',	dfac => 'Default access dates',
ygrs => "Your $gpterm selections",	ygrs => "Your group selections - ",
tfwa => "The following settings will apply to the $gpterm:",	tfwa => "The following settings will apply to the group:",
difn => 'Different functionality<br />for different members:',	difn => 'Different collaborative tools<br />for different members:',
stda => 'Start date',	stda => 'Start date',
enda => 'End date:',	enda => 'End date:',
);	);
Line 1571 sub print_current_settings {	Line 1938 sub print_current_settings {
<td>	<td>
');	');
if (@{$available} > 0) {	if (@{$available} > 0) {
$r->print('<b>Available:</b>	$r->print(&mt('<b>Available for assignment to members:</b>').
<table class="LC_group_priv"><tr>');	'<table class="LC_group_priv"><tr>');
my $rowcell = int(@{$available}/2) + @{$available}%2;	my $rowcell = int(@{$available}/2) + @{$available}%2;
for (my $i=0; $i<@{$available}; $i++) {	for (my $i=0; $i<@{$available}; $i++) {
if (@{$available} > 3) {	if (@{$available} > 3) {
Line 1589 sub print_current_settings {	Line 1956 sub print_current_settings {
$r->print('</tr></table><br />');	$r->print('</tr></table><br />');
}	}
if (@{$unavailable} > 0) {	if (@{$unavailable} > 0) {
$r->print('<b>Unavailable:</b>	$r->print(&mt('<b>Unavailable for assignment:</b>').
<table class="LC_group_priv"><tr>');	'<table class="LC_group_priv"><tr>');
my $rowcell = int(@{$unavailable}/2) + @{$unavailable}%2;	my $rowcell = int(@{$unavailable}/2) + @{$unavailable}%2;
for (my $j=0; $j<@{$unavailable}; $j++) {	for (my $j=0; $j<@{$unavailable}; $j++) {
if (@{$unavailable} > 3) {	if (@{$unavailable} > 3) {
Line 1623 sub pick_new_members {	Line 1990 sub pick_new_members {
my ($r,$action,$formname,$available,$idx,$stored,$img,$users,$userdata,	my ($r,$action,$formname,$available,$idx,$stored,$img,$users,$userdata,
$granularity,$origmembers,$gpterm,$ucgpterm) = @_;	$granularity,$origmembers,$gpterm,$ucgpterm) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'gpme' => "$ucgpterm membership",	'gpme' => "Group membership",
'addm' => 'Add members',	'addm' => 'Add members',
'setf' => 'Set functionality',	'setf' => 'Assign collaborative tools',
'func' => 'Functionality',	'func' => 'Tools',
'nome' => 'No members to add at this time.',	'nome' => 'No members to add at this time, as there are no users '.
	'matching the specified type(s), role(s) and section(s).',
'nnew' => "There are no users to add as new members, as all users".	'nnew' => "There are no users to add as new members, as all users".
" matching the specified type(s), role(s), and/or ".	" matching the specified type(s), role(s), and ".
"section(s) are already affiliated with this $gpterm.",	"section(s) are already affiliated with this group.",
'yoma' => 'You may need to use the '."'".'modify existing, past or '.	'yoma' => 'You may need to use the '."'".'modify existing, past or '.
'future members'."'".' page if you need to re-enable '.	'future members'."'".' page if you need to re-enable '.
'or activate access for previous or future members.',	'or activate access for previous or future members.',
Line 1766 sub privilege_specificity {	Line 2134 sub privilege_specificity {
my ($r,$action,$img,$tools,$stored,$toolprivs,$fixedprivs,$available,	my ($r,$action,$img,$tools,$stored,$toolprivs,$fixedprivs,$available,
$formname,$gpterm,$ucgpterm) = @_;	$formname,$gpterm,$ucgpterm) = @_;
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
'uprv' => 'User privileges',	'uprv' => 'User privileges for collaborative tools',
'frty' => 'For each type of functionality you have chosen to include, '.	'frty' => 'For each collaborative tool you have chosen to include, '.
'there is a set of standard privileges which apply to all '.	'there is a set of core privileges which all group members '.
'of those for whom the functionality is enabled.',	'assigned use of the tool will receive.',
'thar' => 'There are also additional privileges which can be set for '.	'thar' => 'For some tools there are also additional optional '.
'some, or all, members. Please choose one of the following:',	'privileges which can be set.',
'fort' => 'For the types of functionality you have chosen to include '.	'plch' => 'Choose one of the following:',
'there are no additional privileges which can be set for some '.	'fort' => 'For the collaborative tools you have chosen to include '.
'or all members.',	'only core privileges are available, '.
'eaty' => 'Each of the types of functionality includes standard '.	'so there are no optional privileges to assign.',
'privileges which apply to members with access to that '.	'eaty' => 'Each collaborative tool includes core '.
'functionality, and may also include additional privileges '.	'privileges assigned to all members with access to the '.
	'tool. Some tools may also feature additional privileges '.
'which can be set for specific members.',	'which can be set for specific members.',
'cutg' => "Currently the $gpterm is configured ",	'cutg' => 'Currently the group is configured ',
'sdif' => "so different $gpterm members can receive different privileges.",	'sdif' => 'so different members can receive different optional privileges for a particular tool.',
'sall' => "so all $gpterm members will receive the same privileges.",	'sall' => 'so all members will receive the same optional privileges for a particular tool.',
'algm' => "All $gpterm members will receive the same privileges.",	'algm' => 'All group members will receive the same privileges for any tool assigned to them, including the default set of optional privileges.',
'smgp' => "Some $gpterm members will receive different privileges from ".	'smgp' => 'Different group members may receive different privileges from '.
"others.",	'others for the tools they have been assigned.',
'thwi' => "These will be the privileges all $gpterm members receive, ".	'thwi' => 'These will be the privileges all group members receive for a particular assigned tool, '.
"if you selected the first option above.",	'if you selected the first option above.',
'thes' => "These will be the privileges given to members assigned ".	'thes' => "These will be the privileges given to members assigned ".
"in the future, including via automatic $gpterm assignment ".	"in the future via automatic group assignment ".
"for specific sections/roles ",	"for users who receive specific sections/roles in the course ",
'asyo' => "As you have chosen not to include any functionality in the ".	'asyo' => "As you have chosen not to include any collaborative tools ".
"$gpterm, no default user privileges settings need to be set.",	"in the group, no default optional privileges need to be set.",
'plin' => 'Please indicate which <b>optional</b> privileges members '.	'plin' => 'Indicate which <b>optional</b> privileges members '.
'will receive by default.',	'will receive by default for a specific tool.',
'oppr' => 'Optional privileges',	'oppr' => 'Optional privileges',
'defp' => 'The default privileges new members will receive are:',	'defp' => 'The default privileges new members will receive are:',
);	);
Line 1807 sub privilege_specificity {	Line 2176 sub privilege_specificity {
}	}
&topic_bar($r,$img,$lt{'uprv'});	&topic_bar($r,$img,$lt{'uprv'});
if ((($action eq 'create') && (@{$available} > 0)) \|\|	if ((($action eq 'create') && (@{$available} > 0)) \|\|
(($action eq 'modify') && ($formname eq 'change_settings'))) {	(($action eq 'modify') && ($formname eq 'change_settings'))) {
my %specific = (	my %specific = (
'No' => 'checked="checked"',	'No' => 'checked="checked"',
'Yes' => '',	'Yes' => '',
Line 1815 sub privilege_specificity {	Line 2184 sub privilege_specificity {
if ($action eq 'create') {	if ($action eq 'create') {
$r->print($lt{'frty'}.'<br />');	$r->print($lt{'frty'}.'<br />');
if ($totaloptionalprivs) {	if ($totaloptionalprivs) {
$r->print($lt{'thar'});	$r->print($lt{'thar'}.'<br /><br />'.$lt{'plch'});
} else {	} else {
$r->print($lt{'fort'});	$r->print($lt{'fort'});
}	}
Line 1831 sub privilege_specificity {	Line 2200 sub privilege_specificity {
}	}
if ($totaloptionalprivs) {	if ($totaloptionalprivs) {
$r->print('	$r->print('
<br /><br />	<br />
<label><nobr><input type="radio" name="specificity" value="No" '.$specific{'No'}.' /> '.$lt{'algm'}.'</nobr></label><br />	<label><nobr><input type="radio" name="specificity" value="No" '.$specific{'No'}.' /> '.$lt{'algm'}.'</nobr></label><br />
<label><nobr><input type="radio" name="specificity" value="Yes" '.$specific{'Yes'}.' /> '.$lt{'smgp'}.'</nobr></label>');	<label><nobr><input type="radio" name="specificity" value="Yes" '.$specific{'Yes'}.' /> '.$lt{'smgp'}.'</nobr></label><br /><br />');
} else {	} else {
$r->print('<input type="hidden" name="specificity" value="No" />');	$r->print('<input type="hidden" name="specificity" value="No" />');
}	}
if ($totaloptionalprivs) {	if ($totaloptionalprivs) {
$r->print($lt{'plin'});	$r->print($lt{'plin'});
if ($action eq 'create') {	if ($action eq 'create') {
$r->print(' '.$lt{'thwi'});	$r->print('<br />'.$lt{'thwi'});
}	}
$r->print('<br />'.$lt{'thes'});	$r->print('<br />'.$lt{'thes'});
if ($action eq 'create') {	if ($action eq 'create') {
Line 1864 sub privilege_specificity {	Line 2233 sub privilege_specificity {
} else {	} else {
if ($action eq 'create') {	if ($action eq 'create') {
$r->print($lt{'asyo'});	$r->print($lt{'asyo'});
	$r->print('<input type="hidden" name="specificity" value="No" />');
} elsif ($action eq 'modify' && $formname eq 'pick_members') {	} elsif ($action eq 'modify' && $formname eq 'pick_members') {
my @defprivs;	my @defprivs;
if (ref($$stored{'defpriv'}) eq 'ARRAY') {	if (ref($$stored{'defpriv'}) eq 'ARRAY') {
Line 1888 sub default_privileges {	Line 2258 sub default_privileges {
'addp' => 'Additional privileges',	'addp' => 'Additional privileges',
'fixp' => 'Fixed privileges',	'fixp' => 'Fixed privileges',
'oppr' => 'Optional privileges',	'oppr' => 'Optional privileges',
'func' => 'Function',	'func' => 'Collaborative Tool',
);	);
$r->print(&Apache::lonhtmlcommon::start_pick_box('LC_group_priv_box').	$r->print(&Apache::lonhtmlcommon::start_pick_box('LC_group_priv_box').
&Apache::lonhtmlcommon::row_title($lt{'func'},undef,	&Apache::lonhtmlcommon::row_title($lt{'func'},undef,
Line 1908 sub default_privileges {	Line 2278 sub default_privileges {
if ($fixed ne '') {	if ($fixed ne '') {
$fixed .= '</td><td class="LC_groups_fixed">';	$fixed .= '</td><td class="LC_groups_fixed">';
}	}
$fixed .= '<input type="hidden" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.' ';	$fixed .= '<input type="hidden" name="defpriv" value="'.$priv.'" /><nobr>'.$$toolprivs{$tool}{$priv}.' ';
if ($action eq 'modify') {	if ($action eq 'modify') {
if (grep(/^$tool$/,@{$available})) {	if (grep(/^$tool$/,@{$available})) {
$fixed .= '<small>'.&mt('(on)').'<small> ';	$fixed .= '<small>'.&mt('(on)').'<small> ';
Line 1916 sub default_privileges {	Line 2286 sub default_privileges {
$fixed .= '<small>'.&mt('(off)').'<small> ';	$fixed .= '<small>'.&mt('(off)').'<small> ';
}	}
}	}
	$fixed .= '</nobr>';
} else {	} else {
$privcount++;	$privcount++;
if ($privcount == 3) {	if ($privcount == 3) {
$dynamic .= '</tr>	$dynamic .= '</tr>
<tr>'."\n";	<tr>'."\n";
}	}
$dynamic .= '<td><label><input type="checkbox" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'</label></td>'."\n";	$dynamic .= '<td><nobr><label><input type="checkbox" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'</label></nobr></td>'."\n";
}	}
}	}
if ($privcount == 0) {	if ($privcount == 0) {
$dynamic .= '<td>None</td>'."\n";	$dynamic .= '<td>None</td>'."\n";
}	}
if ($privcount < 3) {	if ($privcount < 3) {
$dynamic .= '</td>	$dynamic .= '<td> </td>'."\n";
<td> </td>'."\n";
} elsif ($privcount%2) {	} elsif ($privcount%2) {
$dynamic = '<td> </td>'."\n";	$dynamic = '<td> </td>'."\n";
}	}
Line 1957 sub display_defprivs {	Line 2327 sub display_defprivs {
my $rowColor2 = "#eeeeee";	my $rowColor2 = "#eeeeee";
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'priv' => 'Privileges',	'priv' => 'Privileges',
'func' => 'Function',	'func' => 'Collaborative Tool',
);	);
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print('<tr>');	$r->print('<tr>');
Line 2050 sub change_members_form {	Line 2420 sub change_members_form {
$groupname,$description,$granularity,$quota,	$groupname,$description,$granularity,$quota,
\@available,\@unavailable,$gpterm,$ucgpterm);	\@available,\@unavailable,$gpterm,$ucgpterm);
&topic_bar($r,2,$lt{'mogm'});	&topic_bar($r,2,$lt{'mogm'});
&current_membership($r,$cdom,$cnum,$formname,$groupname,\@available,	my $numcurrent = &current_membership($r,$cdom,$cnum,$formname,$groupname,
\@unavailable,$fixedprivs,$granularity,$specificity);	\@available,\@unavailable,$fixedprivs,
&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,	$granularity,$specificity);
$$states{$action}[$page+1],$nexttext);	if ($numcurrent > 0) {
	&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
	$$states{$action}[$page+1],$nexttext);
	} else {
	&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext);
	}
return;	return;
}	}

Line 2073 sub current_membership {	Line 2448 sub current_membership {
'reen' => 'Re-enable',	'reen' => 'Re-enable',
'acti' => 'Activate',	'acti' => 'Activate',
'dele' => 'Delete',	'dele' => 'Delete',
'curf' => 'Current Functionality',	'curf' => 'Current Tool Set',
'chpr' => 'Change Privileges'	'chpr' => 'Change Privileges'
);	);
my ($current,$hastools,$addtools,$num_reenable,$num_activate,$num_expire) =	my ($current,$num_items,$hastools,$addtools) =
&Apache::longroup::group_memberlist($cdom,$cnum,$groupname,$fixedprivs,	&Apache::longroup::group_memberlist($cdom,$cnum,$groupname,$fixedprivs,
$available);	$available);
if (keys(%{$current}) > 0) {	my $numcurrent = scalar(keys(%{$current}));
	if ($numcurrent > 0) {
$r->print('	$r->print('
<table>	<table>
<tr>');	<tr>');
if ($num_expire) {	if ($num_items->{'active'}) {
&check_uncheck_buttons($r,$formname,'expire',$lt{'expi'});	&check_uncheck_buttons($r,$formname,'expire',$lt{'expi'});
}	}
if ($num_reenable) {	if ($num_items->{'previous'}) {
&check_uncheck_buttons($r,$formname,'reenable',$lt{'reen'});	&check_uncheck_buttons($r,$formname,'reenable',$lt{'reen'});
}	}
if ($num_activate) {	if ($num_items->{'future'}) {
&check_uncheck_buttons($r,$formname,'activate',$lt{'acti'});	&check_uncheck_buttons($r,$formname,'activate',$lt{'acti'});
}	}
&check_uncheck_buttons($r,$formname,'deletion',$lt{'dele'});	&check_uncheck_buttons($r,$formname,'deletion',$lt{'dele'});
Line 2136 END	Line 2512 END
$colspan++;	$colspan++;
}	}
if ($addtools) {	if ($addtools) {
$r->print('<th>'.&mt('Additional Functionality').'</th>');	$r->print('<th>'.&mt('Additional Tools').'</th>');
$colspan++;	$colspan++;
}	}
$r->print(&Apache::loncommon::end_data_table_header_row());	$r->print(&Apache::loncommon::end_data_table_header_row());
Line 2249 END	Line 2625 END
}	}
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
	} else {
	$r->print(&mt('There are no active, future or previous group members to modify.'));
}	}
return;	return $numcurrent;
}	}

sub check_uncheck_buttons {	sub check_uncheck_buttons {
Line 2295 sub change_privs_form {	Line 2673 sub change_privs_form {
my $exp_or_del = 0;	my $exp_or_del = 0;
if (ref($$memchg{'deletion'}) eq 'ARRAY') {	if (ref($$memchg{'deletion'}) eq 'ARRAY') {
if (@{$$memchg{'deletion'}} > 0) {	if (@{$$memchg{'deletion'}} > 0) {
$r->print('<tr><td> </td><td colspan="3"><b>'.$lt{'tode'}.':</b><br /><ul>');	$r->print('<b>'.$lt{'tode'}.':</b><br /><ul>');
foreach my $user (@{$$memchg{'deletion'}}) {	foreach my $user (@{$$memchg{'deletion'}}) {
$r->print('<li>'.$$userdata{$user}[$$idx{fullname}].	$r->print('<li>'.$$userdata{$user}[$$idx{fullname}].
' ('.$user.')</li>');	' ('.$user.')</li>');
Line 2306 sub change_privs_form {	Line 2684 sub change_privs_form {
}	}
if (ref($$memchg{'expire'}) eq 'ARRAY') {	if (ref($$memchg{'expire'}) eq 'ARRAY') {
if (@{$$memchg{'expire'}} > 0) {	if (@{$$memchg{'expire'}} > 0) {
$r->print('<tr><td> </td><td colspan="3"><b>'.$lt{'toex'}.':</b><br /><ul>');	$r->print('<b>'.$lt{'toex'}.':</b><br /><ul>');
foreach my $user (@{$$memchg{'expire'}}) {	foreach my $user (@{$$memchg{'expire'}}) {
$r->print('<li>'.$$userdata{$user}[$$idx{fullname}].	$r->print('<li>'.$$userdata{$user}[$$idx{fullname}].
' ('.$user.')</li>');	' ('.$user.')</li>');
Line 2319 sub change_privs_form {	Line 2697 sub change_privs_form {
$r->print($lt{'nome'}.'<br />');	$r->print($lt{'nome'}.'<br />');
}	}

&topic_bar($r,4,&mt('[_1] member privileges',$ucgpterm));	&topic_bar($r,4,&mt('Setting optional privileges for specific group members'));

my $numchgs = &member_privileges_form($r,$action,$formname,$tools,	my $numchgs = &member_privileges_form($r,$action,$formname,$tools,
$toolprivs,$fixedprivs,$userdata,	$toolprivs,$fixedprivs,$userdata,
Line 2336 sub change_privs_form {	Line 2714 sub change_privs_form {
}	}

sub add_members_form {	sub add_members_form {
my ($r,$action,$formname,$page,$startdate,$enddate,$groupname,	my ($r,$cdom,$cnum,$action,$formname,$page,$startdate,$enddate,$groupname,
$description,$granularity,$quota,$sectioncount,$tools,$functions,	$description,$granularity,$quota,$sectioncount,$tools,$functions,
$stored,$states,$navbuttons,$gpterm,$ucgpterm)=@_;	$stored,$states,$navbuttons,$gpterm,$ucgpterm)=@_;
$r->print(' <br />');	$r->print(' <br />');
Line 2346 sub add_members_form {	Line 2724 sub add_members_form {
&print_current_settings($r,$action,$functions,$startdate,$enddate,	&print_current_settings($r,$action,$functions,$startdate,$enddate,
$groupname,$description,$granularity,$quota,	$groupname,$description,$granularity,$quota,
\@available,\@unavailable,$gpterm,$ucgpterm);	\@available,\@unavailable,$gpterm,$ucgpterm);
&membership_options($r,$action,$formname,$sectioncount,1,$gpterm,$ucgpterm);	&membership_options($r,$cdom,$cnum,$action,$formname,$sectioncount,1,$gpterm,
	$ucgpterm);
my $nexttext = $$navbuttons{'gtns'};	my $nexttext = $$navbuttons{'gtns'};
my $prevtext = $$navbuttons{'gtpp'};	my $prevtext = $$navbuttons{'gtpp'};
&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,	&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
Line 2375 sub choose_privs_form {	Line 2754 sub choose_privs_form {
$nexttext = $$navbuttons{'adme'};	$nexttext = $$navbuttons{'adme'};
}	}

&topic_bar($r,6,&mt('[_1] member privileges',$ucgpterm));	&topic_bar($r,6,&mt('Setting optional privileges for specific group members'));

&member_privileges_form($r,$action,$formname,$tools,$toolprivs,	&member_privileges_form($r,$action,$formname,$tools,$toolprivs,
$fixedprivs,$userdata,$usertools,$idx,undef,	$fixedprivs,$userdata,$usertools,$idx,undef,
$states,$stored,$gpterm);	$states,$stored,$gpterm);

if ($action eq 'create') {	if ($action eq 'create') {
if (keys(%{$sectioncount}) > 0) {	my $img1 = 7;
my $img1 = 7;	my $img2 = 8;
my $img2 = 8;	&mapping_options($r,$action,$formname,$page,$sectioncount,
&mapping_options($r,$action,$formname,$page,$sectioncount,	$states,$stored,$navbuttons,$img1,$img2,
$states,$stored,$navbuttons,$img1,$img2,	$gpterm,$ucgpterm,$crstype,$cdom,$cnum);
$gpterm,$ucgpterm,$crstype);
}
}	}
my $prevtext = $$navbuttons{'gtps'};	my $prevtext = $$navbuttons{'gtps'};
&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,	&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
Line 2459 sub member_privileges_form {	Line 2836 sub member_privileges_form {
$usertools,$idx,$memchg,$states,$stored,$gpterm) = @_;	$usertools,$idx,$memchg,$states,$stored,$gpterm) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'addp' => 'Additional privileges',	'addp' => 'Additional privileges',
'fixp' => 'Fixed privileges',	'fixp' => 'Core privileges',
'oppr' => 'Optional privileges',	'oppr' => 'Optional privileges',
'func' => 'Function',	'func' => 'Tool',
'forf' => 'For the functionality you have chosen to include '.	'forf' => 'For the collaborative tools included for group '.
'there are no optional privileges to set besides '.	'members being added or modified, '.
'the standard privileges.',	'there are no optional privileges to set '.
'algr' => "All $gpterm members will receive the same privileges.",	'for specific members.',
'asno' => "As no $gpterm members are being added, ".	'algr' => 'All new group members will receive the same privileges.', 'ifex' => 'If previously expired members are being re-enabled, or '.
"there are no specific user privileges to set.",	'if access for future members is being activated now, '.
'asng' => "As no $gpterm tools will be made available to users, ".	'previously set privileges will be preserved.',
"there are no specific user privileges to set.",	'asno' => 'As no group members are being added, '.
'nogm' => "No $gpterm member privileges to display or set, ".	'there are no specific user privileges to set.',
"as you have not indicated that you will be activating,".	'asng' => 'As no group tools will be made available to users, '.
" re-enabling, changing privileges, or adding/removing ".	'there are no specific user privileges to set.',
"functionality for any current members ",	'nogm' => 'No group member privileges to display or set, '.
	'as you have not indicated that you will be activating,'.
	' re-enabling, changing privileges, or adding/removing '.
	'tools for any current members.',
'full' => 'Fullname',	'full' => 'Fullname',
'user' => 'Username',	'user' => 'Username',
'doma' => 'Domain',	'doma' => 'Domain',
Line 2599 END	Line 2979 END
}	}
} else {	} else {
if (keys(%{$usertools}) > 0) {	if (keys(%{$usertools}) > 0) {
$r->print($lt{'algr'}.'<br /><br />');	$r->print($lt{'algr'}.'<br />'.$lt{'ifex'}.'<br /><br />');
&display_defprivs($r,$tools,$toolprivs,\@defprivs);	&display_defprivs($r,$tools,$toolprivs,\@defprivs);
} else {	} else {
$r->print($lt{'asno'}.'<br />');	$r->print($lt{'asno'}.'<br />');
Line 2711 sub write_group_data {	Line 3091 sub write_group_data {
}	}
if ($quota > $maxposs) {	if ($quota > $maxposs) {
$quota = $maxposs;	$quota = $maxposs;
$r->print(&mt('The value you entered for the quota for the file repository in this [_1] exceeded the maximum possible value, so it has been set to [_2] Mb (the maximum possible value).<br />',$gpterm,$maxposs));	$r->print(&mt('The value you entered for the quota for the file repository in this [_1] exceeded the maximum possible value, so it has been set to [_2] Mb (the maximum possible value).<br />',$gpterm,sprintf("%.2f",$maxposs)));
}	}
my %groupinfo = (	my %groupinfo = (
description => $esc_description,	description => $esc_description,
Line 2777 sub write_group_data {	Line 3157 sub write_group_data {
$description,$tools,\%groupinfo,	$description,$tools,\%groupinfo,
$gpterm,$ucgpterm,$crstype);	$gpterm,$ucgpterm,$crstype);
if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print(&mt('A problem occurred when creating folders for the new [_1]. [_2].<br />',$gpterm,$result));	$r->print(&mt('A problem occurred when creating folders for the new [_1].<br />[_2]<br />',$gpterm,$result));
}	}
$r->print(&mt('[_1] [_2] was created.<br />',$ucgpterm,$groupname));	$r->print(&mt('[_1] [_2] was created.<br />',$ucgpterm,$groupname));
} else {	} elsif ($action eq 'modify') {
	my (@oldtools,@newtools);
	if (ref($$stored{'tool'}) eq 'ARRAY') {
	@oldtools = @{$$stored{'tool'}};
	}
	if (ref($tools) eq 'ARRAY') {
	@newtools = @{$tools};
	}
	if (!grep(/^discussion$/,@oldtools) &&
	grep(/^discussion$/,@newtools)) {
	my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
	my $boardsmap = $crspath.'group_boards_'.$groupname.'.sequence';
	my $navmap = Apache::lonnavmaps::navmap->new();
	my $bbmapres = $navmap->getResourceByUrl($boardsmap);
	undef($navmap);
	if (!$bbmapres) {
	my $grpmap = $crspath.'group_folder_'.$groupname.'.sequence';
	my $disctitle = &mt('Discussion Boards');
	my $outcome = &map_updater($cdom,$cnum,'group_boards_'.
	$groupname.'.sequence','bbseq',
	$disctitle,$grpmap);
	my ($furl,$ferr) =
	&Apache::lonuserstate::readmap($cdom.'/'.$cnum);
	$navmap = Apache::lonnavmaps::navmap->new();
	# modify parameter
	if ($outcome eq 'ok') {
	my $parm_result = &parm_setter($navmap,$cdom,$boardsmap,
	$groupname);
	if ($parm_result) {
	$r->print(&mt('Error while setting parameters '.
	'for Discussion Boards folder: '.
	'[_1]<br />.',$parm_result));
	} else {
	$r->print(&mt('Discussion Boards Folder created.<br />'));
	}
	} else {
	$r->print($outcome);
	}
	undef($navmap);
	}
	}
$r->print(&mt('[_1] [_2] was updated.<br />',$ucgpterm,$groupname));	$r->print(&mt('[_1] [_2] was updated.<br />',$ucgpterm,$groupname));
}	}
} else {	} else {
Line 3000 sub process_membership {	Line 3420 sub process_membership {
}	}
if ($roster_result eq 'ok') {	if ($roster_result eq 'ok') {
$r->print('<br />'.&mt('[_1] membership list updated.',$ucgpterm));	$r->print('<br />'.&mt('[_1] membership list updated.',$ucgpterm));
$r->print('<p>'.&mt("For full access to all of [_1]'s privileges, users will need to log out and log back in.",$groupname).'</p>');	$r->print('<p>'.&mt("Any currently logged in course users affected by the changes you made to group membership or privileges for the [_1] group will need to log out and log back in for their LON-CAPA sessions to reflect these changes.",$groupname).'</p>');
} else {	} else {
$r->print('<br />'.&mt('An error occurred while updating the [_1] membership list -',$gpterm).$roster_result.'<br />');	$r->print('<br />'.&mt('An error occurred while updating the [_1] membership list -',$gpterm).$roster_result.'<br />');
}	}
Line 3009 sub process_membership {	Line 3429 sub process_membership {

sub mapping_options {	sub mapping_options {
my ($r,$action,$formname,$page,$sectioncount,$states,$stored,	my ($r,$action,$formname,$page,$sectioncount,$states,$stored,
$navbuttons,$img1,$img2,$gpterm,$ucgpterm,$crstype) = @_;	$navbuttons,$img1,$img2,$gpterm,$ucgpterm,$crstype,$cdom,$cnum) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'auto' => "Settings for automatic $gpterm enrollment",	'auto' => "Settings for automatic $gpterm enrollment",
'gmma' => "$ucgpterm membership mapping to specific sections/roles",	'gmma' => "$ucgpterm membership mapping to specific sections/roles",
'endi' => "Enable/disable automatic $gpterm enrollment for ".	'endi' => "Enable/disable automatic $gpterm enrollment for ".
"users in specified roles and sections",	"users in specified roles and sections",
'adds' => "If automatic $gpterm enrollment is enabled, when a user is assigned a ".lc($crstype)."-wide or section-specific role, he/she will automatically be added as a member of the $gpterm, with start and end access dates defined by the default dates set for the $gpterm, unless he/she is already a $gpterm member, with access dates that permit either current or future $gpterm access.",	'adds' => "If automatic $gpterm enrollment is enabled, when a user is newly assigned a ".lc($crstype)."-wide or section-specific role, he/she will automatically be added as a member of the $gpterm, with start and end access dates defined by the default dates set for the $gpterm, unless he/she is already a $gpterm member, with access dates that permit either current or future $gpterm access.",
'drops' => "If automatic $gpterm disenrollment is enabled, when a user's role is expired, access to the $gpterm will be terminated unless the user continues to have other ".lc($crstype)."-wide or section-specific active or future roles which receive automatic membership in the $gpterm.",	'drops' => "If automatic $gpterm disenrollment is enabled, when a user's role is expired, access to the $gpterm will be terminated unless the user continues to have other ".lc($crstype)."-wide or section-specific active or future roles which receive automatic membership in the $gpterm.",
'pirs' => "Pick roles and sections for automatic $gpterm enrollment",	'pirs' => "Pick roles and sections for automatic $gpterm enrollment",
'curr' => 'Currently set to',	'curr' => 'Currently set to',
Line 3026 sub mapping_options {	Line 3446 sub mapping_options {
'mapr' => "Mapping of roles and sections affected by automatic $gpterm enrollment/disenrollment follows scheme chosen below.",	'mapr' => "Mapping of roles and sections affected by automatic $gpterm enrollment/disenrollment follows scheme chosen below.",
);	);
&automapping($r,$action,$stored,\%lt,$img1);	&automapping($r,$action,$stored,\%lt,$img1);
&mapping_settings($r,$sectioncount,\%lt,$stored,$img2,$crstype);	&mapping_settings($r,$sectioncount,\%lt,$stored,$img2,$crstype,$cdom,$cnum,
	$action);
return;	return;
}	}

Line 3059 sub automapping {	Line 3480 sub automapping {
}	}

sub mapping_settings {	sub mapping_settings {
my ($r,$sectioncount,$lt,$stored,$image,$crstype) = @_;	my ($r,$sectioncount,$lt,$stored,$image,$crstype,$cdom,$cnum,$action) = @_;
my @sections = keys(%{$sectioncount});	my @sections = keys(%{$sectioncount});
if (@sections > 0) {	if (@sections > 0) {
@sections = sort {$a cmp $b} @sections;	@sections = sort {$a cmp $b} @sections;
unshift(@sections,'none'); # Put 'no sections' next	unshift(@sections,'none'); # Put 'no sections' next
unshift(@sections,'all'); # Put 'all' at the front of the list	unshift(@sections,'all'); # Put 'all' at the front of the list
	} else {
	@sections = ('all','none');
}	}
&topic_bar($r,$image,$$lt{'pirs'});	&topic_bar($r,$image,$$lt{'pirs'});
my @roles = &standard_roles();	my @roles = &standard_roles();
my %customroles = &my_custom_roles();	my %customroles = &Apache::lonhtmlcommon::course_custom_roles($cdom,$cnum);
$r->print(&Apache::loncommon::start_data_table().	$r->print(&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row());	&Apache::loncommon::start_data_table_header_row());
$r->print('	$r->print('
Line 3079 sub mapping_settings {	Line 3502 sub mapping_settings {
}	}
$r->print(&Apache::loncommon::end_data_table_header_row()."\n");	$r->print(&Apache::loncommon::end_data_table_header_row()."\n");
foreach my $role (@roles) {	foreach my $role (@roles) {
my $plrole=&Apache::lonnet::plaintext($role,$crstype);	my $roletitle=&Apache::lonnet::plaintext($role,$crstype);
my $sections_sel;	$r->print(&print_autorole_item($role,$roletitle,\@sections));
if (@sections > 0) {
if ($role eq 'cc') {
$sections_sel = '<td align="right">'.
&mt('all sections').'<input type="hidden" '.
'name="sec_cc" value="all" /></td>';
} else {
$sections_sel='<td align="right">'.
&sections_selection(\@sections,'sec_'.$role).
'</td>';
}
}
$r->print(&Apache::loncommon::start_data_table_row().
'<td><input type="checkbox" '.
'name="autorole" value="'.$role.'" /></td><td>'.$plrole.
'</td>'.$sections_sel.
&Apache::loncommon::end_data_table_row());
}	}
	my @customs;
foreach my $role (sort(keys(%customroles))) {	foreach my $role (sort(keys(%customroles))) {
my $sections_sel;	my ($roletitle) = ($role =~ m\|^cr/[^/]+/[^/]+/(.+)$\|);
if (@sections > 0) {	push (@customs,$role);
$sections_sel =	$r->print(&print_autorole_item($role,$roletitle,\@sections));
'<td>'.&sections_selection(\@sections,'sec_'.$role).'</td>';	}
}	if ($action eq 'modify') {
$r->print(&Apache::loncommon::start_data_table_row().	foreach my $role (@{$$stored{'autorole'}}) {
'<td><input type="checkbox" '.	if ((!grep(/^\Q$role\E$/,@customs)) &&
'value="'.$role.'" /></td><td>'.$role.'</td>'.	(!grep(/^\Q$role\E$/,@roles))) {
$sections_sel.	my $roletitle;
&Apache::loncommon::end_data_table_row());	if ($role =~ /^cr/) {
	($roletitle) = ($role =~ m\|_([^_]+)$\|);
	} else {
	$roletitle = &Apache::lonnet::plaintext($role,$crstype);
	}
	$r->print(&print_autorole_item($role,$roletitle,\@sections));
	}
	}
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
return;	return;
}	}

	sub print_autorole_item {
	my ($role,$roletitle,$sections) = @_;
	my $sections_sel;
	if (@{$sections} > 0) {
	if ($role eq 'cc') {
	$sections_sel = '<td align="right">'.
	&mt('all sections').'<input type="hidden" '.
	'name="sec_cc" value="all" /></td>';
	} else {
	$sections_sel='<td align="right">'.
	&sections_selection($sections,'sec_'.$role).
	'</td>';
	}
	}
	my $output = &Apache::loncommon::start_data_table_row().
	'<td><input type="checkbox" '.
	'name="autorole" value="'.$role.'" />'.
	'</td><td>'.$roletitle.'</td>'.$sections_sel.
	&Apache::loncommon::end_data_table_row();
	return $output;
	}

sub standard_roles {	sub standard_roles {
my @roles = ('cc','in','ta','ep','st');	my @roles = ('cc','in','ta','ep','st');
return @roles;	return @roles;
}	}

sub my_custom_roles {
my %returnhash=();
my %rolehash=&Apache::lonnet::dump('roles');
foreach (keys %rolehash) {
if ($_=~/^rolesdef\_(\w+)$/) {
$returnhash{$1}=$1;
}
}
return %returnhash;
}

sub modify_menu {	sub modify_menu {
my ($r,$groupname,$page,$gpterm) = @_;	my ($r,$groupname,$page,$gpterm) = @_;
my @menu =	my @menu =
Line 3182 sub member_privs_entries {	Line 3608 sub member_privs_entries {
<td>'.$$userdata{$user}[$$idx{fullname}].'</td>	<td>'.$$userdata{$user}[$$idx{fullname}].'</td>
<td>'.$uname.'</td>	<td>'.$uname.'</td>
<td>'.$udom.'</td>	<td>'.$udom.'</td>
<td valign="top"><table><tr><td><b>Function</b></td></tr><tr><td><b>Fixed</b></td></tr><tr><td><b>Optional</b></td></tr></table></td>');	<td valign="top">
	<table>
	<tr>
	<td><b>'.
	&mt('Collaborative Tool').'</b></td>
	</tr>
	<tr>
	<td><b>'.&mt('Fixed').'</b></td>
	</tr>
	<tr>
	<td><b>'.&mt('Optional').'</b></td>
	</tr>
	</table>
	</td>');
foreach my $tool (@{$showtools}) {	foreach my $tool (@{$showtools}) {
if (exists($$usertools{$user}{$tool})) {	if (exists($$usertools{$user}{$tool})) {
$r->print('<td valign="top"><table><tr><th colspan="2">'.$tool.'</th></tr>');	$r->print('<td valign="top"><table><tr><th colspan="2">'.$tool.'</th></tr>');
Line 3252 sub add_group_folder {	Line 3691 sub add_group_folder {
if ($cdom eq '' \|\| $cnum eq '') {	if ($cdom eq '' \|\| $cnum eq '') {
return &mt('Error: invalid course domain or number - group folder creation failed');	return &mt('Error: invalid course domain or number - group folder creation failed');
}	}
my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage);	my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage,$warning);
my $navmap = Apache::lonnavmaps::navmap->new();
my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';	my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
$allgrpsmap = $crspath.'group_allfolders.sequence';	$allgrpsmap = $crspath.'group_allfolders.sequence';
my $topmap = $navmap->getResourceByUrl($allgrpsmap);
undef($navmap);
if ($action eq 'create') {	if ($action eq 'create') {
# check if group_allfolders.sequence exists.	if (&get_folder_lock($cdom,$cnum,'group_allfolders',$now) eq 'ok') {
if (!$topmap) {	# check if group_allfolders.sequence exists.
my $grpstitle = &mt('[_1] [_2]',$crstype,$ucgpterm);	my $mapcontents = &Apache::lonnet::getfile($allgrpsmap);
my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};	if ($mapcontents eq '-1') { #file does not exist;
$topmap_url =~ s\|/+\|/\|g;	my $grpstitle = &mt('[_1] [_2]s',$crstype,$ucgpterm);
if ($topmap_url =~ m\|^/uploaded\|) {	my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};
$outcome = &map_updater($cdom,$cnum,'group_allfolders.sequence',	$topmap_url =~ s\|/+\|/\|g;
'toplevelgroup',$grpstitle,$topmap_url);	if ($topmap_url =~ m\|^/uploaded\|) {
	$outcome = &map_updater($cdom,$cnum,'group_allfolders.sequence',
	'toplevelgroup',$grpstitle,$topmap_url);
	} else {
	$outcome = &mt('Non-standard course - folder for all groups not added.');
	}
if ($outcome ne 'ok') {	if ($outcome ne 'ok') {
	my $delresult = &release_folder_lock($cdom,$cnum,'group_allfolders');
	if ($delresult ne 'ok') {
	$warning = $delresult;
	}
return $outcome;	return $outcome;
}	}
} else {
$outcome = &mt('Non-standard course - folder for all groups not added.');
return $outcome;
}	}
	my $delresult = &release_folder_lock($cdom,$cnum,'group_allfolders');
	if ($delresult ne 'ok') {
	$warning = $delresult ;
	}
	} else {
	$outcome = &mt('Could not obtain exclusive lock to check status of the folder for all groups. No group folder added.');
	return $outcome;
}	}
my $grpfolder = &mt('[_1] Folder -',$ucgpterm,).$description;	my $grpfolder = &mt('[_1] Folder -',$ucgpterm,).$description;
$grppage='/adm/'.$cdom.'/'.$cnum.'/'.$groupname.'/grppg';	$grppage='/adm/'.$cdom.'/'.$cnum.'/'.$groupname.'/smppg';
my $grptitle = &mt('Group homepage').' - '.$description;	my $grptitle = &mt('Group homepage').' - '.$description;
my ($seqid,$discussions,$disctitle);	my ($discussions,$disctitle);
my $outcome = &map_updater($cdom,$cnum,'group_folder_'.$groupname.'.sequence',	my $outcome = &map_updater($cdom,$cnum,'group_folder_'.$groupname.'.sequence',
'grpseq',$grpfolder,$allgrpsmap,$grppage,	'grpseq',$grpfolder,$allgrpsmap,$grppage,
$grptitle);	$grptitle);
if ($outcome ne 'ok') {	if ($outcome ne 'ok') {
return $outcome;	return $outcome.$warning;
}	}
my $pageout = &create_homepage($cdom,$cnum,$groupname,$groupinfo,	my $pageout = &create_homepage($cdom,$cnum,$groupname,$groupinfo,
$tools,$gpterm,$ucgpterm,$now);	$tools,$gpterm,$ucgpterm,$now);
# Link to folder for bulletin boards	# Link to folder for bulletin boards
$grpmap = $crspath.'group_folder_'.$groupname.'.sequence';	$grpmap = $crspath.'group_folder_'.$groupname.'.sequence';
if (grep/^discussion$/,@{$tools}) {	if (grep/^discussion$/,@{$tools}) {
$seqid = $now + 1;
$disctitle = &mt('Discussion Boards');	$disctitle = &mt('Discussion Boards');
my $outcome = &map_updater($cdom,$cnum,'group_boards_'.$groupname.	my $outcome = &map_updater($cdom,$cnum,'group_boards_'.$groupname.
'.sequence','bbseq',$disctitle,$grpmap);	'.sequence','bbseq',$disctitle,$grpmap);
if ($outcome ne 'ok') {	if ($outcome ne 'ok') {
return $outcome;	return $outcome.$warning;
}	}
$boardsmap = $crspath.'group_boards_'.$groupname.'.sequence';	$boardsmap = $crspath.'group_boards_'.$groupname.'.sequence';
}	}
Line 3303 sub add_group_folder {	Line 3751 sub add_group_folder {
#modify group folder if status of discussions tools is changed	#modify group folder if status of discussions tools is changed
}	}
my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);	my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
$navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
# modify parameters	# modify parameters
my $parm_result;	my $parm_result;
if ($action eq 'create') {	if ($action eq 'create') {
if ($allgrpsmap) {
$parm_result .= &parm_setter($navmap,$cdom,$allgrpsmap,$groupname);
}
if ($grpmap) {	if ($grpmap) {
$parm_result .= &parm_setter($navmap,$cdom,$grpmap,$groupname);	$parm_result .= &parm_setter($navmap,$cdom,$grpmap,$groupname);
}	}
Line 3320 sub add_group_folder {	Line 3765 sub add_group_folder {
$parm_result .= &parm_setter($navmap,$cdom,$boardsmap,$groupname);	$parm_result .= &parm_setter($navmap,$cdom,$boardsmap,$groupname);
}	}
}	}
	undef($navmap);
if ($parm_result) {	if ($parm_result) {
return $parm_result;	return $warning.$parm_result;
	} else {
	return 'ok';
	}
	}

	sub get_folder_lock {
	my ($cdom,$cnum,$folder_name,$now) = @_;
	# get lock for folder being edited.
	my $lockhash = {
	$folder_name."\0".'locked_folder' => $now.':'.$env{'user.name'}.
	':'.$env{'user.domain'},
	};
	my $tries = 0;
	my $gotlock = &Apache::lonnet::newput('coursegroups',$lockhash,$cdom,$cnum);

	while (($gotlock ne 'ok') && $tries <3) {
	$tries ++;
	sleep(1);
	$gotlock = &Apache::lonnet::newput('coursegroups',$lockhash,$cdom,$cnum);
	}
	return $gotlock;
	}

	sub release_folder_lock {
	my ($cdom,$cnum,$folder_name) = @_;
	# remove lock
	my @del_lock = ($folder_name."\0".'locked_folder');
	my $dellockoutcome=&Apache::lonnet::del('coursegroups',\@del_lock,$cdom,$cnum);
	if ($dellockoutcome ne 'ok') {
	return ('<br />'.&mt('Warning: failed to release lock for folder: [_1].',$folder_name).'<br />');
} else {	} else {
return 'ok';	return 'ok';
}	}
Line 3338 sub map_updater {	Line 3814 sub map_updater {
if ($newmapurl !~ m\|^/uploaded\|) {	if ($newmapurl !~ m\|^/uploaded\|) {
$outcome = &mt('Error uploading new folder.')." ($newfile): $newmapurl".'<br />';	$outcome = &mt('Error uploading new folder.')." ($newfile): $newmapurl".'<br />';
return $outcome;	return $outcome;
}	}
my ($errtext,$fatal)=&Apache::lonratedt::mapread($parentmap);	my ($errtext,$fatal)=&LONCAPA::map::mapread($parentmap);
if ($fatal) {	if ($fatal) {
$outcome = &mt('Error reading contents of parent folder')." ($parentmap): $errtext".'<br />';	$outcome = &mt('Error reading contents of parent folder')." ($parentmap): $errtext".'<br />';
return $outcome;	return $outcome;
} else {	} else {
my $newidx=&Apache::lonratedt::getresidx($newmapurl);	my $newidx=&LONCAPA::map::getresidx($newmapurl);
$Apache::lonratedt::resources[$newidx] = $itemtitle.':'.$newmapurl.	$LONCAPA::map::resources[$newidx] = $itemtitle.':'.$newmapurl.
':false:normal:res';	':false:normal:res';
$Apache::lonratedt::order[1+$#Apache::lonratedt::order]=$newidx;	$LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx;
my ($outtext,$errtext) = &Apache::lonratedt::storemap($parentmap,1);	my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1);
if ($errtext) {	if ($errtext) {
$outcome = &mt('Error storing updated parent folder')." ($parentmap): $errtext".'<br />';	$outcome = &mt('Error saving updated parent folder')." ($parentmap): $errtext".'<br />';
return $outcome;	return $outcome;
}	}
}	}
Line 3384 sub parm_setter {	Line 3860 sub parm_setter {
},	},
);	);
my $res = $navmap->getResourceByUrl($url);	my $res = $navmap->getResourceByUrl($url);
my $symb = $res->symb();	if ($res) {
foreach my $level (keys(%hide_settings)) {	my $symb = $res->symb();
my $parmresult = &Apache::lonparmset::storeparm_by_symb($symb,	foreach my $level (keys(%hide_settings)) {
	my $parmresult =
	&Apache::lonparmset::storeparm_by_symb($symb,
'0_hiddenresource',	'0_hiddenresource',
$hide_settings{$level}{'num'},	$hide_settings{$level}{'num'},
$hide_settings{$level}{'set'},	$hide_settings{$level}{'set'},
'string_yesno',undef,$cdom,	'string_yesno',undef,$cdom,
undef,undef,	undef,undef,
$hide_settings{$level}{'extra'});	$hide_settings{$level}{'extra'});
if ($parmresult) {	if ($parmresult) {
$allresults .= $level.': '.$parmresult;	$allresults .= $level.': '.$parmresult;
	}
}	}
	} else {
	$allresults = &mt('Parameters not set for [_1] because the resource was not recognized as part of the course',$url).'<br />';
}	}
return $allresults;	return $allresults;
}	}
Line 3459 sub validate_groupname {	Line 3940 sub validate_groupname {
my ($groupname,$action,$cdom,$cnum,$gpterm,$ucgpterm,$crstype) = @_;	my ($groupname,$action,$cdom,$cnum,$gpterm,$ucgpterm,$crstype) = @_;
my %sectioncount = &Apache::loncommon::get_sections($cdom,$cnum);	my %sectioncount = &Apache::loncommon::get_sections($cdom,$cnum);
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
	my %deleted_groups = &Apache::longroup::coursegroups($cdom,$cnum,undef,
	'deleted_groups');
	if (my $tmp = &Apache::lonnet::error(%deleted_groups)) {
	undef(%deleted_groups);
	&Apache::lonnet::logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom);
	}
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
igna => "Invalid $gpterm name",	igna => "Invalid $gpterm name",
tgne => "The $gpterm name entered ",	tgne => "The $gpterm name entered ",
Line 3486 sub validate_groupname {	Line 3972 sub validate_groupname {
return $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}.	return $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}.
'<br />'.$lt{'grna'};	'<br />'.$lt{'grna'};
}	}
if ($action eq 'create'	if ($action eq 'create') {
&& exists($curr_groups{$groupname})) {	if (exists($curr_groups{$groupname})) {
	return $exitmsg.$lt{'cnnb'}.&mt('an existing [_1]',$gpterm).
return $exitmsg.$lt{'cnnb'}.&mt('an existing [_1]',$gpterm).	$lt{'inth'}.'.<br />'.$lt{'grna'};
$lt{'inth'}.'<br />'.$lt{'grna'};	} elsif (exists($deleted_groups{$groupname})) {
	return $exitmsg.$lt{'cnnb'}.&mt('a [_1] which previously existed',$gpterm).
	$lt{'inth'}.'.<br />'.$lt{'grna'};
	}
} elsif ($action eq 'modify') {	} elsif ($action eq 'modify') {
unless(exists($curr_groups{$groupname})) {	unless(exists($curr_groups{$groupname})) {
$earlyout = &mt('[_1] name:',$ucgpterm).' '.$groupname.$lt{'thgr'}.	$earlyout = &mt('[_1] name:',$ucgpterm).' '.$groupname.$lt{'thgr'}.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.48
changed lines
	Added in v.1.72