X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=614d63e9bd6272d17407458e0f9753ab319eb17f;hp=a673d8b57938b43c78014efd868e7e918421eecf;hb=ad64ea6c2071d7a1e262f8a5287e484e225a70e3;hpb=267e885ebe2286c217682ac2a129ed758fc354f0
diff --git a/perl/sctweb b/perl/sctweb
index a673d8b..614d63e 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -188,7 +188,7 @@ sub off_for_exams {
}
sub capitalize {
- local $_ = shift;
+ local $_ = shift || "";
s/ +$//;
s/\b([A-Z])([A-Z]*)\b/$1\L$2/g;
s/\b(I)(i*)\b/$1\U$2/g;
@@ -559,6 +559,7 @@ sub do_html_schedule {
sub do_html_grades {
my @readheaders = ("Section ID", "Course Title", "Grade", "Earned Hours", "Quality Hours", "Quality Points", "GPA");
+ @readheaders = ("Section", "Course Title", "FinalGrade", "Earned Hours", "Quality Hours", "Quality Points", "GPA") if($opts{'school'} eq 'tamuk');
my @showheaders = ("Section ID", "Course Title", "Grade", "Earned
Hours", "Quality
Hours", "Quality
Points");
my ($row, $lastrow);
my $te = new HTML::TableExtract( headers => [ @readheaders ] );
@@ -567,7 +568,7 @@ sub do_html_grades {
#my @terms = reverse grep {s/^