loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.65, 2006/11/28 19:46:00	version 1.66, 2006/11/28 21:38:04
Line 1297 sub verify_reenable {	Line 1297 sub verify_reenable {
}	}

sub reenable_group {	sub reenable_group {
my ($r,$cdom,$cnum,$groupname,) = @_;	my ($r,$cdom,$cnum,$groupname) = @_;
my %groups =	my %groups =
&Apache::longroup::coursegroups($cdom,$cnum,$groupname,	&Apache::longroup::coursegroups($cdom,$cnum,$groupname,
'deleted_groups');	'deleted_groups');
	if (keys(%groups) == 0) {
	$r->print(&mt('The group ([_1]) was not re-enabled, because it is not a deleted group.<br />Perhaps it has already been re-enabled?',$groupname));
	return;
	}
my %groupinfo =	my %groupinfo =
&Apache::longroup::get_group_settings($groups{$groupname});	&Apache::longroup::get_group_settings($groups{$groupname});
my $defstart = $groupinfo{'startdate'};	my $defstart = $groupinfo{'startdate'};
Line 1368 sub reenable_group {	Line 1372 sub reenable_group {
} else {	} else {
$r->print(&mt('Re-enabling group failed'));	$r->print(&mt('Re-enabling group failed'));
}	}
	return;
}	}

sub header {	sub header {