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

[matthew]

matthew		Mon May 19 10:30:31 2003 EDT

  Modified files:              
    /loncom/interface/spreadsheet	classcalc.pm 
  Log:
  Cosmetic html changes.
  
  
Index: loncom/interface/spreadsheet/classcalc.pm
diff -u loncom/interface/spreadsheet/classcalc.pm:1.1 loncom/interface/spreadsheet/classcalc.pm:1.2
--- loncom/interface/spreadsheet/classcalc.pm:1.1	Fri May 16 16:55:11 2003
+++ loncom/interface/spreadsheet/classcalc.pm	Mon May 19 10:30:31 2003
@@ -1,5 +1,5 @@
 #
-# $Id: classcalc.pm,v 1.1 2003/05/16 20:55:11 matthew Exp $
+# $Id: classcalc.pm,v 1.2 2003/05/19 14:30:31 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -80,7 +80,7 @@
 
 sub get_title {
     my $self = shift;
-    my $title = '<h2>'.$self->{'coursedesc'}."</h2>\n";
+    my $title = '<h1>'.$self->{'coursedesc'}."</h1>\n";
     # Section info should be included
     return $title;
 }
@@ -98,6 +98,7 @@
     my $num_uneditable = 26;
     my $num_left = 52-$num_uneditable;
     my $tableheader =<<"END";
+<p>
 <table border="2">
 <tr>
   <th colspan="2" rowspan="2"><font size="+2">Course</font></th>
@@ -131,6 +132,7 @@
     #
     # Prepare to output rows
     $tableheader =<<"END";
+</p><p>
 <table border="2">
 <tr><th>Row</th>
   <th>student</th><th>username</th><th>domain</th>
@@ -163,7 +165,7 @@
 		  '<td>'.$student->{'status'}  .'</td>'.
 		  $self->html_row($num_uneditable,$rownum)."</tr>\n");
     }
-    $r->print("</table>\n");
+    $r->print("</table></p>\n");
     return;
 }