[LON-CAPA-cvs] cvs: loncom /interface longroup.pm

[albertel]

albertel		Thu May 18 09:49:11 2006 EDT

  Modified files:              
    /loncom/interface	longroup.pm 
  Log:
  - style police
  
  
Index: loncom/interface/longroup.pm
diff -u loncom/interface/longroup.pm:1.1 loncom/interface/longroup.pm:1.2
--- loncom/interface/longroup.pm:1.1	Thu May 18 08:33:14 2006
+++ loncom/interface/longroup.pm	Thu May 18 09:49:10 2006
@@ -295,7 +295,7 @@
                             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 @@
                                      ($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 @@
                                         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) ||