From: Tim Pope <code@tpope.net>
Date: Sat, 7 May 2005 17:05:35 +0000 (+0000)
Subject: Compacted grade output
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=4c7498e51032cc2dd9b8e20ad9c5f6e083b2b523

Compacted grade output
---

diff --git a/perl/sctweb b/perl/sctweb
index 4b1c0b1..0381b1d 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -559,7 +559,7 @@ sub do_html_schedule {
 
 sub do_html_grades {
     my @readheaders = ("Section ID", "Course Title", "Grade", "Earned  Hours", "Quality  Hours", "Quality  Points", "GPA");
-    my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points", "GPA");
+    my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points");
     my ($row, $lastrow);
     my $te = new HTML::TableExtract( headers => [ @readheaders ] );
     my $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN|Term&tserve_trans_config=rgrdterm.cfg"); # Valid grading terms
@@ -583,14 +583,16 @@ sub do_html_grades {
 	    $lastrow=$row;
 	    next if $row->[0] =~ /:/;
 	    print '<tr><td>';
-	    print join('</td><td>', @$row);
+	    print join('</td><td>', @$row[0 .. 5]);
 	    print "</td></tr>\n";
 	}
     }
     print '<tr><td colspan="2">', capitalize($lastrow->[0]);
-    shift @$lastrow; shift @$lastrow;
+    #shift @$lastrow; shift @$lastrow;
     print "</td><td>";
-    print join('</td><td>', @$lastrow);
+    print $$lastrow[6];
+    print "</td><td>";
+    print join('</td><td>', @$lastrow[3 .. 5]);
     print "</td></tr>\n";
     print "</table>\n";
 }