--- loncom/interface/loncoursegroups.pm 2006/11/28 19:46:00 1.65 +++ loncom/interface/loncoursegroups.pm 2006/11/28 21:38:04 1.66 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursegroups.pm,v 1.65 2006/11/28 19:46:00 raeburn Exp $ +# $Id: loncoursegroups.pm,v 1.66 2006/11/28 21:38:04 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1297,10 +1297,14 @@ sub verify_reenable { } sub reenable_group { - my ($r,$cdom,$cnum,$groupname,) = @_; + my ($r,$cdom,$cnum,$groupname) = @_; my %groups = &Apache::longroup::coursegroups($cdom,$cnum,$groupname, 'deleted_groups'); + if (keys(%groups) == 0) { + $r->print(&mt('The group ([_1]) was not re-enabled, because it is not a deleted group.
Perhaps it has already been re-enabled?',$groupname)); + return; + } my %groupinfo = &Apache::longroup::get_group_settings($groups{$groupname}); my $defstart = $groupinfo{'startdate'}; @@ -1368,6 +1372,7 @@ sub reenable_group { } else { $r->print(&mt('Re-enabling group failed')); } + return; } sub header {