Fixed bug in term selection for grades

diff --git a/perl/sctweb b/perl/sctweb
index 64c4127a8f4b40ed6cc86dc31770655b298674a2..4988356193cfa046050bbb0997b8e2a4cae4ef0b 100755 (executable)
--- 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);