loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.123, 2014/02/11 17:09:30	version 1.125, 2014/02/28 19:20:06
Line 831 sub group_administration {	Line 831 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 3503 sub process_membership {	Line 3503 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 3543 sub process_membership {	Line 3543 sub process_membership {
my $tmsg = "The following users were successfully $type";	my $tmsg = "The following users were successfully $type";
if (!($type eq 'deleted' \|\| $type eq 'expired')) {	if (!($type eq 'deleted' \|\| $type eq 'expired')) {
$tmsg .= ' with the following privileges';	$tmsg .= ' with the following privileges';
} else {
$tmsg .= ' with the following privileges';
}	}
$message .= &mt($tmsg.':').'<br/>';	$message .= &mt($tmsg.':').'<br/>';
foreach my $user (@{$added{$type}}) {	foreach my $user (@{$added{$type}}) {