}
sub do_mhc_schedule {
- my @readheaders = ("Section ID/Title", "Days", "Time", "Start/EndDates");
+ my @readheaders = ("Section ID/Title", "Days", "Time", "Start/EndDates", "Site/Building/Room");
my %days = (M => "Mon", T => "Tue", W => "Wed", R => "Thu", F => "Fri", S => "Sat");
my $te = new HTML::TableExtract( headers => [ @readheaders ] );
my (@terms, $row);
$row->[2] =~ s/PM$//;
} else { $row->[2] =~ s/AM$//; }
$row->[3] =~ s/(\d\d)-(\d\d)-(\d\d)/20$3$1$2/g;
+ $row->[4] =~ s/ON CAMPUS-//g;
+ $row->[4] =~ s/-/ /g;
print "\n";
print "X-SC-Subject: ", $row->[0], "\n";
print "X-SC-Category: School\n";
print "X-SC-Cond:", $row->[1], "\n"; # Space after colon not needed
print "X-SC-Time: ", $row->[2], "\n";
print "X-SC-Duration: ", $row->[3], "\n";
+ print "X-SC-Location: ", $row->[4], "\n";
}
}
}
$row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
$row->[0] =~ s/ <BR>(.*)/"<br \/>" . capitalize($1)/eg;
$row->[1] = capitalize($row->[1]);
+ $row->[1] =~ s/([A-Z]r?)$/$1./;
+ $row->[3] =~ s/-/-<wbr \/>/g;
$row->[5] =~ s/ON CAMPUS<br \/>//g;
$row->[5] =~ s/<br \/>/ /g;
print '<tr><td>';
}
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