--- loncom/interface/longroup.pm	2006/05/18 12:33:14	1.1
+++ loncom/interface/longroup.pm	2006/05/18 13:49:10	1.2
@@ -295,7 +295,7 @@ sub group_changes {
                             if ($chgtype eq 'drop') {
                                 if ($grpstart == -1) { next; } # deleted
                                 if ($grpend == 0 || $grpend > $now) {
-                                    unless (defined($dropgroup{$group})) {
+                                    if (!defined($dropgroup{$group})) {
                                         $dropstart{$group} = $grpstart;
                                         if ($grpstart > $now) {
                                             $dropstart{$group} = $now;
@@ -310,7 +310,7 @@ sub group_changes {
                                      ($grpend < $settings{$group}{'enddate'} ||
                                       $settings{$group}{'enddate'} == 0)) ||
                                      ($grpstart > $settings{$group}{'startdate'})) {
-                                    unless(defined($addgroup{$group})) {
+                                    if (!defined($addgroup{$group})) {
                                         $addgroup{$group} =
                                             $settings{$group}{'enddate'}.':'.
                                             $settings{$group}{'startdate'}.':'.
@@ -356,7 +356,7 @@ sub group_changes {
                                         if ($usec eq 'all') {
                                             foreach my $ukey (keys(%roleshash)) {
                                                 if ($ukey =~ /^\Q$cid\E(\/?\w*)_($urole)$/) {
-                                                    unless ($sec eq $1) {
+                                                    if ($sec ne $1) {
                                                         if ($roleshash{$ukey} =~ /_?(\d*)_?([\-\d]*)$/) {
                                                             my $roleend = $1;
                                                             if ((!$roleend) ||