projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ac5c173
)
Compacted grade output
author
Tim Pope
<code@tpope.net>
Sat, 7 May 2005 17:05:35 +0000
(17:05 +0000)
committer
Tim Pope
<code@tpope.net>
Sat, 7 May 2005 17:05:35 +0000
(17:05 +0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index 4b1c0b1e7ae1aeae33b0290117d3cf9632099d1c..0381b1dfa0de0e4c9065caf8ed3a6f37f13afa90 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-559,7
+559,7
@@
sub do_html_schedule {
sub do_html_grades {
my @readheaders = ("Section ID", "Course Title", "Grade", "Earned Hours", "Quality Hours", "Quality Points", "GPA");
sub do_html_grades {
my @readheaders = ("Section ID", "Course Title", "Grade", "Earned Hours", "Quality Hours", "Quality Points", "GPA");
- my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points"
, "GPA"
);
+ my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points");
my ($row, $lastrow);
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
my ($row, $lastrow);
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
@@
-583,14
+583,16
@@
sub do_html_grades {
$lastrow=$row;
next if $row->[0] =~ /:/;
print '<tr><td>';
$lastrow=$row;
next if $row->[0] =~ /:/;
print '<tr><td>';
- print join('</td><td>', @$row);
+ print join('</td><td>', @$row
[0 .. 5]
);
print "</td></tr>\n";
}
}
print '<tr><td colspan="2">', capitalize($lastrow->[0]);
print "</td></tr>\n";
}
}
print '<tr><td colspan="2">', capitalize($lastrow->[0]);
- shift @$lastrow; shift @$lastrow;
+
#
shift @$lastrow; shift @$lastrow;
print "</td><td>";
print "</td><td>";
- print join('</td><td>', @$lastrow);
+ print $$lastrow[6];
+ print "</td><td>";
+ print join('</td><td>', @$lastrow[3 .. 5]);
print "</td></tr>\n";
print "</table>\n";
}
print "</td></tr>\n";
print "</table>\n";
}