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.99 and 1.132

version 1.99, 2009/05/07 16:36:33	version 1.132, 2023/07/29 20:33:25
Line 31 use strict;	Line 31 use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
	use Apache::lonhtmlgateway;
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::lonuserutils();
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
	use HTML::Entities;
use LONCAPA::map();	use LONCAPA::map();
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;
Line 54 sub handler {	Line 57 sub handler {
if (! ($env{'request.course.fn'})) {	if (! ($env{'request.course.fn'})) {
# Not in a course	# Not in a course
$env{'user.error.msg'}=	$env{'user.error.msg'}=
"/adm/coursegroups:mdg:0:0:Cannot edit or view course groups";	"/adm/coursegroups:mdg:0:0:Cannot edit or view course/community groups";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}

Line 134 function changeSort(caller) {	Line 137 function changeSort(caller) {
}	}
function openGroupRoster(group,status) {	function openGroupRoster(group,status) {
var url = '/adm/grouproster?';	var url = '/adm/grouproster?';
url += 'group='+group+'&status='+status+'&ref=popup';	url += 'group='+group+'&status='+status+'&ref=popup';
var title = 'Group Membership';	var title = 'Group_Membership';
var options = 'scrollbars=1,resizable=1,menubar=0';	var options = 'scrollbars=1,resizable=1,menubar=0';
options += ',width=700,height=600';	options += ',width=700,height=600';
rosterbrowser = open(url,title,options,'1');	rosterbrowser = open(url,title,options,'1');
Line 168 sub display_groups {	Line 171 sub display_groups {
my %curr_groups = ();	my %curr_groups = ();
my %grp_info = ();	my %grp_info = ();
my %actionlinks = (	my %actionlinks = (
modify => '<a href="/adm/coursegroups?action=modify&refpage='.	modify => '/adm/coursegroups?action=modify&refpage='.
$env{'form.refpage'}.'&state=pick_task&groupname=',	$env{'form.refpage'}.'&state=pick_task&groupname=',
view => '<a href="/adm/'.$cdom.'/'.$cnum.'/',	view => '',
delete => '<a href="/adm/coursegroups?action=delete&refpage='.	delete => '/adm/coursegroups?action=delete&refpage='.
$env{'form.refpage'}.'&state=verify&groupname=',	$env{'form.refpage'}.'&state=verify&groupname=',
reenable => '<a href="/adm/coursegroups?action=reenable&refpage='.	reenable => '/adm/coursegroups?action=reenable&refpage='.
$env{'form.refpage'}.'&state=verify&groupname=',	$env{'form.refpage'}.'&state=verify&groupname=',
);	);
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
modify => 'Modify',	modify => 'Modify',
Line 188 sub display_groups {	Line 191 sub display_groups {
crtd => 'Created',	crtd => 'Created',
last => 'Last Modified',	last => 'Last Modified',
func => 'Collaborative Tools',	func => 'Collaborative Tools',
quot => 'Quota (Mb)',	quot => 'Quota (MB)',
memb => 'Members',	memb => 'Members',
file => 'Files',	file => 'Files',
dibd => 'Discussion Boards',	dibd => 'Discussion Boards',
Line 221 sub display_groups {	Line 224 sub display_groups {
$status);	$status);

if (%curr_groups) {	if (%curr_groups) {
	my $navmap=Apache::lonnavmaps::navmap->new();
	if (!defined($navmap)) {
	$r->print('<div class="LC_error">'.
	&mt('An error occurred retrieving information about resources in the course.').'<br />'.
	&mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this page.','<a href="/adm/roles?selectrole=1&newrole='.$env{'request.role'}.'&orgurl=%2fadm%2fcoursegroups">','</a>').
	'</div>');
	return;
	}
if ($manage_permission) {	if ($manage_permission) {
if ($action ne 'reenable') {	if ($action ne 'reenable') {
$r->print('<br /><a href="/adm/coursegroups?action=create&refpage='.$env{'form.refpage'}.'">'.$lt{'crng'}.'</a>');	$r->print('<br /><a href="/adm/coursegroups?action=create&refpage='.$env{'form.refpage'}.'">'.$lt{'crng'}.'</a>');
Line 240 sub display_groups {	Line 251 sub display_groups {
<th><a href="javascript:changeSort('creator')">$lt{'crea'}</a></th>	<th><a href="javascript:changeSort('creator')">$lt{'crea'}</a></th>
<th><a href="javascript:changeSort('creation')">$lt{'crtd'}</a></th>	<th><a href="javascript:changeSort('creation')">$lt{'crtd'}</a></th>
<th><a href="javascript:changeSort('modified')">$lt{'last'}</a></th>	<th><a href="javascript:changeSort('modified')">$lt{'last'}</a></th>
<th>$lt{'func'}</b></td>	<th>$lt{'func'}</th>
<th><a href="javascript:changeSort('quota')">$lt{'quot'}</a></th>	<th><a href="javascript:changeSort('quota')">$lt{'quot'}</a></th>
<th><a href="javascript:changeSort('totalmembers')">$lt{'memb'}</a></th>	<th><a href="javascript:changeSort('totalmembers')">$lt{'memb'}</a></th>
<th><a href="javascript:changeSort('totalfiles')">$lt{'file'}</a></th>	<th><a href="javascript:changeSort('totalfiles')">$lt{'file'}</a></th>
Line 319 END	Line 330 END
if (!$functionality) {	if (!$functionality) {
$functionality = &mt('None available');	$functionality = &mt('None available');
}	}
my $link = $actionlinks{$action};	my $link;
if ($action eq 'modify' \|\| $action eq 'delete' \|\|	if ($action eq 'modify' \|\| $action eq 'delete' \|\|
$action eq 'reenable') {	$action eq 'reenable') {
$link .= $group;	$link = '<a href="'.&HTML::Entities::encode($actionlinks{$action}.$group,'<>&"').
	'">'.$lt{$action}.'</a>';
} else {	} else {
$link .= $group.'/smppg?ref=grouplist';	$link =
if (exists($env{'form.refpage'})) {	&Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,
$link .= '&refpage='.$env{'form.refpage'};	$view_permission);
	if ($link) {
	$link = '<a href="'.$link;
	$link .= (($link=~/\?/)?'&':'?').'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) {
$link .= '  '.$actionlinks{'modify'}.	$link .= '  <a href="'.
$group.'">'.$lt{'modify'}.'</a>'.	&HTML::Entities::encode($actionlinks{'modify'}.$group,'<>&"').
'  '.$actionlinks{'delete'}.	'">'.$lt{'modify'}.'</a>  <a href="'.
$group.'">'.$lt{'delete'}.'</a>';	&HTML::Entities::encode($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 383 END	Line 402 END
} else {	} else {
my @coursegroups = split(/:/,$env{'request.course.groups'});	my @coursegroups = split(/:/,$env{'request.course.groups'});
if (@coursegroups > 0) {	if (@coursegroups > 0) {
	my $numlinks = 0;
$r->print('<br /><br />');	$r->print('<br /><br />');
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
if (%curr_groups) {	if (%curr_groups) {
	my $navmap=Apache::lonnavmaps::navmap->new();
	if (!defined($navmap)) {
	$r->print('<div class="LC_error">'.
	&mt('An error occurred retrieving information about resources in the course.').'<br />'.
	&mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this page.','<a href="/adm/roles?selectrole=1&newrole='.$env{'request.role'}.'&orgurl=%2fadm%2fcoursegroups">','</a>').
	'</div>');
	return;
	}
foreach my $group (@coursegroups) {	foreach my $group (@coursegroups) {
my %group_info = &Apache::longroup::get_group_settings(	my %group_info = &Apache::longroup::get_group_settings(
$curr_groups{$group});	$curr_groups{$group});
my $description = &unescape(	my $description = &unescape(
$group_info{description});	$group_info{description});
$r->print('<font size="+1"><a href="/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg?ref=grouplist">'.$group,'</a><font><br /><small>'.$description.'</small><br /><br />');	my ($link,$hidden) =
	&Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,
	$view_permission);
	if ($link) {
	$link .= '&ref=grouplist';
	$r->print('<span style="font-size: larger"><a href="'.$link.'">'.
	$description.'</a></span><br /><br />');
	$numlinks ++;
	} elsif ($hidden) {
	my $numtools = 0;
	my $refarg = '&ref=grouplist';
	my $output =
	&Apache::longroup::display_group_links($r,$env{'form.grade_target'},$group,'view',
	$refarg,\$numtools,$hidden,%group_info);
	if ($numtools) {
	$r->print('<span style="font-size: larger">'.$description.'</a></span>'.
	'<br />'.$output.'<br /><br />');
	$numlinks ++;
	}
	}
}	}
}	}
	if (!$numlinks) {
	$r->print(
	'<p class="LC_info">'
	.&mt('You do not currently have access to any '.$gpterm.'s'
	.' in this '.lc($crstype).'.')
	.'</p>'
	);
	}
} else {	} else {
$r->print(&mt('You are not currently a member of any active '.$gpterm.'s in this '.lc($crstype).'.'));	$r->print(
	'<p class="LC_info">'
	.&mt('You are not currently a member of any active '.$gpterm.'s'
	.' in this '.lc($crstype).'.')
	.'</p>'
	);
}	}
}	}
return;	return;
Line 537 sub group_administration {	Line 597 sub group_administration {

if (ref($stored{'autorole'}) eq 'ARRAY') {	if (ref($stored{'autorole'}) eq 'ARRAY') {
foreach my $role (@{$stored{'autorole'}}) {	foreach my $role (@{$stored{'autorole'}}) {
unless ($role eq 'cc') {	unless (($role eq 'cc') \|\| ($role eq 'co')) {
$elements{'modify'}{'change_settings'}{'sec_'.$role} =	$elements{'modify'}{'change_settings'}{'sec_'.$role} =
'selectbox';	'selectbox';
}	}
Line 785 sub group_administration {	Line 845 sub group_administration {
}	}
var maxposs = '.sprintf("%.2f",$maxposs).';	var maxposs = '.sprintf("%.2f",$maxposs).';
if (newquota > maxposs) {	if (newquota > maxposs) {
alert("The group portfolio quota you entered for this group ("+newquota+" Mb) exceeds the maximum possible ("+maxposs+" Mb). Please enter a smaller number.");	alert("The group portfolio quota you entered for this group ("+newquota+" MB) exceeds the maximum possible ("+maxposs+" MB). Please enter a smaller number.");
return;	return;
}	}
var re_quota = '.$float_check.';	var re_quota = '.$float_check.';
Line 804 sub group_administration {	Line 864 sub group_administration {
}	}
}	}
if (warn_zero == 1) {	if (warn_zero == 1) {
alert("You have indicated that the group portfolio should be enabled, but you have set the respository quota to 0 Mb.\nThis will prevent any upload of files.\nPlease set a value or disable the repository feature.");	alert("You have indicated that the group portfolio should be enabled, but you have set the repository quota to 0 MB.\nThis will prevent any upload of files.\nPlease set a value or disable the repository feature.");
return;	return;
}	}
}	}
Line 870 function changeSort(caller) {	Line 930 function changeSort(caller) {
faq=>9,bug=>'Instructor Interface',});	faq=>9,bug=>'Instructor Interface',});
if ($action eq 'modify' \|\| $action eq 'delete') {	if ($action eq 'modify' \|\| $action eq 'delete') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/coursegroups?refpage=cusr&action=$action",	({href=>"/adm/coursegroups?refpage=cusr&action=$action",
text=>"Groups",	text=>"Groups",
faq=>9,bug=>'Instructor Interface',});	faq=>9,bug=>'Instructor Interface',});
}	}
Line 882 function changeSort(caller) {	Line 942 function changeSort(caller) {
if ($env{'form.refpage'} eq 'grouplist') {	if ($env{'form.refpage'} eq 'grouplist') {
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/$cdom/$cnum/$env{'form.groupname'}/smppg?ref=grouplist",	({href=>"/adm/$cdom/$cnum/$env{'form.groupname'}/smppg?ref=grouplist",
text=>"Group: $description",});	text=>&mt('Group').": $description",
	no_mt=>1});
}	}
}	}

Line 1086 sub display_control {	Line 1147 sub display_control {
&add_members_form($r,$cdom,$cnum,$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,$crstype);
} elsif ($state eq 'pick_members') {	} elsif ($state eq 'pick_members') {
&choose_members_form($r,$cdom,$cnum,$action,$state,$page,	&choose_members_form($r,$cdom,$cnum,$action,$state,$page,
$groupname,$description,$granularity,$quota,	$groupname,$description,$granularity,$quota,
Line 1119 sub display_control {	Line 1180 sub display_control {
my %stored = &retrieve_settings($cdom,$cnum,$groupname,$action);	my %stored = &retrieve_settings($cdom,$cnum,$groupname,$action);
if ($state eq 'verify') {	if ($state eq 'verify') {
&verify_delete($r,$groupname,$state,$action,$page,$states,	&verify_delete($r,$groupname,$state,$action,$page,$states,
\%stored);	\%stored,$crstype);
} elsif ($state eq 'result') {	} elsif ($state eq 'result') {
&delete_group($r,$cdom,$cnum,$groupname);	&delete_group($r,$cdom,$cnum,$groupname,$crstype);
}	}
} elsif ($action eq 'reenable') {	} elsif ($action eq 'reenable') {
my %stored = &retrieve_settings($cdom,$cnum,$groupname,$action);	my %stored = &retrieve_settings($cdom,$cnum,$groupname,$action);
if ($state eq 'verify') {	if ($state eq 'verify') {
&verify_reenable($r,$groupname,$state,$action,$page,$states,	&verify_reenable($r,$groupname,$state,$action,$page,$states,
\%stored);	\%stored,$crstype);
} elsif ($state eq 'result') {	} elsif ($state eq 'result') {
&reenable_group($r,$cdom,$cnum,$groupname);	&reenable_group($r,$cdom,$cnum,$groupname,$crstype);
}	}
}	}
}	}

sub verify_delete {	sub verify_delete {
my ($r,$groupname,$formname,$action,$page,$states,$stored) = @_;	my ($r,$groupname,$formname,$action,$page,$states,$stored,$crstype) = @_;
$r->print(&Apache::lonhtmlcommon::echo_form_input([]));	$r->print(&Apache::lonhtmlcommon::echo_form_input([]));
$r->print(&mt('You have requested deletion of the group [_1].'	$r->print(&mt('You have requested deletion of the group [_1].'
,'<i>'.$stored->{'description'}.'</i>').	,'<i>'.$stored->{'description'}.'</i>').
'<br /><br />'.&mt('When a group is deleted the following occurs:').'<ul>'.	'<br /><br />'.&mt('When a group is deleted the following occurs:').'<ul>'.
'<li>'.&mt('All group membership is terminated.').'</li>'.	'<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 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>'.	if ($crstype eq 'Community') {
'</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.'));	$r->print( '<li>'.&mt("The group folder is removed from the folder containing it - normally this is the 'Community Groups' folder which contains folders for all groups in the community.").'</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 community in the future."));
	} else {
	$r->print( '<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 $prevtext = &mt('Go back');
my $nexttext = &mt('Delete group');	my $nexttext = &mt('Delete group');
my $prev;	my $prev;
Line 1156 sub verify_delete {	Line 1222 sub verify_delete {
}	}

sub delete_group {	sub delete_group {
my ($r,$cdom,$cnum,$groupname) = @_;	my ($r,$cdom,$cnum,$groupname,$crstype) = @_;
my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,	my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,
$groupname);	$groupname);
my $now = time;	my $now = time;
Line 1198 sub delete_group {	Line 1264 sub delete_group {
.&mt('Group deletion failed because deletion of [_1] out of [_2] members failed.'	.&mt('Group deletion failed because deletion of [_1] out of [_2] members failed.'
,$num_fail,$num_users)	,$num_fail,$num_users)
.'</div>');	.'</div>');

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

sub reenable_folder {	sub reenable_folder {
my ($cdom,$cnum,$groupname,$description) = @_;	my ($cdom,$cnum,$groupname,$description,$crstype) = @_;
my $outcome;	my $outcome;
my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';	my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
my $allgrpsmap = $crspath.'group_allfolders.sequence';	my $allgrpsmap = $crspath.'group_allfolders.sequence';
my $foldertitle = &mt('Course Folder -[_1]',$description);	my $foldertitle;
	if ($crstype eq 'Community') {
	$foldertitle = &mt("Community Folder -[_1]",$description);
	} else {
	$foldertitle = &mt("Course Folder -[_1]",$description);
	}
my $mapurl = $crspath.'group_folder_'.	my $mapurl = $crspath.'group_folder_'.
$groupname.'.sequence';	$groupname.'.sequence';
my ($errtext,$fatal)=&LONCAPA::map::mapread($allgrpsmap);	my ($errtext,$fatal)=&LONCAPA::map::mapread($allgrpsmap);
Line 1243 sub reenable_folder {	Line 1316 sub reenable_folder {
$LONCAPA::map::resources[$idx] = $foldertitle.':'.$mapurl.	$LONCAPA::map::resources[$idx] = $foldertitle.':'.$mapurl.
':false:normal:res';	':false:normal:res';
$LONCAPA::map::order[1+$#LONCAPA::map::order]=$idx;	$LONCAPA::map::order[1+$#LONCAPA::map::order]=$idx;
my ($outtext,$errtext) = &LONCAPA::map::storemap($allgrpsmap,1);	my ($outtext,$errtext) = &LONCAPA::map::storemap($allgrpsmap,1,1);
if ($errtext) {	if ($errtext) {
$outcome='<div class="LC_error">'	$outcome='<div class="LC_error">'
.&mt('An error occurred when saving updated parent folder to group:'	.&mt('An error occurred when saving updated parent folder to group:'
Line 1258 sub reenable_folder {	Line 1331 sub reenable_folder {
}	}

sub modify_folders {	sub modify_folders {
my ($cdom,$cnum,$groupname) = @_;	my ($cdom,$cnum,$groupname,$crstype) = @_;
my ($outcome,$groupmap,$groupmapres,$map,$id,$src);	my ($outcome,$groupmap,$groupmapres,$map,$id,$src);
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
if (!defined($navmap)) {	if (!defined($navmap)) {
$outcome = '<div class="LC_error">'.	$outcome = '<div class="LC_error">';
&mt('Error reading course contents.').' '.	if ($crstype eq 'Community') {
&mt('You need to re-initialize the course.').	$outcome .= &mt("Error reading community contents.").' '.
'</div>';	&mt("You need to re-initialize the community.");
	} else {
	$outcome .= &mt("Error reading course contents.").' '.
	&mt("You need to re-initialize the course.");
	}
	$outcome .= '</div>';
return $outcome;	return $outcome;
}	}
$groupmap = '/uploaded/'.$cdom.'/'.$cnum.'/'.'group_folder_'.	$groupmap = '/uploaded/'.$cdom.'/'.$cnum.'/'.'group_folder_'.
Line 1303 sub modify_folders {	Line 1381 sub modify_folders {
$LONCAPA::map::order[$i] = $LONCAPA::map::order[$i+1];	$LONCAPA::map::order[$i] = $LONCAPA::map::order[$i+1];
}	}
$#LONCAPA::map::order--;	$#LONCAPA::map::order--;
my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1);	my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1,1);
if ($errtext) {	if ($errtext) {
$outcome='<div class="LC_error">'	$outcome='<div class="LC_error">'
.&mt('An error occurred when saving updated parent folder to group:')	.&mt('An error occurred when saving updated parent folder to group:')
Line 1320 sub modify_folders {	Line 1398 sub modify_folders {
}	}

sub verify_reenable {	sub verify_reenable {
my ($r,$groupname,$formname,$action,$page,$states,$stored) = @_;	my ($r,$groupname,$formname,$action,$page,$states,$stored,$crstype) = @_;
$r->print(&Apache::lonhtmlcommon::echo_form_input([]));	$r->print(&Apache::lonhtmlcommon::echo_form_input([]));
$r->print(&mt('You have requested enabling the previously deleted group [_1].'	$r->print(&mt('You have requested enabling the previously deleted group [_1].'
,'<i>'.$stored->{'description'}.'</i>').	,'<i>'.$stored->{'description'}.'</i>').
'<br /><br />'.&mt('When a deleted group is re-enabled the following occurs:').'<ul>'.	'<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('Group settings and membership at the time the group was deleted are reinstated.').'</li><li>');
'<li>'.&mt('A group folder is added to the "Course Groups" folder which contains folders for all groups in the course.').'</li></ul>');	if ($crstype eq 'Community') {
	$r->print(&mt("A group folder is added to the 'Community Groups' folder which contains folders for all groups in the community."));
	} else {
	$r->print(&mt("A group folder is added to the 'Course Groups' folder which contains folders for all groups in the course."));
	}
	$r->print('</li></ul>');
my $prevtext = &mt('Go back');	my $prevtext = &mt('Go back');
my $nexttext = &mt('Reenable group');	my $nexttext = &mt('Reenable group');
my $prev;	my $prev;
Line 1339 sub verify_reenable {	Line 1422 sub verify_reenable {
}	}

sub reenable_group {	sub reenable_group {
my ($r,$cdom,$cnum,$groupname) = @_;	my ($r,$cdom,$cnum,$groupname,$crstype) = @_;
my %groups =	my %groups =
&Apache::longroup::coursegroups($cdom,$cnum,$groupname,	&Apache::longroup::coursegroups($cdom,$cnum,$groupname,
'deleted_groups');	'deleted_groups');
Line 1413 $context) eq 'ok') {	Line 1496 $context) eq 'ok') {
.&mt('There were no group members to reinstate, as none were removed when the group was deleted.')	.&mt('There were no group members to reinstate, as none were removed when the group was deleted.')
.'</div>');	.'</div>');
}	}
my $outcome = &reenable_folder($cdom,$cnum,$groupname,$description);	my $outcome = &reenable_folder($cdom,$cnum,$groupname,$description,$crstype);
if ($outcome eq '') {	if ($outcome eq '') {
$r->print('<div class="LC_success">'	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Group successfully re-enabled.'));
.&mt('Group successfully re-enabled.')	$message = &Apache::loncommon::confirmwrapper($message);
.'</div>');	$r->print($message);
} else {	} else {
$r->print('<div class="LC_error">'	$r->print('<div class="LC_error">');
.&mt("Although the group was re-enabled, an error occurred when adding the group's folder to the 'Course Groups' folder: [_1]",$outcome)	if ($crstype eq 'Community') {
.'</div>');	$r->print(&mt("Although the group was re-enabled, an error occurred when adding the group's folder to the 'Community Groups' folder: [_1]",$outcome));
	} else {
	$r->print(&mt("Although the group was re-enabled, an error occurred when adding the group's folder to the 'Course Groups' folder: [_1]",$outcome));
	}
	$r->print('</div>');
}	}
} else {	} else {
$r->print('<div class="LC_error">'	my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Re-enabling group failed.'),1);
.&mt('Re-enabling group failed.')	$message = &Apache::loncommon::confirmwrapper($message);
.'</div>');	$r->print($message);
}	}
return;	return;
}	}
Line 1440 sub header {	Line 1527 sub header {
{'add_entries' => $loaditems,});	{'add_entries' => $loaditems,});
my $output = <<"END";	my $output = <<"END";
$start_page	$start_page
<form method="POST" name="$state">	<form method="post" name="$state" action="">

END	END
if ($action eq 'create' \|\| $action eq 'modify') {	if ($action eq 'create' \|\| $action eq 'modify') {
Line 1500 sub build_members_list {	Line 1587 sub build_members_list {
sub group_files {	sub group_files {
my ($group,$portpath,$numfiles,$numdirs) = @_;	my ($group,$portpath,$numfiles,$numdirs) = @_;
my $dirptr=16384;	my $dirptr=16384;
my @dir_list=&Apache::portfolio::get_dir_list($portpath,undef,$group);	my ($dirlistref,$listerror) =
foreach my $line (@dir_list) {	&Apache::portfolio::get_dir_list($portpath,undef,$group);
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);	if (ref($dirlistref) eq 'ARRAY') {
if (($filename !~ /^\.\.?$/) && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(\d+)\.([^\.])$/) && ($filename ne 'no_such_dir')) {	foreach my $line (@{$dirlistref}) {
if ($dirptr&$testdir) {	my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);
$portpath .= '/'.$filename;	if (($filename !~ /^\.\.?$/) && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(\d+)\.([^\.])$/) && ($filename ne 'no_such_dir')) {
$$numdirs ++;	if ($dirptr&$testdir) {
&group_files($group,$portpath,$numfiles,$numdirs)	$portpath .= '/'.$filename;
} else {	$$numdirs ++;
$$numfiles ++;	&group_files($group,$portpath,$numfiles,$numdirs)
	} else {
	$$numfiles ++;
	}
}	}
}	}
}	}
Line 1531 sub group_members {	Line 1621 sub group_members {
future => 0,	future => 0,
);	);
my $totalmembers = 0;	my $totalmembers = 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) {
Line 1579 sub general_settings_form {	Line 1669 sub general_settings_form {
&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,$cdom,$cnum,$action,$formname,$sectioncount,3,	&membership_options($r,$cdom,$cnum,$action,$formname,$sectioncount,3,
$gpterm,$ucgpterm);	$gpterm,$ucgpterm,$crstype);
$nexttext = $$navbuttons{'gtns'};	$nexttext = $$navbuttons{'gtns'};
} else {	} else {
my @available = ();	my @available = ();
Line 1588 sub general_settings_form {	Line 1678 sub general_settings_form {
@{$tools} = sort(keys(%{$functions}));	@{$tools} = sort(keys(%{$functions}));
&privilege_specificity($r,$action,3,$tools,$stored,$toolprivs,	&privilege_specificity($r,$action,3,$tools,$stored,$toolprivs,
$fixedprivs,\@available,$formname,	$fixedprivs,\@available,$formname,
$gpterm,$ucgpterm,$functions);	$gpterm,$ucgpterm,$functions,$crstype);
&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,$cdom,$cnum);	$gpterm,$ucgpterm,$crstype,$cdom,$cnum);
Line 1646 sub groupsettings_options {	Line 1736 sub groupsettings_options {
if ($remnum) {	if ($remnum) {
$halfnum ++;	$halfnum ++;
}	}
my @allfunctions = sort(keys (%{$functions}));	my @allfunctions = sort(keys(%{$functions}));

$r->print(&Apache::lonhtmlcommon::row_title($lt{'func'})	$r->print(&Apache::lonhtmlcommon::row_title($lt{'func'})
.'<div>'	.'<div>'
Line 1701 sub groupsettings_options {	Line 1791 sub groupsettings_options {
} else {	} else {
$r->print(&mt('Quota allocated to group portfolio:'));	$r->print(&mt('Quota allocated to group portfolio:'));
}	}
$r->print(' '.&mt('[_1] Mb','<input type="text" name="quota" size="4" />'));	$r->print(' '.&mt('[_1] MB','<input type="text" name="quota" size="4" />'));
if ($action eq 'create') {	if ($action eq 'create') {
$r->print('<br />'	$r->print('<br />'
.&mt('A total of [_1] Mb can be divided amongst all '.$gpterm.'s in the '	.&mt('A total of [_1] MB can be divided amongst all '.$gpterm.'s in the '
.lc($crstype).', and [_2] Mb are currently unallocated.'	.lc($crstype).', and [_2] MB are currently unallocated.'
,$crsquota,sprintf("%.2f",$freespace))	,$crsquota,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 />'	$r->print('<br />'
.&mt('The quota can be increased to [_1] Mb, '	.&mt('The quota can be increased to [_1] MB, '
.'by adding all unallocated space for '.$gpterm.'s in the '.lc($crstype).'.'	.'by adding all unallocated space for '.$gpterm.'s in the '.lc($crstype).'.'
,sprintf("%.2f",$maxposs)));	,sprintf("%.2f",$maxposs)));
}	}
Line 1729 sub get_quota_constraints {	Line 1819 sub get_quota_constraints {
my ($crsquota,$freespace,$maxposs);	my ($crsquota,$freespace,$maxposs);
$crsquota = $env{'course.'.$env{'request.course.id'}.'.internal.coursequota'};	$crsquota = $env{'course.'.$env{'request.course.id'}.'.internal.coursequota'};
if ($crsquota eq '') {	if ($crsquota eq '') {
$crsquota = 20;	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $crstype = &Apache::loncommon::course_type();
	my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
	my %coursehash = (
	'internal.coursecode' => $env{'course.'.$env{'request.course.id'}.'.internal.coursecode'},
	'internal.textbook' => $env{'course.'.$env{'request.course.id'}.'.internal.textbook'},
	);
	my %staticdefaults = (
	coursequota => 20,
	);
	my $quotatype = &Apache::lonuserutils::get_extended_type($cdom,$cnum,$crstype,\%coursehash);
	if ($crsquota eq '') {
	$crsquota = $domdefs{$quotatype.'coursequota'};
	if ($crsquota eq '') {
	$crsquota = $staticdefaults{'coursequota'};
	}
	}
}	}
$freespace = $crsquota - &Apache::longroup::sum_quotas();	$freespace = $crsquota - &Apache::longroup::sum_quotas();
if ($action eq 'create') {	if ($action eq 'create') {
Line 1741 sub get_quota_constraints {	Line 1848 sub get_quota_constraints {
}	}

sub membership_options {	sub membership_options {
my ($r,$cdom,$cnum,$action,$state,$sectioncount,$image,$gpterm,$ucgpterm)=@_;	my ($r,$cdom,$cnum,$action,$state,$sectioncount,$image,$gpterm,$ucgpterm,$crstype)=@_;
my $crstype = &Apache::loncommon::course_type();
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
'pipa' => 'Build a list of users for selection of group members',	'pipa' => 'Build a list of users for selection of group members',
'gmem' => "Group membership selection list criteria:",	'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 course users from which you will select members of the new group.',
lc($crstype).' users from which you will select ',	'pica' => 'Pick the criteria to use to build a list of course users from which you will select additional members of the group.',
'meof' => "members of the new group.",	'ifno' => 'If you do not wish to add members when you first create the group, there is no need to pick any criteria.',
'admg' => "additional members of the group.",
'ifno' => "If you do not wish to add members when you first ".
"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 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' => 'Course roles',
'cose' => $crstype.' sections',	'cose' => 'Course sections',
);	);
	if ($crstype eq 'Community') {
	$lt{'picr'} = &mt('Pick the criteria to use to build a list of community participants from which you will select ');
	$lt{'asub'} = &mt('A subsequent step will also allow you to specify automatic adding/dropping of group members triggered by specified user role and section [_1]changes[_2] in the course.','<i>','</i>');
	$lt{'coro'} = &mt('Community roles');
	$lt{'cose'} = &mt('Community sections');
	} else {
	$lt{'asub'} = &mt('A subsequent step will also allow you to specify automatic adding/dropping of group members triggered by specified user role and section [_1]changes[_2] in the course.','<i>','</i>');
	}
my %status_types = (	my %status_types = (
active => &mt('Currently has access'),	active => &mt('Currently has access'),
previous => &mt('Previously had access'),	previous => &mt('Previously had access'),
future => &mt('Will have future access'),	future => &mt('Will have future access'),
);	);

my @roles = ('st','cc','in','ta','ep','cr');	my @roles = ('st');
	if ($crstype eq 'Community') {
	push(@roles,'co');
	} else {
	push(@roles,'cc');
	}
	push (@roles,('in','ta','ep','ad','cr'));

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

$r->print(&Apache::lonhtmlcommon::topic_bar($image,$lt{'pipa'}).'	$r->print(&Apache::lonhtmlcommon::topic_bar($image,$lt{'pipa'}).'
<b>'.$lt{'gmem'}.'</b><br />'.$lt{'picr'});	<b>'.$lt{'gmem'}.'</b><br />');
if ($action eq 'create') {	if ($action eq 'create') {
$r->print($lt{'meof'}.'<br />'.$lt{'ifno'}.'<br />'.$lt{'asub'});	$r->print($lt{'picr'}.'<br />'.$lt{'ifno'}.'<br />'.$lt{'asub'});
} else {	} else {
$r->print($lt{'admg'});	$r->print($lt{'pica'});
}	}
$r->print('	$r->print('
<br />	<br />
Line 1888 sub choose_members_form {	Line 2004 sub choose_members_form {
}	}
}	}
&privilege_specificity($r,$action,$specimg,$tools,$stored,$toolprivs,	&privilege_specificity($r,$action,$specimg,$tools,$stored,$toolprivs,
$fixedprivs,\@available,$formname,$gpterm,$ucgpterm);	$fixedprivs,\@available,$formname,$gpterm,$ucgpterm,
	$functions,$crstype);
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,
$granularity,\%origmembers,$gpterm,	$granularity,\%origmembers,$gpterm,
Line 1951 sub print_current_settings {	Line 2068 sub print_current_settings {
dfac => 'Default access dates',	dfac => 'Default access dates',
ygrs => "Your group selections - ",	ygrs => "Your group selections - ",
tfwa => "The following settings will apply to the group:",	tfwa => "The following settings will apply to the group:",
difn => 'Different collaborative tools<br />for different members:',
stda => 'Start date:',	stda => 'Start date:',
enda => 'End date:',	enda => 'End date:',
);	);
	$lt{'difn'} = &mt('Different collaborative tools[_1]for different members:','<br />');
my $showstart = &Apache::lonlocal::locallocaltime($startdate);	my $showstart = &Apache::lonlocal::locallocaltime($startdate);
my $showend;	my $showend;
if ($enddate == 0) {	if ($enddate == 0) {
Line 2004 sub print_current_settings {	Line 2121 sub print_current_settings {
$r->print('</ul>');	$r->print('</ul>');
}	}

my $quota_text=&mt('[_1] Mb',$quota);	my $quota_text=&mt('[_1] MB',$quota);
my $granu_text=&mt($granularity);	my $granu_text=&mt($granularity);
$r->print(<<"END");	$r->print(<<"END");
</td>	</td>
Line 2066 sub pick_new_members {	Line 2183 sub pick_new_members {
&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>	$r->print('<td>
<fieldset><legend><b>'.$lt{'setf'}.'</b></legend>	<fieldset><legend>'.$lt{'setf'}.'</legend>
<span class="LC_nobreak">	<span class="LC_nobreak">
<input type="button" value="'.&mt('check all').'"	<input type="button" value="'.&mt('check all').'"
onclick="javascript:checkAllTools(document.'.$formname.')" />	onclick="javascript:checkAllTools(document.'.$formname.')" />
Line 2165 sub pick_new_members {	Line 2282 sub pick_new_members {

sub privilege_specificity {	sub privilege_specificity {
my ($r,$action,$img,$tools,$stored,$toolprivs,$fixedprivs,$available,	my ($r,$action,$img,$tools,$stored,$toolprivs,$fixedprivs,$available,
$formname,$gpterm,$ucgpterm,$functions) = @_;	$formname,$gpterm,$ucgpterm,$functions,$crstype) = @_;
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
'uprv' => 'User privileges for collaborative tools',	'uprv' => 'User privileges for collaborative tools',
'frty' => 'For each collaborative tool you have chosen to include, '.	'frty' => 'For each collaborative tool you have chosen to include, '.
Line 2194 sub privilege_specificity {	Line 2311 sub privilege_specificity {
"for users who receive specific sections/roles in the course ",	"for users who receive specific sections/roles in the course ",
'asyo' => "As you have chosen not to include any collaborative tools ".	'asyo' => "As you have chosen not to include any collaborative tools ".
"in the group, no default optional privileges need to be set.",	"in the group, no default optional privileges need to be set.",
'plin' => 'Indicate which <b>optional</b> privileges members '.
'will receive by default for a specific tool.',	'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:',
);	);
	$lt{'plin'} = &mt('Indicate which [_1]optional[_2] privileges members '.
	'will receive by default for a specific tool.','<b>','</b>');
	if ($crstype eq 'Community') {
	$lt{'thes'} = &mt('These will be the privileges given to members assigned in the future via automatic group assignment for users who receive specific sections/roles in the community ');
	}
my $totaloptionalprivs = 0;	my $totaloptionalprivs = 0;
foreach my $tool (@{$tools}) {	foreach my $tool (@{$tools}) {
foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {	foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {
Line 2297 sub default_privileges {	Line 2418 sub default_privileges {
&Apache::lonhtmlcommon::row_title($lt{'func'},undef,	&Apache::lonhtmlcommon::row_title($lt{'func'},undef,
'LC_groups_functionality'));	'LC_groups_functionality'));
my @tableHeader;	my @tableHeader;
foreach my $key (sort(keys(%{$functions}))){	if ((ref($functions) eq 'HASH') && (ref($tools) eq 'ARRAY')) {
push (@tableHeader,&mt(${$functions}{$key}));	@tableHeader = map { $functions->{$_}; } @{$tools};
}	}
$r->print(join('</td><td class="LC_groups_functionality">', @tableHeader));	$r->print(join('</td><td class="LC_groups_functionality">', @tableHeader));
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
my $fixed = '';	my $fixed = '';
Line 2479 sub current_membership {	Line 2600 sub current_membership {
'actn' => 'Action?',	'actn' => 'Action?',
'name' => 'Name',	'name' => 'Name',
'usnm' => 'Username',	'usnm' => 'Username',
	'stid' => 'ID',
'doma' => 'Domain',	'doma' => 'Domain',
'stda' => 'Start Date',	'stda' => 'Start Date',
'enda' => 'End Date',	'enda' => 'End Date',
Line 2516 sub current_membership {	Line 2638 sub current_membership {
$r->print('	$r->print('
<td>	<td>
<span class="LC_nobreak">	<span class="LC_nobreak">
<fieldset><legend><b>'.$lt{'curf'}.'</b></legend>	<fieldset><legend>'.$lt{'curf'}.'</legend>
<input type="button" value="'.&mt('check all').'"	<input type="button" value="'.&mt('check all').'"
onclick="javascript:checkAllTools(document.'.$formname.')" />	onclick="javascript:checkAllTools(document.'.$formname.')" />

Line 2540 END	Line 2662 END
<th><a href="javascript:changeSort('fullname')">$lt{'name'}</a></th>	<th><a href="javascript:changeSort('fullname')">$lt{'name'}</a></th>
<th><a href="javascript:changeSort('username')">$lt{'usnm'}</a></th>	<th><a href="javascript:changeSort('username')">$lt{'usnm'}</a></th>
<th><a href="javascript:changeSort('domain')">$lt{'doma'}</a></th>	<th><a href="javascript:changeSort('domain')">$lt{'doma'}</a></th>
<th><a href="javascript:changeSort('id')">ID</a></th>	<th><a href="javascript:changeSort('id')">$lt{'ID'}</a></th>
<th><a href="javascript:changeSort('start')">$lt{'stda'}</a></th>	<th><a href="javascript:changeSort('start')">$lt{'stda'}</a></th>
<th><a href="javascript:changeSort('end')">$lt{'enda'}</a></th>	<th><a href="javascript:changeSort('end')">$lt{'enda'}</a></th>
END	END
Line 2664 END	Line 2786 END
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
} else {	} else {
$r->print(&mt('There are no active, future or previous group members to modify.'));	$r->print(
	'<p class="LC_info">'
	.&mt('There are no active, future or previous group members to modify.')
	.'</p>');
}	}
return $numcurrent;	return $numcurrent;
}	}
Line 2674 sub check_uncheck_buttons {	Line 2799 sub check_uncheck_buttons {
$r->print('	$r->print('
<td '.$colspan.'>	<td '.$colspan.'>
<fieldset>	<fieldset>
<legend><b>'.$title.'</b></legend>	<legend>'.$title.'</legend>
<span class="LC_nobreak">	<span class="LC_nobreak">
<input type="button" value="'.&mt('check all').'"	<input type="button" value="'.&mt('check all').'"
onclick="javascript:checkAll(document.'.$formname.'.'.$field.')" />	onclick="javascript:checkAll(document.'.$formname.'.'.$field.')" />
Line 2732 sub change_privs_form {	Line 2857 sub change_privs_form {
}	}
}	}
if (!$exp_or_del) {	if (!$exp_or_del) {
$r->print($lt{'nome'}.'<br />');	$r->print('<p class="LC_info">'.$lt{'nome'}.'</p>');
}	}

$r->print(&Apache::lonhtmlcommon::topic_bar(4,&mt('Setting optional privileges for specific group members')));	$r->print(&Apache::lonhtmlcommon::topic_bar(4,&mt('Setting optional privileges for specific group members')));
Line 2754 sub change_privs_form {	Line 2879 sub change_privs_form {
sub add_members_form {	sub add_members_form {
my ($r,$cdom,$cnum,$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,$crstype)=@_;
$r->print(' <br />');	$r->print(' <br />');
my @available = ();	my @available = ();
my @unavailable = ();	my @unavailable = ();
Line 2763 sub add_members_form {	Line 2888 sub add_members_form {
$groupname,$description,$granularity,$quota,	$groupname,$description,$granularity,$quota,
\@available,\@unavailable,$gpterm,$ucgpterm);	\@available,\@unavailable,$gpterm,$ucgpterm);
&membership_options($r,$cdom,$cnum,$action,$formname,$sectioncount,1,$gpterm,	&membership_options($r,$cdom,$cnum,$action,$formname,$sectioncount,1,$gpterm,
$ucgpterm);	$ucgpterm,$crstype);
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 2958 sub member_privileges_form {	Line 3083 sub member_privileges_form {
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>'.	$r->print('<fieldset><legend>'.&mt($tool).'</legend>');
'<th colspan="'.$colspan.'">'.	$r->print('<table><tr>');
&mt($tool).'</th></tr><tr>');
my $privcount = 0;	my $privcount = 0;
foreach my $priv (@{$showboxes{$tool}}) {	foreach my $priv (@{$showboxes{$tool}}) {
$privcount ++;	$privcount ++;
Line 2975 sub member_privileges_form {	Line 3099 sub member_privileges_form {
$r->print('<td>');	$r->print('<td>');
}	}
$r->print(	$r->print(
'<fieldset><legend><b>'.&mt($$toolprivs{$tool}{$priv}).'</b></legend>'	'<fieldset><legend>'.&mt($$toolprivs{$tool}{$priv}).'</legend>'
.'<span class="LC_nobreak">'	.'<span class="LC_nobreak">'
.' <input type="button" value="'.&mt('check all').'"'	.' <input type="button" value="'.&mt('check all').'"'
.' onclick="javascript:checkAll(document.'.$formname.'.userpriv_'.$priv.')" />'	.' onclick="javascript:checkAll(document.'.$formname.'.userpriv_'.$priv.')" />'
Line 2995 sub member_privileges_form {	Line 3119 sub member_privileges_form {
}	}
}	}
}	}
$r->print('</tr></table></td><td> </td>');	$r->print('</tr></table></fieldset></td><td> </td>');
}	}
}	}
$r->print('</tr></table>');	$r->print('</tr></table>');
Line 3095 sub process_request {	Line 3219 sub process_request {
&process_membership($r,$cdom,$cnum,$action,$state,$groupname,$tools,	&process_membership($r,$cdom,$cnum,$action,$state,$groupname,$tools,
$enddate,$startdate,$userdata,$idx,$toolprivs,	$enddate,$startdate,$userdata,$idx,$toolprivs,
$usertools,$specificity,\@defprivs,$memchg,$gpterm,	$usertools,$specificity,\@defprivs,$memchg,$gpterm,
$ucgpterm);	$ucgpterm,$crstype);
}	}
return;	return;
}	}
Line 3129 sub write_group_data {	Line 3253 sub write_group_data {
$quota = 0;	$quota = 0;
$r->print('<div class="LC_warning">'	$r->print('<div class="LC_warning">'
.&mt('The value you entered for the quota for the group portfolio in this '.$gpterm	.&mt('The value you entered for the quota for the group portfolio in this '.$gpterm
.' contained invalid characters, so it has been set to 0 Mb. You can change this by'	.' contained invalid characters, so it has been set to 0 MB. You can change this by'
.' modifying the '.$gpterm.' settings.')	.' modifying the '.$gpterm.' settings.')
.'</div>');	.'</div>');
}	}
Line 3137 sub write_group_data {	Line 3261 sub write_group_data {
$quota = $maxposs;	$quota = $maxposs;
$r->print('<div class="LC_warning">'	$r->print('<div class="LC_warning">'
.&mt('The value you entered for the quota for the group portfolio in this '.$gpterm	.&mt('The value you entered for the quota for the group portfolio in this '.$gpterm
.' exceeded the maximum possible value, so it has been set to [_1] Mb '	.' exceeded the maximum possible value, so it has been set to [_1] MB '
.'(the maximum possible value).',sprintf("%.2f",$maxposs))	.'(the maximum possible value).',sprintf("%.2f",$maxposs))
.'</div>');	.'</div>');
}	}
Line 3205 sub write_group_data {	Line 3329 sub write_group_data {
$description,$tools,\%groupinfo,	$description,$tools,\%groupinfo,
$gpterm,$ucgpterm,$crstype);	$gpterm,$ucgpterm,$crstype);
if ($result eq 'ok') {	if ($result eq 'ok') {
$r->print('<div class="LC_success">'	my $msg = &Apache::lonhtmlcommon::confirm_success(&mt($ucgpterm.' [_1] was created.','<i>'.$groupname.'</i>'));
.&mt($ucgpterm.' [_1] was created.','<i>'.$groupname.'</i>')	$msg = &Apache::loncommon::confirmwrapper($msg);
.'</div>');	$r->print($msg);
} else {	} else {
$r->print('<div class="LC_error">'	my $msg = &Apache::lonhtmlcommon::confirm_success(&mt('A problem occurred when creating folders for the new '.$gpterm.' [_1]:'
.&mt('A problem occurred when creating folders for the new '.$gpterm.' [_1]:'	,'<i>'.$groupname.'</i>')
,'<i>'.$groupname.'</i>')	.'<br />'.$result,1);
.'<br />'.$result	$msg = &Apache::loncommon::confirmwrapper($msg);
.'</div>');	$r->print($msg);
}	}
} elsif ($action eq 'modify') {	} elsif ($action eq 'modify') {
my (@oldtools,@newtools);	my (@oldtools,@newtools);
Line 3257 sub write_group_data {	Line 3381 sub write_group_data {
}	}
undef($navmap);	undef($navmap);
} else {	} else {
$error = &mt('An error occurred while setting parameters '.	if ($crstype eq 'Community') {
	$error = &mt("An error occurred while setting parameters '.
'for Discussion Boards folder: '.	'for Discussion Boards folder: '.
'Could not retrieve course information' );	'Could not retrieve community information");
	} else {
	$error = &mt("An error occurred while setting parameters '.
	'for Discussion Boards folder: '.
	'Could not retrieve course information");
	}
}	}
} else {	} else {
$r->print($outcome);	$r->print($outcome);
}	}
}	}
} else {	} else {
$error = &mt("An error occurred while retrieving the contents of the group's folder.").'<br />'.	$error = &mt("An error occurred while retrieving the contents of the group's folder.").'<br />';
&mt('You need to re-initialize the course.');	if ($crstype eq 'Community') {
	$error .= &mt("You need to re-initialize the community.");

	} else {
	$error .= &mt("You need to re-initialize the course.");
	}
}	}
if ($error ne '') {	if ($error ne '') {
$r->print('<div class="LC_error">'.$error.'</div>');	$r->print('<div class="LC_error">'.$error.'</div>');
}	}
}	}
$r->print('<div class="LC_success">'	my $message = &Apache::lonhtmlcommon::confirm_success(&mt($ucgpterm.' [_1] was updated.','<i>'.$groupname.'</i>'));
.&mt($ucgpterm.' [_1] was updated.','<i>'.$groupname.'</i>')	$message = &Apache::loncommon::confirmwrapper($message);
.'</div>');	$r->print($message);
}	}
} else {	} else {
my %actiontype = (	my %actiontype = (
Line 3285 sub write_group_data {	Line 3420 sub write_group_data {
&Apache::lonnet::logthis("Failed to store $gpterm $groupname ".	&Apache::lonnet::logthis("Failed to store $gpterm $groupname ".
'in '.lc($crstype).': '.$cnum.	'in '.lc($crstype).': '.$cnum.
' in domain: '.$cdom);	' in domain: '.$cdom);
$r->print('<div class="LC_error">'	$r->print('<p class="LC_error">'
.&mt('An error occurred when [_1] the '.$gpterm.'. '	.&mt('An error occurred when '.$actiontype{$action}.' the '.$gpterm.'. '
.'Please try again.',$actiontype{$action})	.'Please try again.')
.'</div>');	.'</p');
}	}
return $result;	return $result;
}	}
Line 3296 sub write_group_data {	Line 3431 sub write_group_data {
sub process_membership {	sub process_membership {
my ($r,$cdom,$cnum,$action,$state,$groupname,$tools,$enddate,$startdate,	my ($r,$cdom,$cnum,$action,$state,$groupname,$tools,$enddate,$startdate,
$userdata,$idx,$toolprivs,$usertools,$specificity,$defprivs,$memchg,	$userdata,$idx,$toolprivs,$usertools,$specificity,$defprivs,$memchg,
$gpterm,$ucgpterm)=@_;	$gpterm,$ucgpterm,$crstype)=@_;
my %usersettings = ();	my %usersettings = ();
my %added= ();	my %added= ();
my %failed = ();	my %failed = ();
Line 3419 sub process_membership {	Line 3554 sub process_membership {
if (grep/^$user$/,@reenable) {	if (grep/^$user$/,@reenable) {
$start = $startdate;	$start = $startdate;
$end = $enddate;	$end = $enddate;
$type = 'reenabled';	$type = 're-enabled';
}	}
}	}
if ($type eq '') {	if ($type eq '') {
Line 3453 sub process_membership {	Line 3588 sub process_membership {
my $roster_result = &Apache::lonnet::modify_coursegroup_membership($cdom,	my $roster_result = &Apache::lonnet::modify_coursegroup_membership($cdom,
$cnum,\%usersettings);	$cnum,\%usersettings);
if ($num_ok) {	if ($num_ok) {
foreach my $type (sort(keys(%added))) {	my $msgall ='';
$r->print(&mt('The following users were successfully [_1]',$type));	foreach my $type (sort(keys(%added))) {
	my $message;
	my $tmsg = "The following users were successfully $type";
if (!($type eq 'deleted' \|\| $type eq 'expired')) {	if (!($type eq 'deleted' \|\| $type eq 'expired')) {
$r->print(&mt(' with the following privileges'));	$tmsg .= ' with the following privileges';
}	}
$r->print(':<br />');	$message .= &mt($tmsg.':').'<br/>';
foreach my $user (@{$added{$type}}) {	foreach my $user (@{$added{$type}}) {
my $privlist = '';	my $privlist = '';
if (!($type eq 'deleted' \|\| $type eq 'expired')) {	if (!($type eq 'deleted' \|\| $type eq 'expired')) {
Line 3474 sub process_membership {	Line 3611 sub process_membership {
}	}
$privlist =~ s/, $//;	$privlist =~ s/, $//;
}	}
$r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.$privlist.'<br />');	$message .= $$userdata{$user}[$$idx{fullname}].' - '.$user.$privlist.'<br />';
}	}
$r->print('<br />');	$message .= '<br/>';
	$message = &Apache::lonhtmlcommon::confirm_success($message);
	$msgall .= $message;
}	}
	$msgall = &Apache::loncommon::confirmwrapper($msgall);
	$r->print($msgall);
}	}
if ($num_fail) {	if ($num_fail) {
foreach my $type (sort(keys(%failed))) {	foreach my $type (sort(keys(%failed))) {
Line 3490 sub process_membership {	Line 3631 sub process_membership {
}	}
$r->print('<br />');	$r->print('<br />');
}	}
if (@unchanged > 0) {	# Is that really needed?
$r->print(&mt('No change occurred for the following users:').'<br />');	#
foreach my $user (sort(@unchanged)) {	# if (@unchanged > 0) {
$r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'<br />');	# $r->print(&mt('No change occurred for the following users:').'<br />');
}	# foreach my $user (sort(@unchanged)) {
$r->print('<br />');	# $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'<br />');
}	# }
	# $r->print('<br />');
	# }
if ($roster_result eq 'ok') {	if ($roster_result eq 'ok') {
$r->print('<div class="LC_success">'	$r->print('<div class="LC_success">'
.&mt($ucgpterm.' membership list updated.')	.&mt($ucgpterm.' membership list updated.')
.'</div>');	.'</div>');
$r->print('<p class="LC_info">'	$r->print('<p class="LC_info">');
.&mt('Any currently logged in course users affected by the changes you made'	if ($crstype eq 'Community') {
	$r->print(&mt("Any currently logged in community users affected by the changes you made"
.' to group membership or privileges for the [_1] group will need to log out'	.' 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.'	.' and log back in for their LON-CAPA sessions to reflect these changes.'
,'<i>'.$groupname.'</i>')	,'<i>'.$groupname.'</i>'));
.'</p>'
);	} else {
	$r->print(&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.'
	,'<i>'.$groupname.'</i>'));
	}
	$r->print('</p>');
} else {	} else {
$r->print('<div class="LC_error">'	$r->print('<div class="LC_error">'
.&mt("An error occurred while updating the $gpterm membership list:")	.&mt("An error occurred while updating the $gpterm membership list:")
Line 3578 sub mapping_settings {	Line 3728 sub mapping_settings {
@sections = ('all','none');	@sections = ('all','none');
}	}
$r->print(&Apache::lonhtmlcommon::topic_bar($image,$$lt{'pirs'}));	$r->print(&Apache::lonhtmlcommon::topic_bar($image,$$lt{'pirs'}));
my @roles = &standard_roles();	my @roles = &standard_roles($crstype);
my %customroles = &Apache::lonhtmlcommon::course_custom_roles($cdom,$cnum);	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());
Line 3621 sub print_autorole_item {	Line 3771 sub print_autorole_item {
my ($role,$roletitle,$sections) = @_;	my ($role,$roletitle,$sections) = @_;
my $sections_sel;	my $sections_sel;
if (@{$sections} > 0) {	if (@{$sections} > 0) {
if ($role eq 'cc') {	if (($role eq 'cc') \|\| ($role eq 'co')) {
$sections_sel = '<td align="right">'.	$sections_sel = '<td align="right">'.
&mt('all sections').'<input type="hidden" '.	&mt('all sections').'<input type="hidden" '.
'name="sec_cc" value="all" /></td>';	'name="sec_'.$role.'" value="all" /></td>';
} else {	} else {
$sections_sel='<td align="right">'.	$sections_sel='<td align="right">'.
&sections_selection($sections,'sec_'.$role).	&sections_selection($sections,'sec_'.$role).
Line 3640 sub print_autorole_item {	Line 3790 sub print_autorole_item {
}	}

sub standard_roles {	sub standard_roles {
my @roles = ('cc','in','ta','ep','st');	my ($crstype) = @_;
	my @roles = qw(in ta ep ad st);
	if ($crstype eq 'Community') {
	unshift(@roles,'co');
	} else {
	unshift(@roles,'cc');
	}
return @roles;	return @roles;
}	}

sub modify_menu {	sub modify_menu {
my ($r,$groupname,$page,$gpterm) = @_;	my ($r,$groupname,$page,$gpterm) = @_;
my @menu =	my @menu =
(	( { categorytitle =>'Group Actions',
{ text => "Modify default $gpterm settings",	items => [
help => 'Course_Modify_Group',
state => 'change_settings',	{ linktext => "Modify default $gpterm settings",
branch => 'settings',	url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=change_settings&branch=settings',
	icon => 'grp_settings.png',
	alttext => "Modify default $gpterm settings",
	permission => '1',
	help => 'Course_Modify_Group',
},	},
{ text => 'Modify access, tools and/or privileges for previous, '.	{ linktext => 'Modify access, tools and privileges for members',
'future, or current members',	url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=change_members&branch=members',
	icon => 'grp_tools.png',
	alttext => 'Modify access, tools and privileges for members',
	permission => '1',
help => 'Course_Modify_Group_Membership',	help => 'Course_Modify_Group_Membership',
state => 'change_members',
branch => 'members',
},	},
{ text => "Add member(s) to the $gpterm",	{ linktext => "Add member(s) to the $gpterm",
	url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=add_members&branch=adds',
	icon => 'grp_add.png',
	alttext => "Add member(s) to the $gpterm",
	permission => '1',
help => 'Course_Group_Add_Members',	help => 'Course_Group_Add_Members',
state => 'add_members',	}]}
branch => 'adds',	);
},	$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));
);
my $menu_html = '';
foreach my $menu_item (@menu) {
$menu_html .=
'<p><font size="+1"><a href="/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state='.$menu_item->{'state'}.'&branch='.$menu_item->{'branch'}.'">';
$menu_html.= &mt($menu_item->{'text'}).'</a></font>';
if (exists($menu_item->{'help'})) {
$menu_html.=
&Apache::loncommon::help_open_topic($menu_item->{'help'});
}
$menu_html.='</p>'.$/;
}
$r->print($menu_html);
return;	return;
}	}

Line 3779 sub add_group_folder {	Line 3931 sub add_group_folder {
my ($cdom,$cnum,$now,$groupname,$action,$description,$tools,$groupinfo,	my ($cdom,$cnum,$now,$groupname,$action,$description,$tools,$groupinfo,
$gpterm,$ucgpterm,$crstype) = @_;	$gpterm,$ucgpterm,$crstype) = @_;
if ($cdom eq '' \|\| $cnum eq '') {	if ($cdom eq '' \|\| $cnum eq '') {
return '<span class="LC_error">'	my $error = '<span class="LC_error">';
.&mt('Error: invalid course domain or number - group folder creation failed.')	if ($crstype eq 'Community') {
.'</span>';	$error .= &mt("Error: invalid community domain or number - group folder creation failed.");
	} else {
	$error .= &mt("Error: invalid course domain or number - group folder creation failed.");
	}
	$error .= '</span>';
	return $error;
}	}
my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage,$warning);	my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage,$warning);
my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';	my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
Line 3849 sub add_group_folder {	Line 4006 sub add_group_folder {
my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);	my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
if (!defined($navmap)) {	if (!defined($navmap)) {
return $warning.'<span class="LC_error">'.&mt('Error retrieving course contents').	$warning .= '<span class="LC_error">';
' '.&mt('You need to re-initialize the course.').'</span>';	if ($crstype eq 'Community') {
	$warning .= &mt("Error retrieving community contents").
	' '.&mt("You need to re-initialize the community.");
	} else {
	$warning .= &mt("Error retrieving course contents").
	' '.&mt("You need to re-initialize the course.");
	}
	$warning .= '</span>';
	return $warning;
}	}
# modify parameters	# modify parameters
my $parm_result;	my $parm_result;
Line 3931 sub map_updater {	Line 4096 sub map_updater {
$LONCAPA::map::resources[$newidx] = $itemtitle.':'.$newmapurl.	$LONCAPA::map::resources[$newidx] = $itemtitle.':'.$newmapurl.
':false:normal:res';	':false:normal:res';
$LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx;	$LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx;
my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1);	my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1,1);
if ($errtext) {	if ($errtext) {
$outcome = '<div class="LC_error">'	$outcome = '<div class="LC_error">'
.&mt('Error saving updated parent folder.')." ($parentmap): $errtext"	.&mt('Error saving updated parent folder.')." ($parentmap): $errtext"
Line 3955 sub new_map {	Line 4120 sub new_map {
}	}

sub parm_setter {	sub parm_setter {
my ($navmap,$cdom,$url,$groupname) = @_;	my ($navmap,$cdom,$url,$groupname,$crstype) = @_;
my $allresults;
if (!defined($navmap)) {	if (!defined($navmap)) {
$allresults = '<div class="LC_warning">'.	my $allresults;
&mt('Parameters not set for [_1] because the contents of the course could not be retrieved.',$url).' '.	if ($crstype eq 'Community') {
&mt('You need to reinitialize the course.').	$allresults = &mt("Parameters not set for [_1] because the contents of the community could not be retrieved.",$url).' '.
'</div>';	&mt("You need to reinitialize the community.");
return $allresults;	} else {
	$allresults = &mt("Parameters not set for [_1] because the contents of the course could not be retrieved.",$url).' '.
	&mt("You need to reinitialize the course.");

	}
	return '<div class="LC_warning">'.$allresults.'</div>';
}	}
my %hide_settings = (	my %hide_settings = (
'course' => {	'course' => {
Line 3976 sub parm_setter {	Line 4145 sub parm_setter {
},	},
);	);
my $res = $navmap->getResourceByUrl($url);	my $res = $navmap->getResourceByUrl($url);
	my $allresults;
if ($res) {	if ($res) {
my $symb = $res->symb();	my $symb = $res->symb();
foreach my $level (keys(%hide_settings)) {	foreach my $level (keys(%hide_settings)) {
Line 3992 sub parm_setter {	Line 4162 sub parm_setter {
}	}
}	}
} else {	} else {
$allresults = '<div class="LC_warning">'	$allresults = '<div class="LC_warning">';
.&mt('Parameters not set for [_1] because the resource was not recognized'	if ($crstype eq 'Community') {
.' as part of the course.','<tt>'.$url.'</tt>')	$allresults .= &mt("Parameters not set for [_1] because the resource was not recognized as part of the community.",'<tt>'.$url.'</tt>');
.'</div>';	} else {
	$allresults .= &mt('Parameters not set for [_1] because the resource was not recognized as part of the course.','<tt>'.$url.'</tt>');
	}
	$allresults .= '</div>';
}	}
return $allresults;	return $allresults;
}	}
Line 4004 sub create_homepage {	Line 4177 sub create_homepage {
my ($cdom,$cnum,$name,$groupinfo,$tools,$gpterm,$ucgpterm,$now) = @_;	my ($cdom,$cnum,$name,$groupinfo,$tools,$gpterm,$ucgpterm,$now) = @_;
my $functionality = join(',',@{$tools});	my $functionality = join(',',@{$tools});
my $content = &unescape($$groupinfo{description});	my $content = &unescape($$groupinfo{description});
$content=~s/\s+$//s;	chomp($content);
$content=~s/^\s+//s;	my $gateway = Apache::lonhtmlgateway->new();
$content=~s/\<br\s\/\>$//s;	$content = $gateway->process_incoming_html($content,1);
$content=&Apache::lonfeedback::clear_out_html($content,1);

my %pageinfo = (	my %pageinfo = (
'aaa_title' => "$ucgpterm: $name",	'aaa_title' => "$ucgpterm: $name",
Line 4067 sub validate_groupname {	Line 4239 sub validate_groupname {
}	}
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
igna => "Invalid $gpterm name",	igna => "Invalid $gpterm name",
tgne => "The $gpterm name entered ",
grna => "$ucgpterm names and section names used in a ".	grna => "$ucgpterm names and section names used in a ".
"$crstype must be unique.",	"$crstype must be unique.",
isno => "is not a valid name.",
gnmo => "$ucgpterm names may only contain letters, ".	gnmo => "$ucgpterm names may only contain letters, ".
"numbers or underscores.",	"numbers or underscores.",
cnnb => "can not be used as it is the name of ",
inth => " in this $crstype",
thgr => "- does not correspond to the name of an ".
"existing $gpterm",
);	);

my $exitmsg = '<span class="LC_error">'.$lt{'igna'}.'</span><br /><br />'.	my $exitmsg = '<span class="LC_error">'.$lt{'igna'}.'</span><br /><br />';
$lt{'tgne'}.' "'.$groupname.'" ';	my $nameshown = &Apache::loncommon::cleanup_html($groupname);
my $dupmsg = $lt{'grna'};
my $earlyout;
if (($groupname eq '') \|\| ($groupname =~ /\W/)) {	if (($groupname eq '') \|\| ($groupname =~ /\W/)) {
$earlyout = $exitmsg.$lt{'isno'}.'<br />'.$lt{'gnmo'};	return $exitmsg.
return $earlyout;	&mt("The $gpterm name entered '[_1]' is not a valid name.",$nameshown).
	'<br />'.$lt{'gnmo'};
	} elsif ($groupname eq 'syllabus') {
	return $exitmsg.
	&mt("The $gpterm name entered '[_1]' is reserved for use by LON-CAPA.",$nameshown);
}	}
if (exists($sectioncount{$groupname})) {	if (exists($sectioncount{$groupname})) {
return $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}.	return $exitmsg.
'<br />'.$lt{'grna'};	&mt("The $gpterm name entered '[_1]' can not be used as it is the name of a section in this $crstype.",$nameshown).
	'<br />'.$lt{'grna'};
}	}
if ($action eq 'create') {	if ($action eq 'create') {
if (exists($curr_groups{$groupname})) {	if (exists($curr_groups{$groupname})) {
return $exitmsg.$lt{'cnnb'}.&mt('an existing [_1]',$gpterm).	return $exitmsg.
$lt{'inth'}.'.<br />'.$lt{'grna'};	&mt("The $gpterm name entered '[_1]' can not be used as it is the name of an existing $gpterm in this $crstype.",$nameshown).
	'<br />'.$lt{'grna'};
} elsif (exists($deleted_groups{$groupname})) {	} elsif (exists($deleted_groups{$groupname})) {
return $exitmsg.$lt{'cnnb'}.&mt('a [_1] which previously existed',$gpterm).	return $exitmsg.
$lt{'inth'}.'.<br />'.$lt{'grna'};	&mt("The $gpterm name entered '[_1]' can not be used as it is the name of a $gpterm which previously existed in this $crstype.",$nameshown).
	'<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'}.	return &mt("$ucgpterm name: [_1] does not correspond to the name of an existing $gpterm in this $crstype.",$nameshown);
$lt{'inth'};
return $earlyout;
}	}
}	}
return;	return;
Line 4148 sub check_changes {	Line 4317 sub check_changes {
}	}

1;	1;

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

Removed from v.1.99
changed lines
	Added in v.1.132