From: Tim Pope <code@tpope.net>
Date: Tue, 14 Dec 2004 19:12:38 +0000 (+0000)
Subject: Get ALL grades; new text replacements
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=0cde01f769fc1b2f5c3b17a5db16dc22b65e79b0

Get ALL grades; new text replacements
---

diff --git a/perl/sctweb b/perl/sctweb
index 4988356..77f9c18 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -135,7 +135,7 @@ sub capitalize {
     s/\b(I)(i*)\b/$1\U$2/g;
     s/\bUs\b/US/g;
     s/ (And|For|Of|Or|The|To|With) / \l$1 /g;
-    s/\b(Ma?c)([a-z])/$1\u$2/g;
+    s/\b(Mc)([a-z])/$1\u$2/g;
     s/\b(Tcp\/Ip|Pc)\b/\U$&/g;
     s/\bThru\b/Through/g;
     s/\bAcct\b/Accounting/g;
@@ -145,6 +145,8 @@ sub capitalize {
     s/\bFed\b/Federal/g;
     s/\bGen\b/General/g;
     s/\bIntro\b/Introduction/g;
+    s/\bPrgm\b/Programming/g;
+    s/\bOp Sys\b/Operatiing System/g;
     #s/\bGovt\b/Government/g;
     s/\bLit\b/Literature/g;
     s/\bPrin\b/Principles/g;
@@ -448,8 +450,11 @@ sub do_html_grades {
     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 = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
-    foreach(@_ ? @_ : reverse @terms) {
+    #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.3,$y.4,$y.1); }
+    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);