projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5180242
)
Fixed bug in term selection for grades
author
Tim Pope
<code@tpope.net>
Mon, 13 Dec 2004 20:17:49 +0000
(20:17 +0000)
committer
Tim Pope
<code@tpope.net>
Mon, 13 Dec 2004 20:17:49 +0000
(20:17 +0000)
perl/sctweb
patch
|
blob
|
history
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));
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);
$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);