Dropped "Attempted Hours" from grades

diff --git a/perl/sctweb b/perl/sctweb
index 7c6f23ea7280b08f616feed7c024eb97cb103072..8c1edefb4edf63d5777843505bbe2d0f6ca4aa0a 100755 (executable)
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -134,6 +134,7 @@ sub do_html_schedule {
            $row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
            $row->[0] =~ s/ <BR>(.*)/"<br \/>" . capitalize($1)/eg;
            $row->[1] = capitalize($row->[1]);
+           $row->[3] =~ s/-/-<wbr \/>/g;
            $row->[5] =~ s/ON CAMPUS<br \/>//g;
            $row->[5] =~ s/<br \/>/ /g;
            print '<tr><td>';
@@ -145,8 +146,8 @@ sub do_html_schedule {
 }
 
 sub do_html_grades {
-    my @readheaders = ("Section ID", "Course Title", "Grade", "Attempted  Hours", "Earned  Hours", "Quality  Hours", "Quality  Points", "GPA");
-    my @showheaders = ("Section ID", "Course Title", "Grade", "Attempted<br>Hours", "Earned<br>Hours", "Quality<br>Hours", "Quality<br>Points", "GPA");
+    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 ($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