From 2a1bd96b67570d8858b59b9b4f19640a80f18b5c Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Mon, 13 Dec 2004 20:17:49 +0000
Subject: [PATCH] Fixed bug in term selection for grades

---
 perl/sctweb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/sctweb b/perl/sctweb
index 64c4127..4988356 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -449,7 +449,7 @@ sub do_html_grades {
     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) {
+    foreach(@_ ? @_ : reverse @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);
-- 
2.30.2