From 5670812ab058f2a364bd0d690fd4ed4e3e3d3dc6 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Tue, 16 Aug 2005 22:00:44 +0000
Subject: [PATCH] Added warning and skeleton do_xml_grades

---
 perl/sct6 | 68 ++++++-------------------------------------------------
 1 file changed, 7 insertions(+), 61 deletions(-)

diff --git a/perl/sct6 b/perl/sct6
index f8a539a..0176761 100755
--- a/perl/sct6
+++ b/perl/sct6
@@ -6,6 +6,9 @@
 # Create a ~/.sct6rc that has SID=yourssn and PIN=yourpin
 # You'll need to change the url below if you go anywhere but TAMUK.
 
+# Update: This tool now only outputs in XML.  For other formats, convert
+# with schedproc
+
 use strict;
 use Date::Calc::Object qw(Day_of_Week Decode_Day_of_Week Decode_Month Week_of_Year Monday_of_Week Day_of_Week_Abbreviation Delta_Days Add_Delta_Days Nth_Weekday_of_Month_Year Gmtime Mktime);
 use Date::Calendar::Profiles qw($Profiles);
@@ -380,67 +383,12 @@ sub do_html_schedule {
     print "</table>\n";
 }
 
-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<br />Hours", "Quality<br />Hours", "Quality<br />Points");
-    my ($row, $lastrow);
-    my $shade = "dark";
-    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
-    die $response->status_line unless $response->is_success;
-    #my @terms = reverse grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
-    my @terms = ();
-    my $year = Date::Calc->localtime->year;
-    for(my $y=$year-4;$y<=$year;$y++) { push @terms, ($y.2,$y."F",$y.3,$y.4,$y.1,$y."S"); }
-    foreach(@_ ? @_ : @terms) {
-	$response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN|Term&tserve_trans_config=rgrades.cfg&Term=".($_) );
-	die $response->status_line unless $response->is_success;
-	$te->parse($response->content);
-    }
-    print '<table id="grades" cellpadding="3" cellspacing="0">'."\n<tr>";
-    print '<th align="left" class="sectionid">', $showheaders[0];
-    print '</th><th align="left" class="coursetitle">', $showheaders[1];
-    print '</th><th align="center" class="grade">';
-    print join('</th><th align="center" class="right-number">',@showheaders[2 .. 5]);
-    print "</th></tr>\n";
-    foreach my $ts ($te->table_states) {
-	foreach my $row ($ts->rows) {
-	    map { s/^\s+//; s/\xa0|\r//g; s/\n/<br \/>/g; $_} @$row;
-	    $row->[1] = capitalize($row->[1]);
-	    $row->[1] =~ s/&/&amp;/g;
-	    $row->[0] =~ s/Cumulative through/Cumulative: through/;
-	    $row->[0] =~ s/Cumulative:(.*) (\d{4}) (.*)/Cumulative:$1 $3 $2/;
-	    $lastrow=$row;
-	    next if $row->[0] =~ /:|Current Term/;
-	    print '<tr class="'.$shade.'">';
-	    $shade = ($shade eq "dark"?"light":"dark");
-	    print '<td align="left" class="sectionid">', $$row[0], '</td>';
-	    print '<td align="left" class="coursetitle">', $$row[1], '</td>';
-	    print '<td align="center" class="grade">';
-	    #print join('</td><td>', @$row[0 .. 1]);
-	    print join('</td><td align="right" class="right-number">', @$row[2 .. 5]);
-	    print "</td></tr>\n";
-	}
-    }
-    print '<tr class="cumulative '.$shade.'"><td id="cumulative" colspan="2">', capitalize($lastrow->[0]);
-    #shift @$lastrow; shift @$lastrow;
-    print '</td><td align="center" id="gpa" class="grade">';
-    print $$lastrow[6];
-    print '</td><td align="right" class="right-number">';
-    print join('</td><td align="right" class="right-number">', @$lastrow[3 .. 5]);
-    print "</td></tr>\n";
-    print "</table>\n";
+sub do_xml_grades {
+    print "<grades>\n</grades>\n";
 }
 
 sub do_transcripts {
-    $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN&tserve_trans_config=rtranscr.cfg&CareerReqNum=1");
-    foreach (split /\n/, $response->content) {
-	next unless s/^\&nbsp;|<pre>// || s/\&nbsp;/ /;
-	s/<\/?([Hh]\d|[Bb])>//g;
-	next if /<\/td>/;
-	print "$_\n";
-    }
+    print "Not implemented.\n";
 }
 
 if ($arg eq "-s" || $arg eq "-h") {
@@ -452,10 +400,8 @@ if ($arg eq "-s" || $arg eq "-h") {
 } elsif ($arg eq "-v") {
     do_vcalendar_schedule(@ARGV);
 } elsif ($arg eq "-g") {
-    die "Grade support currently broken.\n";
-    do_html_grades(@ARGV);
+    do_xml_grades(@ARGV);
 } elsif ($arg eq "-t") {
-    die "Transcript support currently broken.\n";
     do_transcripts;
 } elsif ($arg eq "-x" || 1) {
     do_xml_schedule(@ARGV);
-- 
2.30.2