From 171627372bcdbb46dc06ad8ce4e2a758abeb905b Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Thu, 12 Aug 2004 19:27:09 +0000 Subject: [PATCH] Dropped "Attempted Hours" from grades --- perl/sctweb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.30.2