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

matthew lon-capa-cvs@mail.lon-capa.org
Wed, 11 Sep 2002 15:01:43 -0000


matthew		Wed Sep 11 11:01:43 2002 EDT

  Modified files:              
    /loncom/interface	lonannounce.pm 
  Log:
  Html cleanups - <form>...<table>...</form></table> is a little embarassing.
  
  
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.6 loncom/interface/lonannounce.pm:1.7
--- loncom/interface/lonannounce.pm:1.6	Wed Aug 21 13:18:08 2002
+++ loncom/interface/lonannounce.pm	Wed Sep 11 11:01:43 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.6 2002/08/21 17:18:08 www Exp $
+# $Id: lonannounce.pm,v 1.7 2002/09/11 15:01:43 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -243,7 +243,7 @@
  '<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '.
  '<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a><p>'.
         '<table border="2" cols="7" rows="5"><tr><th>Sun</th><th>Mon</th>'.
-        '<th>Tue</th><th>Wed</th><th>Thu</th><th>Fri</th><th>Sat</th>');
+        '<th>Tue</th><th>Wed</th><th>Thu</th><th>Fri</th><th>Sat</th></tr>');
 
     my $tk=&Apache::loncommon::maketime(%firstday);
     my $outp;
@@ -268,8 +268,9 @@
         $r->print('</tr>');
     }
 # ------------------------------------------------------------------- End table
+    $r->print('</table>');
     if ($allowed) { $r->print('</form>'); }
-    $r->print('</table><p>'.
+    $r->print('<p>'.
  '<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '.
  '<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a><p>'.
  '</body></html>');