X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=1ca3d7c4fa6044246989c58d09c0d131d8b57db9;hp=4b1c0b1e7ae1aeae33b0290117d3cf9632099d1c;hb=57c2826cf1125692d62af38a5cdaa75465915e30;hpb=ac5c17344fb558643239ce256af0c69b55ae60ac
diff --git a/perl/sctweb b/perl/sctweb
index 4b1c0b1..1ca3d7c 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
Hours", "Quality
Hours", "Quality
Points", "GPA");
+ my @showheaders = ("Section ID", "Course Title", "Grade", "Earned
Hours", "Quality
Hours", "Quality
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,19 @@ sub do_html_grades {
$lastrow=$row;
next if $row->[0] =~ /:/;
print '