X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=8c1edefb4edf63d5777843505bbe2d0f6ca4aa0a;hp=7c6f23ea7280b08f616feed7c024eb97cb103072;hb=171627372bcdbb46dc06ad8ce4e2a758abeb905b;hpb=39a83b3fbad5dc1b536fd86a1213eea94b6a9f1a
diff --git a/perl/sctweb b/perl/sctweb
index 7c6f23e..8c1edef 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -134,6 +134,7 @@ sub do_html_schedule {
$row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
$row->[0] =~ s/
(.*)/"
" . capitalize($1)/eg;
$row->[1] = capitalize($row->[1]);
+ $row->[3] =~ s/-/-/g;
$row->[5] =~ s/ON CAMPUS
//g;
$row->[5] =~ s/
/ /g;
print '
';
@@ -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 Hours", "Earned Hours", "Quality Hours", "Quality Points", "GPA");
+ 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 ($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
|