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.44 and 1.57

version 1.44, 2006/07/07 19:50:21	version 1.57, 2006/07/21 02:51:31
Line 59 sub handler {	Line 59 sub handler {

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['action','refpage','state','groupname','branch']);	['action','refpage','state','groupname','branch']);
my $function = &Apache::loncommon::get_users_function();
my $tabcol = &Apache::loncommon::designparm($function.'.tabbg');
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
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 89 sub handler {
$idx{uname} = &Apache::loncoursedata::CL_SNAME();	$idx{uname} = &Apache::loncoursedata::CL_SNAME();
$idx{section} = &Apache::loncoursedata::CL_SECTION();	$idx{section} = &Apache::loncoursedata::CL_SECTION();

my $rowColor1 = "#dddddd";
my $rowColor2 = "#eeeeee";

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')) {
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') {
if ($view_permission \|\| $manage_permission) {	if ($view_permission \|\| $manage_permission) {
&group_administration($r,$action,$state,$cdom,$cnum,$function,	if ($state eq 'view') {
$tabcol,\%functions,\%idx,$view_permission,	&print_main_menu($r,$cdom,$cnum,\%functions,\%idx,
$manage_permission,$rowColor1,$rowColor2,	$view_permission,$manage_permission,
$gpterm,$ucgpterm,$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 122 sub handler {	Line 123 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();
}\n\|;	}\n\|;
$r->print(&header($pagename,$jscript,$action,$state));	$r->print(&header('Groups',$jscript,$action,$state));
	if ($env{'form.refpage'} eq 'enrl') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/dropadd",
	text=>"Enrollment Manager"});
	}
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/coursegroups",	({href=>"/adm/coursegroups",
text=>"$pagename"});	text=>"Groups"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs($pagename));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Groups'));
&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 147 sub display_groups {	Line 152 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'}.'&groupname=',
Line 157 sub display_groups {	Line 162 sub display_groups {
view => 'View',	view => 'View',
delete => 'Delete',	delete => 'Delete',
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',
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)) {
Line 182 sub display_groups {	Line 187 sub display_groups {
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
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 (!exists($env{'form.refpage'})) {
	$r->print('<br /><a href="/adm/coursegroups?action=create">'.$lt{'crng'}.'</a>');
	}
}	}
$r->print('<br /><br />');	$r->print('<br /><br />');
$r->print(&Apache::loncommon::start_data_table().	$r->print(&Apache::loncommon::start_data_table().
Line 278 END	Line 285 END
if ($action eq 'modify' \|\| $action eq 'delete') {	if ($action eq 'modify' \|\| $action eq 'delete') {
$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') {
Line 317 END	Line 327 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>');	if (!exists($env{'form.refpage'})) {
	$r->print('<br /><br /><a href="/adm/coursegroups?action=create">'.$lt{'crng'}.'</a>');
	}
} else {	} else {
$r->print('<br /><br />'.$lt{'alth'});	$r->print('<br /><br />'.$lt{'alth'});

Line 334 END	Line 346 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 348 END	Line 359 END
}	}

sub group_administration {	sub group_administration {
my ($r,$action,$state,$cdom,$cnum,$function,$tabcol,$functions,$idx,	my ($r,$action,$state,$cdom,$cnum,$functions,$idx,$view_permission,
$view_permission,$manage_permission,$rowColor1,$rowColor2,$gpterm,	$manage_permission,$gpterm,$ucgpterm,$crstype) = @_;
$ucgpterm,$crstype) = @_;
my %sectioncount = ();	my %sectioncount = ();
my @tools = ();	my @tools = ();
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 407 sub group_administration {	Line 418 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);
Line 502 sub group_administration {	Line 511 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 520 sub group_administration {	Line 527 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 562 sub group_administration {	Line 571 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 731 sub group_administration {	Line 740 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 788 function changeSort(caller) {	Line 797 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');
@{$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 812 function changeSort(caller) {	Line 821 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 'enrl') {
Line 821 function changeSort(caller) {	Line 829 function changeSort(caller) {
({href=>"/adm/dropadd",	({href=>"/adm/dropadd",
text=>"Enrollment Manager",	text=>"Enrollment Manager",
faq=>9,bug=>'Instructor Interface',});	faq=>9,bug=>'Instructor Interface',});
} else {	if ($action eq 'modify') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/coursegroups?refpage=enrl&action=modify",
	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 836 function changeSort(caller) {	Line 855 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 864 function changeSort(caller) {	Line 882 function changeSort(caller) {
&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"));
&display_control($r,$cdom,$cnum,$tabcol,$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,
\%users,\%userdata,$idx,\%memchg,\%usertools,	\%users,\%userdata,$idx,\%memchg,\%usertools,
$function,$view_permission,$manage_permission,	$view_permission,$manage_permission,
\%stored,$granularity,$quota,$specificity,\@types,\@roles,	\%stored,$granularity,$quota,$specificity,\@types,\@roles,
\@sections,\%states,\%navbuttons,$rowColor1,$rowColor2,	\@sections,\%states,\%navbuttons,$gpterm,$ucgpterm,
$gpterm,$ucgpterm,$crstype);	$crstype);
last;	last;
} else {	} else {
if (($state eq 'result') && ($i > 0)) {	if (($state eq 'result') && ($i > 0)) {
Line 889 function changeSort(caller) {	Line 907 function changeSort(caller) {
} 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);
Line 960 sub retrieve_settings {	Line 977 sub retrieve_settings {
}	}

sub display_control {	sub display_control {
my ($r,$cdom,$cnum,$tabcol,$action,$state,$page,$sectioncount,$groupname,	my ($r,$cdom,$cnum,$action,$state,$page,$sectioncount,$groupname,
$description,$functions,$tools,$toolprivs,$fixedprivs,$startdate,	$description,$functions,$tools,$toolprivs,$fixedprivs,$startdate,
$enddate,$users,$userdata,$idx,$memchg,$usertools,$function,	$enddate,$users,$userdata,$idx,$memchg,$usertools,
$view_permission,$manage_permission,$stored,$granularity,$quota,	$view_permission,$manage_permission,$stored,$granularity,$quota,
$specificity,$types,$roles,$sections,$states,$navbuttons,$rowColor1,	$specificity,$types,$roles,$sections,$states,$navbuttons,
$rowColor2,$gpterm,$ucgpterm,$crstype) = @_;	$gpterm,$ucgpterm,$crstype) = @_;
if ($action eq 'create') {	if ($action eq 'create') {
if ($state eq 'pick_name') {	if ($state eq 'pick_name') {
&general_settings_form($r,$cdom,$cnum,$action,$tabcol,$state,$page,	&general_settings_form($r,$cdom,$cnum,$action,$state,$page,
$functions,$tools,$toolprivs,$fixedprivs,	$functions,$tools,$toolprivs,$fixedprivs,
$sectioncount,$stored,$states,$navbuttons,	$sectioncount,$stored,$states,$navbuttons,
$rowColor1,$rowColor2,$gpterm,$ucgpterm,	$gpterm,$ucgpterm,$crstype);
$crstype);
} elsif ($state eq 'pick_members') {	} elsif ($state eq 'pick_members') {
&choose_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,	&choose_members_form($r,$cdom,$cnum,$action,$state,$page,
$groupname,$description,$granularity,$quota,	$groupname,$description,$granularity,$quota,
$startdate,$enddate,$tools,$fixedprivs,	$startdate,$enddate,$tools,$fixedprivs,
$toolprivs,$functions,$users,$userdata,$idx,	$toolprivs,$functions,$users,$userdata,$idx,
$stored,$states,$navbuttons,$rowColor1,	$stored,$states,$navbuttons,$gpterm,$ucgpterm,
$rowColor2,$gpterm,$ucgpterm,$crstype);	$crstype);
} elsif ($state eq 'pick_privs') {	} elsif ($state eq 'pick_privs') {
&choose_privs_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,	&choose_privs_form($r,$cdom,$cnum,$action,$state,$page,
$startdate,$enddate,$tools,$functions,	$startdate,$enddate,$tools,$functions,
$toolprivs,$fixedprivs,$userdata,$usertools,	$toolprivs,$fixedprivs,$userdata,$usertools,
$idx,$states,$stored,$sectioncount,$navbuttons,	$idx,$states,$stored,$sectioncount,$navbuttons,
$rowColor1,$rowColor2,$gpterm,$ucgpterm,	$gpterm,$ucgpterm,$crstype);
$crstype);
} elsif ($state eq 'result') {	} elsif ($state eq 'result') {
&process_request($r,$cdom,$cnum,$tabcol,$action,$state,$page,	&process_request($r,$cdom,$cnum,$action,$state,$page,
$groupname,$description,$specificity,$userdata,	$groupname,$description,$specificity,$userdata,
$startdate,$enddate,$tools,$functions,	$startdate,$enddate,$tools,$functions,
$toolprivs,$usertools,$idx,$types,$roles,	$toolprivs,$usertools,$idx,$types,$roles,
$sections,$states,$navbuttons,$memchg,	$sections,$states,$navbuttons,$memchg,
$sectioncount,$stored,$rowColor1,$rowColor2,	$sectioncount,$stored,$gpterm,$ucgpterm,$crstype);
$gpterm,$ucgpterm,$crstype);
}	}
} 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,$tabcol,$state,$page,	&general_settings_form($r,$cdom,$cnum,$action,$state,$page,
$functions,$tools,$toolprivs,$fixedprivs,	$functions,$tools,$toolprivs,$fixedprivs,
$sectioncount,$stored,$states,$navbuttons,	$sectioncount,$stored,$states,$navbuttons,
$rowColor1,$rowColor2,$gpterm,$ucgpterm,	$gpterm,$ucgpterm,$crstype);
$crstype);
} elsif ($state eq 'change_members') {	} elsif ($state eq 'change_members') {
&change_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,	&change_members_form($r,$cdom,$cnum,$action,$state,$page,
$groupname,$description,$startdate,$enddate,	$groupname,$description,$startdate,$enddate,
$tools,$fixedprivs,$functions,$users,	$tools,$fixedprivs,$functions,$users,
$userdata,$granularity,$quota,$specificity,	$userdata,$granularity,$quota,$specificity,
$idx,$states,$navbuttons,$rowColor1,$rowColor2,	$idx,$states,$navbuttons,$gpterm,$ucgpterm);
$gpterm,$ucgpterm);
} elsif ($state eq 'add_members') {	} elsif ($state eq 'add_members') {
&add_members_form($r,$tabcol,$action,$state,$page,$startdate,	&add_members_form($r,$action,$state,$page,$startdate,
$enddate,$groupname,$description,$granularity,	$enddate,$groupname,$description,$granularity,
$quota,$sectioncount,$tools,$functions,$stored,	$quota,$sectioncount,$tools,$functions,$stored,
$states,$navbuttons,$rowColor1,$rowColor2,$gpterm,	$states,$navbuttons,$gpterm,$ucgpterm);
$ucgpterm);
} elsif ($state eq 'pick_members') {	} elsif ($state eq 'pick_members') {
&choose_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,	&choose_members_form($r,$cdom,$cnum,$action,$state,$page,
$groupname,$description,$granularity,$quota,	$groupname,$description,$granularity,$quota,
$startdate,$enddate,$tools,$fixedprivs,	$startdate,$enddate,$tools,$fixedprivs,
$toolprivs,$functions,$users,$userdata,$idx,	$toolprivs,$functions,$users,$userdata,$idx,
$stored,$states,$navbuttons,$rowColor1,	$stored,$states,$navbuttons,$gpterm,$ucgpterm,
$rowColor2,$gpterm,$ucgpterm,$crstype);	$crstype);
} elsif ($state eq 'pick_privs') {	} elsif ($state eq 'pick_privs') {
&choose_privs_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,	&choose_privs_form($r,$cdom,$cnum,$action,$state,$page,
$startdate,$enddate,$tools,$functions,	$startdate,$enddate,$tools,$functions,
$toolprivs,$fixedprivs,$userdata,$usertools,	$toolprivs,$fixedprivs,$userdata,$usertools,
$idx,$states,$stored,$sectioncount,$navbuttons,	$idx,$states,$stored,$sectioncount,$navbuttons,
$rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype);	$gpterm,$ucgpterm,$crstype);
} elsif ($state eq 'change_privs') {	} elsif ($state eq 'change_privs') {
&change_privs_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,	&change_privs_form($r,$cdom,$cnum,$action,$state,$page,
$startdate,$enddate,$tools,$functions,	$startdate,$enddate,$tools,$functions,
$toolprivs,$fixedprivs,$userdata,$usertools,	$toolprivs,$fixedprivs,$userdata,$usertools,
$memchg,$idx,$states,$stored,$sectioncount,	$memchg,$idx,$states,$stored,$sectioncount,
$navbuttons,$rowColor1,$rowColor2,$gpterm,	$navbuttons,$gpterm,$ucgpterm);
$ucgpterm);
} elsif ($state eq 'chgresult' \|\| $state eq 'memresult' \|\|	} elsif ($state eq 'chgresult' \|\| $state eq 'memresult' \|\|
$state eq 'addresult') {	$state eq 'addresult') {
&process_request($r,$cdom,$cnum,$tabcol,$action,$state,$page,	&process_request($r,$cdom,$cnum,$action,$state,$page,
$groupname,$description,$specificity,$userdata,	$groupname,$description,$specificity,$userdata,
$startdate,$enddate,$tools,$functions,	$startdate,$enddate,$tools,$functions,
$toolprivs,$usertools,$idx,$types,$roles,	$toolprivs,$usertools,$idx,$types,$roles,
$sections,$states,$navbuttons,$memchg,	$sections,$states,$navbuttons,$memchg,
$sectioncount,$stored,$rowColor1,$rowColor2,	$sectioncount,$stored,$gpterm,$ucgpterm,$crstype);
$gpterm,$ucgpterm,$crstype);
}	}
}	}
}	}
Line 1092 sub onload_action {	Line 1097 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 1171 sub group_members {	Line 1175 sub group_members {
if ($totalmembers == 0) {	if ($totalmembers == 0) {
$$group_info{$group}{'totalmembers'} = 'None';	$$group_info{$group}{'totalmembers'} = 'None';
} else {	} else {
$$group_info{$group}{'totalmembers'} = $active.' - active<br />'.$previous.' -previous<br />'.$future.' -future';	$$group_info{$group}{'totalmembers'} = '<nobr>'.$active.
	' - active</nobr><br /><nobr>'.$previous.
	' - previous</nobr><br /><nobr>'.$future.
	' - future</nobr>';
}	}
return 'ok';	return 'ok';
}	}


sub general_settings_form {	sub general_settings_form {
my ($r,$cdom,$cnum,$action,$tabcol,$formname,$page,$functions,$tools,	my ($r,$cdom,$cnum,$action,$formname,$page,$functions,$tools,
$toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons,	$toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons,
$rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype) = @_;	$gpterm,$ucgpterm,$crstype) = @_;
my ($nexttext,$prevtext);	my ($nexttext,$prevtext);
&groupsettings_options($r,$functions,$action,$formname,$stored,1,	&groupsettings_options($r,$functions,$action,$formname,$stored,1,
$gpterm,$ucgpterm,$crstype);	$gpterm,$ucgpterm,$crstype);
Line 1194 sub general_settings_form {	Line 1201 sub general_settings_form {
my @unavailable = ();	my @unavailable = ();
&check_tools($functions,$tools,\@available,\@unavailable);	&check_tools($functions,$tools,\@available,\@unavailable);
@{$tools} = sort(keys(%{$functions}));	@{$tools} = sort(keys(%{$functions}));
&privilege_specificity($r,$tabcol,$rowColor1,$rowColor2,$action,	&privilege_specificity($r,$action,3,$tools,$stored,$toolprivs,
3,$tools,$stored,$toolprivs,$fixedprivs,	$fixedprivs,\@available,$formname,
\@available,$formname,$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);
Line 1212 sub groupsettings_options {	Line 1219 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 1231 sub groupsettings_options {	Line 1237 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 1299 END	Line 1306 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 1338 sub membership_options {	Line 1345 sub membership_options {
my ($r,$action,$state,$sectioncount,$image,$gpterm,$ucgpterm) = @_;	my ($r,$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 1376 sub membership_options {	Line 1383 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));
Line 1389 sub membership_options {	Line 1393 sub membership_options {
@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 1407 sub sections_selection {	Line 1412 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 1443 sub access_date_settings {	Line 1448 sub access_date_settings {
}	}

sub choose_members_form {	sub choose_members_form {
my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$groupname,$description,	my ($r,$cdom,$cnum,$action,$formname,$page,$groupname,$description,
$granularity,$quota,$startdate,$enddate,$tools,$fixedprivs,$toolprivs,	$granularity,$quota,$startdate,$enddate,$tools,$fixedprivs,$toolprivs,
$functions,$users,$userdata,$idx,$stored,$states,$navbuttons,	$functions,$users,$userdata,$idx,$stored,$states,$navbuttons,
$rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype) = @_;	$gpterm,$ucgpterm,$crstype) = @_;
my @regexps = ('user_','userpriv_','sec_');	my @regexps = ('user_','userpriv_','sec_');
my %origmembers;	my %origmembers;
$r->print(&Apache::lonhtmlcommon::echo_form_input(	$r->print(&Apache::lonhtmlcommon::echo_form_input(
Line 1456 sub choose_members_form {	Line 1461 sub choose_members_form {
my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm,	my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm,
$ucgpterm,$crstype);	$ucgpterm,$crstype);
if ($earlyout) {	if ($earlyout) {
$r->print($earlyout)	$r->print($earlyout);
&display_navbuttons($r,$formname,$$states{$action}[$page-1],	&display_navbuttons($r,$formname,$$states{$action}[$page-1],
$$navbuttons{'gtps'});	$$navbuttons{'gtps'});
return;	return;
Line 1488 sub choose_members_form {	Line 1493 sub choose_members_form {
}	}
}	}
}	}
&privilege_specificity($r,$tabcol,$rowColor1,$rowColor2,$action,	&privilege_specificity($r,$action,$specimg,$tools,$stored,$toolprivs,
$specimg,$tools,$stored,$toolprivs,
$fixedprivs,\@available,$formname,$gpterm,$ucgpterm);	$fixedprivs,\@available,$formname,$gpterm,$ucgpterm);
my $newusers = &pick_new_members($r,$action,$formname,\@available,$idx,	my $newusers = &pick_new_members($r,$action,$formname,\@available,$idx,
$stored,$memimg,$users,$userdata,	$stored,$memimg,$users,$userdata,
Line 1540 sub print_current_settings {	Line 1544 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 1583 sub print_current_settings {	Line 1587 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 cellpadding="" cellspacing="1"><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 1601 sub print_current_settings {	Line 1605 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 cellpadding="0" cellspacing="1" border="0"><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 1635 sub pick_new_members {	Line 1639 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 1676 sub pick_new_members {	Line 1681 sub pick_new_members {
<tr>');	<tr>');
&check_uncheck_buttons($r,$formname,'member',$lt{'addm'});	&check_uncheck_buttons($r,$formname,'member',$lt{'addm'});
if (@{$available} > 0 && $granularity eq 'Yes') {	if (@{$available} > 0 && $granularity eq 'Yes') {
$r->print('<td><nobr>	$r->print('<td>
<fieldset><legend><b>'.$lt{'setf'}.'</b></legend>	<fieldset><legend><b>'.$lt{'setf'}.'</b></legend>
	<nobr>
<input type="button" value="check all"	<input type="button" value="check all"
onclick="javascript:checkAllTools(document.'.$formname.')" />	onclick="javascript:checkAllTools(document.'.$formname.')" />

<input type="button" value="uncheck all"	<input type="button" value="uncheck all"
onclick="javascript:uncheckAllTools(document.'.$formname.')" />	onclick="javascript:uncheckAllTools(document.'.$formname.')" />
</fieldset></nobr></td>');	</nobr>
	</fieldset></td>');
}	}
$r->print('</tr></table>	$r->print('</tr></table>
');	');
Line 1773 sub pick_new_members {	Line 1780 sub pick_new_members {
}	}

sub privilege_specificity {	sub privilege_specificity {
my ($r,$tabcol,$rowColor1,$rowColor2,$action,$img,$tools,$stored,	my ($r,$action,$img,$tools,$stored,$toolprivs,$fixedprivs,$available,
$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 1817 sub privilege_specificity {	Line 1825 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 1825 sub privilege_specificity {	Line 1833 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 1841 sub privilege_specificity {	Line 1849 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 1874 sub privilege_specificity {	Line 1882 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 1886 sub privilege_specificity {	Line 1895 sub privilege_specificity {
$r->print($lt{'sall'});	$r->print($lt{'sall'});
}	}
$r->print(' '.$lt{'defp'}.'<br /><br />');	$r->print(' '.$lt{'defp'}.'<br /><br />');
&display_defprivs($r,$tabcol,$rowColor1,$rowColor2,$tools,	&display_defprivs($r,$tools,$toolprivs,\@defprivs);
$toolprivs,\@defprivs);
}	}
}	}
return;	return;
Line 1899 sub default_privileges {	Line 1907 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 1919 sub default_privileges {	Line 1927 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 1927 sub default_privileges {	Line 1935 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 1961 sub default_privileges {	Line 1969 sub default_privileges {
}	}

sub display_defprivs {	sub display_defprivs {
my ($r,$tabcol,$rowColor1,$rowColor2,$tools,$toolprivs,$defprivs) = @_;	my ($r,$tools,$toolprivs,$defprivs) = @_;
	my $function = &Apache::loncommon::get_users_function();
	my $tabcol = &Apache::loncommon::designparm($function.'.tabbg');
	my $rowColor1 = "#dddddd";
	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 1974 sub display_defprivs {	Line 1986 sub display_defprivs {
@{$currprivs{$tool}} = ();	@{$currprivs{$tool}} = ();
foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {	foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {
if (ref($defprivs) eq 'ARRAY') {	if (ref($defprivs) eq 'ARRAY') {
if (grep/^\Q$priv\E$/,@{$defprivs}) {	if (grep(/^\Q$priv\E$/,@{$defprivs})) {
push(@{$currprivs{$tool}},$priv);	push(@{$currprivs{$tool}},$priv);
}	}
}	}
Line 2030 sub display_defprivs {	Line 2042 sub display_defprivs {


sub change_members_form {	sub change_members_form {
my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$groupname,$description,	my ($r,$cdom,$cnum,$action,$formname,$page,$groupname,$description,
$startdate,$enddate,$tools,$fixedprivs,$functions,$users,$userdata,	$startdate,$enddate,$tools,$fixedprivs,$functions,$users,$userdata,
$granularity,$quota,$specificity,$idx,$states,$navbuttons,$rowColor1,	$granularity,$quota,$specificity,$idx,$states,$navbuttons,$gpterm,
$rowColor2,$gpterm,$ucgpterm) = @_;	$ucgpterm) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
grse => "$ucgpterm settings",	grse => "$ucgpterm settings",
mogm => "Modify $gpterm membership",	mogm => "Modify $gpterm membership",
Line 2051 sub change_members_form {	Line 2063 sub change_members_form {
my $prevtext = $$navbuttons{'gtpp'};	my $prevtext = $$navbuttons{'gtpp'};
$r->print('	$r->print('
<br />	<br />
<table width="100%" cellpadding="0" cellspacing="0" border="0">
');	');
&topic_bar($r,1,$lt{'grse'});	&topic_bar($r,1,$lt{'grse'});
$r->print('
<tr>
<td> </td>
<td colspan="3">
');
&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);
$r->print('
</td></tr><tr><td colspan="4"> </td></tr>');
&topic_bar($r,2,$lt{'mogm'});	&topic_bar($r,2,$lt{'mogm'});
$r->print('	my $numcurrent = &current_membership($r,$cdom,$cnum,$formname,$groupname,
<tr>	\@available,\@unavailable,$fixedprivs,
<td> </td>	$granularity,$specificity);
<td colspan="3">	if ($numcurrent > 0) {
');	&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
&current_membership($r,$cdom,$cnum,$formname,$tabcol,$rowColor1,	$$states{$action}[$page+1],$nexttext);
$rowColor2,$groupname,\@available,\@unavailable,	} else {
$fixedprivs,$granularity,$specificity);	&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext);
$r->print('</td>');	}
&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
$$states{$action}[$page+1],$nexttext);
$r->print('</table>');
return;	return;
}	}

sub current_membership {	sub current_membership {
my ($r,$cdom,$cnum,$formname,$tabcol,$rowColor1,$rowColor2,$groupname,	my ($r,$cdom,$cnum,$formname,$groupname,$available,$unavailable,
$available,$unavailable,$fixedprivs,$granularity,$specificity) = @_;	$fixedprivs,$granularity,$specificity) = @_;
my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,	my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,
$groupname);	$groupname);
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
Line 2096 sub current_membership {	Line 2097 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('
<tr>
<td> </td>
<td colspan="2">
<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 2143 sub current_membership {	Line 2142 sub current_membership {
$r->print(<<"END");	$r->print(<<"END");
</tr>	</tr>
</table>	</table>
</td>	<br />
<td width="100%"> </td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td> </td>
<td colspan="3">
END	END
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::loncommon::start_data_table().
	&Apache::loncommon::start_data_table_header_row());
$r->print(<<"END");	$r->print(<<"END");
<table border="0" cellpadding="4" cellspacing="1">	<th>$lt{'actn'}</th>
<tr bgcolor="$tabcol" align="center">	<th><a href="javascript:changeSort('fullname')">$lt{'name'}</a></th>
<td><b>$lt{'actn'}</b></td>	<th><a href="javascript:changeSort('username')">$lt{'usnm'}</a></th>
<td><b><a href="javascript:changeSort('fullname')">$lt{'name'}</a></b></td>	<th><a href="javascript:changeSort('domain')">$lt{'doma'}</a></th>
<td><b><a href="javascript:changeSort('username')">$lt{'usnm'}</a></b>	<th><a href="javascript:changeSort('id')">ID</a></th>
</td>	<th><a href="javascript:changeSort('start')">$lt{'stda'}</a></th>
<td><b><a href="javascript:changeSort('domain')">$lt{'doma'}</a></b></td>	<th><a href="javascript:changeSort('end')">$lt{'enda'}</a></th>
<td><b><a href="javascript:changeSort('id')">ID</a></b></td>
<td><b><a href="javascript:changeSort('start')">$lt{'stda'}</a></b></td>
<td><b><a href="javascript:changeSort('end')">$lt{'enda'}</a></b></td>
END	END
my $colspan = 0;	my $colspan = 0;
if ($hastools) {	if ($hastools) {
$r->print('<td><b>'.$lt{'curf'}.'</b></td>');	$r->print('<th>'.$lt{'curf'}.'</th>');
$colspan ++;	$colspan++;
}	}
if ($addtools) {	if ($addtools) {
$r->print('<td><b>Additional Functionality</b></td>');	$r->print('<th>'.&mt('Additional Tools').'</th>');
$colspan ++;	$colspan++;
}	}
$r->print('</tr>');	$r->print(&Apache::loncommon::end_data_table_header_row());
if ($colspan) {	if ($colspan) {
if ($granularity eq 'Yes') {	if ($granularity eq 'Yes') {
$r->print('<tr bgcolor="#cccccc">	$r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense LC_data_table_highlight').'
<td colspan="7"> </td>	<td colspan="7"> </td>
<td colspan="'.$colspan.'" align="center"><small><nobr><b>'.&mt('All:').	<td colspan="'.$colspan.'" align="center"><nobr><b>'.&mt('All:').
'</b> ');	'</b> ');
foreach my $tool (@{$available}) {	foreach my $tool (@{$available}) {
$r->print('<label><input type="checkbox" name="togglefunc"'.	$r->print('<label><input type="checkbox" name="togglefunc"'.
' onclick="javascript:toggleTools(document.'.$formname.'.user_'.$tool.',this);"'.	' onclick="javascript:toggleTools(document.'.$formname.'.user_'.$tool.',this);"'.
' value="'.$tool.'">'.'<b>'.$tool.'</b></label>   ');	' value="'.$tool.'" />'.'<b>'.$tool.'</b></label>   ');
}	}
$r->print('</nobr></small></td></tr>');	$r->print('</nobr></td></tr>');
}	}
}	}
my %Sortby = ();	my %Sortby = ();
Line 2204 END	Line 2193 END
push(@{$Sortby{$$current{$user}{fullname}}},$user);	push(@{$Sortby{$$current{$user}{fullname}}},$user);
}	}
}	}
my $rowNum = 0;
my $rowColor;
foreach my $key (sort(keys(%Sortby))) {	foreach my $key (sort(keys(%Sortby))) {
foreach my $user (@{$Sortby{$key}}) {	foreach my $user (@{$Sortby{$key}}) {
if ($rowNum %2 == 1) {
$rowColor = $rowColor1;
} else {
$rowColor = $rowColor2;
}
my $id = $$current{$user}{id};	my $id = $$current{$user}{id};
my $fullname = $$current{$user}{fullname};	my $fullname = $$current{$user}{fullname};
my $udom = $$current{$user}{udom};	my $udom = $$current{$user}{udom};
my $uname = $$current{$user}{uname};	my $uname = $$current{$user}{uname};
my $start = $$current{$user}{start};	my $start = $$current{$user}{start};
my $end = $$current{$user}{end};	my $end = $$current{$user}{end};
$r->print('<tr bgcolor="'.$rowColor.'">	$r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense').'
<td><small>');	<td>');
if ($$current{$user}{changestate} eq 'reenable') {	if ($$current{$user}{changestate} eq 'reenable') {
$r->print('<nobr><label>'.	$r->print('<nobr><label>'.
'<input type="checkbox" name="reenable" value="'.$user.'" />'.	'<input type="checkbox" name="reenable" value="'.$user.'" />'.
Line 2243 END	Line 2225 END
'</label></nobr>');	'</label></nobr>');
}	}
$r->print('	$r->print('
</td>	</td>'.
<td><small>'.	'<td>'.$fullname.'</td>'.
$fullname.'</small></td><td><small>'.$uname.'</small></td><td><small>'.	'<td>'.$uname.'</td>'.
$udom.'</small></td><td><small>'.$id.'</small></td><td><small>'.$start.	'<td>'. $udom.'</td>'.
'</small></td><td><small>'.$end.'</small></td>');	'<td>'.$id.'</td>'.
	'<td>'.$start.'</td>'.
	'<td>'.$end.'</td>');
if ($hastools) {	if ($hastools) {
$r->print('<td align="left"><small><nobr>'.	$r->print('<td align="left"><nobr>'.
'      ');	'      ');
foreach my $tool (@{$$current{$user}{currtools}}) {	foreach my $tool (@{$$current{$user}{currtools}}) {
if ($granularity eq 'Yes') {	if ($granularity eq 'Yes') {
Line 2265 END	Line 2249 END
}	}
$r->print('   ');	$r->print('   ');
}	}
$r->print('</nobr></small></td>');	$r->print('</nobr></td>');
}	}
if ($addtools) {	if ($addtools) {
$r->print('<td align="left"><small>');	$r->print('<td align="left">');
if ($granularity eq 'Yes') {	if ($granularity eq 'Yes') {
foreach my $tool (@{$$current{$user}{newtools}}) {	foreach my $tool (@{$$current{$user}{newtools}}) {
$r->print('<nobr><label><input type="checkbox"	$r->print('<nobr><label><input type="checkbox"
Line 2284 END	Line 2268 END
'</nobr>   ');	'</nobr>   ');
}	}
}	}
$r->print('</small></td>');	$r->print('</td>');
}	}
$r->print('</tr>'."\n");	$r->print(&Apache::loncommon::end_data_table_row()."\n");
$rowNum ++;
}	}
}	}
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::loncommon::end_data_table());
$r->print('	} else {
</td>	$r->print(&mt('There are no active, future or previous group members to modify.'));
</tr>');
}	}
return;	return $numcurrent;
}	}

sub check_uncheck_buttons {	sub check_uncheck_buttons {
my ($r,$formname,$field,$title,$colspan) = @_;	my ($r,$formname,$field,$title,$colspan) = @_;
$r->print('	$r->print('
<td '.$colspan.'>	<td '.$colspan.'>
<nobr>
<fieldset>	<fieldset>
<legend><b>'.$title.'</b></legend>	<legend><b>'.$title.'</b></legend>
	<nobr>
<input type="button" value="check all"	<input type="button" value="check all"
onclick="javascript:checkAll(document.'.$formname.'.'.$field.')" />	onclick="javascript:checkAll(document.'.$formname.'.'.$field.')" />

<input type="button" value="uncheck all"	<input type="button" value="uncheck all"
onclick="javascript:uncheckAll(document.'.$formname.'.'.$field.')" />	onclick="javascript:uncheckAll(document.'.$formname.'.'.$field.')" />
</fieldset>
</nobr>	</nobr>
	</fieldset>
</td>	</td>
');	');
}	}


sub change_privs_form {	sub change_privs_form {
my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$startdate,$enddate,	my ($r,$cdom,$cnum,$action,$formname,$page,$startdate,$enddate,
$tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,	$tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,
$memchg,$idx,$states,$stored,$sectioncount,$navbuttons,$rowColor1,	$memchg,$idx,$states,$stored,$sectioncount,$navbuttons,$gpterm,
$rowColor2,$gpterm,$ucgpterm) = @_;	$ucgpterm) = @_;
my @regexps = ('userpriv_');	my @regexps = ('userpriv_');
my $nexttext;	my $nexttext;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
Line 2336 sub change_privs_form {	Line 2318 sub change_privs_form {
} else {	} else {
$nexttext = $$navbuttons{'mose'};	$nexttext = $$navbuttons{'mose'};
}	}
$r->print('<br /><table width="100%" cellpadding="0" cellspacing="0" border="0">');
&topic_bar($r,3,&mt('Members to delete or expire'));	&topic_bar($r,3,&mt('Members to delete or expire'));
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>');
}	}
$r->print('</ul></td><tr><td colspan="4"> </td></tr>');	$r->print('</ul>');
$exp_or_del += @{$$memchg{'deletion'}};	$exp_or_del += @{$$memchg{'deletion'}};
}	}
}	}
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>');
}	}
$r->print('</ul></td><tr><td colspan="4"> </td></tr>');	$r->print('</ul>');
$exp_or_del += @{$$memchg{'expire'}};	$exp_or_del += @{$$memchg{'expire'}};
}	}
}	}
if (!$exp_or_del) {	if (!$exp_or_del) {
$r->print('<tr><td> </td><td colspan="3">'.$lt{'nome'}.	$r->print($lt{'nome'}.'<br />');
'</td></tr><tr><td colspan="4"> </td></tr>');
}	}

&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,$tabcol,$action,$formname,$tools,	my $numchgs = &member_privileges_form($r,$action,$formname,$tools,
$toolprivs,$fixedprivs,$userdata,	$toolprivs,$fixedprivs,$userdata,
$usertools,$idx,$memchg,$states,	$usertools,$idx,$memchg,$states,
$stored,$rowColor1,$rowColor2,	$stored,$gpterm);
$gpterm);
$r->print('</td></tr><tr><td colspan="4"> </td></tr>');
my $prevtext = $$navbuttons{'gtps'};	my $prevtext = $$navbuttons{'gtps'};
if ($numchgs \|\| $exp_or_del) {	if ($numchgs \|\| $exp_or_del) {
&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,	&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
Line 2381 sub change_privs_form {	Line 2359 sub change_privs_form {
} else {	} else {
&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext);	&display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext);
}	}
$r->print('</table>');
return;	return;
}	}

sub add_members_form {	sub add_members_form {
my ($r,$tabcol,$action,$formname,$page,$startdate,$enddate,$groupname,	my ($r,$action,$formname,$page,$startdate,$enddate,$groupname,
$description,$granularity,$quota,$sectioncount,$tools,$functions,	$description,$granularity,$quota,$sectioncount,$tools,$functions,
$stored,$states,$navbuttons,$rowColor1,$rowColor2,$gpterm,$ucgpterm)=@_;	$stored,$states,$navbuttons,$gpterm,$ucgpterm)=@_;
$r->print(' <br />');	$r->print(' <br />');
my @available = ();	my @available = ();
my @unavailable = ();	my @unavailable = ();
Line 2405 sub add_members_form {	Line 2382 sub add_members_form {
}	}

sub choose_privs_form {	sub choose_privs_form {
my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$startdate,$enddate,	my ($r,$cdom,$cnum,$action,$formname,$page,$startdate,$enddate,
$tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,$idx,	$tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,$idx,
$states,$stored,$sectioncount,$navbuttons,$rowColor1,$rowColor2,	$states,$stored,$sectioncount,$navbuttons,$gpterm,$ucgpterm,
$gpterm,$ucgpterm,$crstype) = @_;	$crstype) = @_;

my @regexps = ('userpriv_');	my @regexps = ('userpriv_');
my $nexttext;	my $nexttext;
Line 2425 sub choose_privs_form {	Line 2402 sub choose_privs_form {
$nexttext = $$navbuttons{'adme'};	$nexttext = $$navbuttons{'adme'};
}	}

$r->print('<br /><table width="100%" cellpadding="0" cellspacing="0" border="0">');	&topic_bar($r,6,&mt('Setting optional privileges for specific group members'));
&topic_bar($r,6,&mt('[_1] member privileges',$ucgpterm));

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

$r->print('</td></tr><tr><td colspan="4"> </td></tr>');
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);
$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,
$$states{$action}[$page+1],$nexttext);	$$states{$action}[$page+1],$nexttext);
$r->print('</table>');
return;	return;
}	}

Line 2508 function uncheckAllTools(formname) {	Line 2480 function uncheckAllTools(formname) {
}	}

sub member_privileges_form {	sub member_privileges_form {
my ($r,$tabcol,$action,$formname,$tools,$toolprivs,$fixedprivs,$userdata,	my ($r,$action,$formname,$tools,$toolprivs,$fixedprivs,$userdata,
$usertools,$idx,$memchg,$states,$stored,$rowColor1,$rowColor2,	$usertools,$idx,$memchg,$states,$stored,$gpterm) = @_;
$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 2571 sub member_privileges_form {	Line 2545 sub member_privileges_form {
}	}
$numchgs = @currmembers;	$numchgs = @currmembers;
if (!$numchgs) {	if (!$numchgs) {
$r->print('<tr><td> </td><td colspan="3">'.$lt{'nogm'});	$r->print($lt{'nogm'});
return $numchgs;	return $numchgs;
}	}
}	}
Line 2587 sub member_privileges_form {	Line 2561 sub member_privileges_form {
my %total;	my %total;
if (keys(%{$usertools}) > 1) {	if (keys(%{$usertools}) > 1) {
$r->print('	$r->print('
<table border="0" cellspacing="2" cellpadding="2" border="0">	<table border="0" cellspacing="2" cellpadding="2">
<tr>	<tr>
');	');
foreach my $tool (@{$tools}) {	foreach my $tool (@{$tools}) {
if (@{$showboxes{$tool}} > 0) {	if (@{$showboxes{$tool}} > 0) {
$r->print('<td valign="top">');	$r->print('<td valign="top">');
$r->print('<table class="thinborder"><tr bgcolor="'.	$r->print('<table class="thinborder"><tr>'.
$tabcol.'"><th colspan="'.$colspan.'">'.	'<th colspan="'.$colspan.'">'.
$tool.'</th></tr><tr>');	$tool.'</th></tr><tr>');
my $privcount = 0;	my $privcount = 0;
foreach my $priv (@{$showboxes{$tool}}) {	foreach my $priv (@{$showboxes{$tool}}) {
Line 2632 sub member_privileges_form {	Line 2606 sub member_privileges_form {
$r->print('</tr></table></td><td> </td>');	$r->print('</tr></table></td><td> </td>');
}	}
}	}
$r->print('</tr></table></td></tr>');	$r->print('</tr></table>');
$r->print('<tr><td colspan="4"> </td></tr>');
}	}
$r->print('<tr><td> </td><td colspan="3">');	$r->print(&Apache::loncommon::start_data_table().
$r->print(&Apache::lonhtmlcommon::start_pick_box());	&Apache::loncommon::start_data_table_header_row());
$r->print(<<"END");	$r->print(<<"END");
<tr bgcolor="$tabcol">	<th>$lt{'full'}</th>
<th><b>$lt{'full'}</th>	<th>$lt{'user'}</th>
<th><b>$lt{'user'}</th>
<th>$lt{'doma'}</th>	<th>$lt{'doma'}</th>
<th colspan="$numtools">$lt{'addp'}</th>	<th colspan="$numtools">$lt{'addp'}</th>
</tr>
END	END
&member_privs_entries($r,$tabcol,$rowColor1,$rowColor2,	$r->print(&Apache::loncommon::end_data_table_header_row());
$usertools,$toolprivs,$fixedprivs,	&member_privs_entries($r,$usertools,$toolprivs,$fixedprivs,
$userdata,$idx,\@showtools,\@defprivs,	$userdata,$idx,\@showtools,\@defprivs,
\@excluded);	\@excluded);
$r->print('</td>');	$r->print(&Apache::loncommon::end_data_table());
$r->print(&Apache::lonhtmlcommon::end_pick_box());
} else {	} else {
$r->print($lt{'forf'}.'<br />');	$r->print($lt{'forf'}.'<br />');
&display_defprivs($r,$tabcol,$rowColor1,$rowColor2,$tools,	&display_defprivs($r,$tools,$toolprivs,\@defprivs);
$toolprivs,\@defprivs);
}	}
} 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,$tabcol,$rowColor1,$rowColor2,$tools,	&display_defprivs($r,$tools,$toolprivs,\@defprivs);
$toolprivs,\@defprivs);
} else {	} else {
$r->print($lt{'asno'}.'<br />');	$r->print($lt{'asno'}.'<br />');
}	}
Line 2672 END	Line 2640 END
}	}

sub process_request {	sub process_request {
my ($r,$cdom,$cnum,$tabcol,$action,$state,$page,$groupname,$description,	my ($r,$cdom,$cnum,$action,$state,$page,$groupname,$description,
$specificity,$userdata,$startdate,$enddate,$tools,$functions,$toolprivs,	$specificity,$userdata,$startdate,$enddate,$tools,$functions,$toolprivs,
$usertools,$idx,$types,$roles,$sections,$states,$navbuttons,$memchg,	$usertools,$idx,$types,$roles,$sections,$states,$navbuttons,$memchg,
$sectioncount,$stored,$rowColor1,$rowColor2,$gpterm,$ucgpterm,	$sectioncount,$stored,$gpterm,$ucgpterm,$crstype) = @_;
$crstype) = @_;

$r->print(&Apache::lonhtmlcommon::echo_form_input(	$r->print(&Apache::lonhtmlcommon::echo_form_input(
['origin','action','state','page','sortby']));	['origin','action','state','page','sortby']));
Line 2772 sub write_group_data {	Line 2739 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 2841 sub write_group_data {	Line 2808 sub write_group_data {
$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]. [_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 3061 sub process_membership {	Line 3068 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 3076 sub mapping_options {	Line 3083 sub mapping_options {
'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 3087 sub mapping_options {	Line 3094 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);
$r->print('
<tr>
<td colspan="4"> </td>
</tr>');
&mapping_settings($r,$sectioncount,\%lt,$stored,$img2,$crstype);	&mapping_settings($r,$sectioncount,\%lt,$stored,$img2,$crstype);
return;	return;
}	}
Line 3130 sub mapping_settings {	Line 3133 sub mapping_settings {
@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();
Line 3159 sub mapping_settings {	Line 3164 sub mapping_settings {
}	}
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
'<td><input type="checkbox" '.	'<td><input type="checkbox" '.
'name="autorole" value="'.$role.'"></td><td>'.$plrole.	'name="autorole" value="'.$role.'" /></td><td>'.$plrole.
'</td>'.$sections_sel.	'</td>'.$sections_sel.
&Apache::loncommon::end_data_table_row());	&Apache::loncommon::end_data_table_row());
}	}
Line 3171 sub mapping_settings {	Line 3176 sub mapping_settings {
}	}
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
'<td><input type="checkbox" '.	'<td><input type="checkbox" '.
'value="'.$role.'"></td><td>'.$role.'</td>'.	'value="'.$role.'" /></td><td>'.&mt('Custom role: ').
$sections_sel.	'<i>'.$role.'</i></td>'.$sections_sel.
&Apache::loncommon::end_data_table_row());	&Apache::loncommon::end_data_table_row());
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
Line 3232 sub modify_menu {	Line 3237 sub modify_menu {
}	}

sub member_privs_entries {	sub member_privs_entries {
my ($r,$tabcol,$rowColor1,$rowColor2,$usertools,$toolprivs,	my ($r,$usertools,$toolprivs,$fixedprivs,$userdata,$idx,$showtools,
$fixedprivs,$userdata,$idx,$showtools,$defprivs,$excluded) = @_;	$defprivs,$excluded) = @_;
my $rowColor;
my $rowNum = 0;
foreach my $user (sort(keys(%{$usertools}))) {	foreach my $user (sort(keys(%{$usertools}))) {
if (defined($excluded)) {	if (defined($excluded)) {
if (ref($excluded) eq 'ARRAY') {	if (ref($excluded) eq 'ARRAY') {
Line 3245 sub member_privs_entries {	Line 3248 sub member_privs_entries {
}	}
}	}
my ($uname,$udom) = split(/:/,$user);	my ($uname,$udom) = split(/:/,$user);
if ($rowNum %2 == 1) {	$r->print(&Apache::loncommon::start_data_table_row().'
$rowColor = $rowColor1;
} else {
$rowColor = $rowColor2;
}
$r->print('<tr bgcolor="'.$rowColor.'">
<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 bgcolor="'.$tabcol.'"><td colspan="2" align="center"><b>'.$tool.'</b></td></tr>');	$r->print('<td valign="top"><table><tr><th colspan="2">'.$tool.'</th></tr>');
my $privcount = 0;	my $privcount = 0;
my $fixed = '';	my $fixed = '';
my $dynamic = '';	my $dynamic = '';
Line 3280 sub member_privs_entries {	Line 3291 sub member_privs_entries {
}	}
$r->print('<tr><td colspan="2"><nobr>'.$fixed.'</nobr></td></tr><tr>'.$dynamic.'</tr></table></td>');	$r->print('<tr><td colspan="2"><nobr>'.$fixed.'</nobr></td></tr><tr>'.$dynamic.'</tr></table></td>');
} else {	} else {
$r->print('<td valign="top"><table width="100%"><tr bgcolor="'.$tabcol.'"><td colspan="2" align="center"><b>'.$tool.'</b></td></tr><tr><td> </td></tr><tr><td> </td></tr></table></td>');	$r->print('<td valign="top"><table width="100%"><tr><th colspan="2">'.$tool.'</th></tr><tr><td> </td></tr><tr><td> </td></tr></table></td>');
}	}
}	}
$rowNum ++;	$r->print(&Apache::loncommon::end_data_table_row());
}	}
}	}

Line 3327 sub add_group_folder {	Line 3338 sub add_group_folder {
my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage);	my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage);
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';	my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
$allgrpsmap = $crspath.'default_0.sequence';	$allgrpsmap = $crspath.'group_allfolders.sequence';
my $topmap = $navmap->getResourceByUrl($allgrpsmap);	my $topmap = $navmap->getResourceByUrl($allgrpsmap);
undef($navmap);	undef($navmap);
if ($action eq 'create') {	if ($action eq 'create') {
# check if default_0.sequence exists.	# check if group_allfolders.sequence exists.
if (!$topmap) {	if (!$topmap) {
my $grpstitle = &mt('[_1] [_2]',$crstype,$ucgpterm);	my $grpstitle = &mt('[_1] [_2]s',$crstype,$ucgpterm);
my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};	my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};
$topmap_url =~ s\|/+\|/\|g;	$topmap_url =~ s\|/+\|/\|g;
if ($topmap_url =~ m\|^/uploaded\|) {	if ($topmap_url =~ m\|^/uploaded\|) {
$outcome = &map_updater($cdom,$cnum,'default_0.sequence',	$outcome = &map_updater($cdom,$cnum,'group_allfolders.sequence',
'toplevelgroup',$grpstitle,$topmap_url);	'toplevelgroup',$grpstitle,$topmap_url);
if ($outcome ne 'ok') {	if ($outcome ne 'ok') {
return $outcome;	return $outcome;
}	}
} else {	} else {
$outcome = &mt('Non-standard course - group folder not added.');	$outcome = &mt('Non-standard course - folder for all groups not added.');
return $outcome;	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,'default_'.$now.'.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') {
Line 3360 sub add_group_folder {	Line 3371 sub add_group_folder {
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.'default_'.$now.'.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,'default_'.$seqid.	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;
}	}
$boardsmap = $crspath.'default_'.$seqid.'.sequence';	$boardsmap = $crspath.'group_boards_'.$groupname.'.sequence';
}	}
} else {	} else {
#modify group folder if status of discussions tools is changed	#modify group folder if status of discussions tools is changed
Line 3379 sub add_group_folder {	Line 3389 sub add_group_folder {
# 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 3578 sub topic_bar {	Line 3585 sub topic_bar {
my ($r,$imgnum,$title) = @_;	my ($r,$imgnum,$title) = @_;
$r->print('	$r->print('
<div class="LC_topic_bar">	<div class="LC_topic_bar">
<img src="/res/adm/pages/bl_step'.$imgnum.'.gif" />	<img alt="'.&mt('Step [_1]',$imgnum).
<span>'.$title.'<span>	'"src="/res/adm/pages/bl_step'.$imgnum.'.gif" />
	<span>'.$title.'</span>
</div>	</div>
');	');
return;	return;

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

Removed from v.1.44
changed lines
	Added in v.1.57