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

[matthew]

matthew		Tue Sep 28 10:38:50 2004 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Duh.  Fix stuff from the prior commit.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.109 loncom/interface/lonmsg.pm:1.110
--- loncom/interface/lonmsg.pm:1.109	Tue Sep 28 10:12:40 2004
+++ loncom/interface/lonmsg.pm	Tue Sep 28 10:38:50 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.109 2004/09/28 14:12:40 matthew Exp $
+# $Id: lonmsg.pm,v 1.110 2004/09/28 14:38:50 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -655,7 +655,7 @@
                       '<td>('.$_.'),</td><td><i>'.$role.'</i></td></tr>');
         }
     }
-    $r->print('</table><p><table>');
+    $r->print('</table><table>');
     while (my ($student,$info) = each(%$classlist)) {
         my ($sname,$sdom,$status,$fullname,$section) =
             (@{$info}[&Apache::loncoursedata::CL_SNAME(),
@@ -663,7 +663,7 @@
                       &Apache::loncoursedata::CL_STATUS(),
                       &Apache::loncoursedata::CL_FULLNAME(),
                       &Apache::loncoursedata::CL_SECTION()]);
-        # next if ($status ne 'Active');
+        next if ($status ne 'Active');
         my $key = 'send_to_&&&'.$section.'&&&'.$student;
         if (! defined($fullname) || $fullname eq '') { $fullname = $sname; }
         $r->print('<tr><td><label>'.
@@ -671,7 +671,7 @@
                   $fullname.'</td><td>'.$sname.'@'.$sdom.'</td><td>'.$section.
                   '</td></tr>');
     }
-    $r->print('</table></p>');
+    $r->print('</table>');
 }
 
 # ==================================================== Display Critical Message