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:
3b0d1a8
)
XHTML corrections
author
Tim Pope
<code@tpope.net>
Mon, 23 Aug 2004 19:16:28 +0000
(19:16 +0000)
committer
Tim Pope
<code@tpope.net>
Mon, 23 Aug 2004 19:16:28 +0000
(19:16 +0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index 714f336327dcb7aef3ffb29e27b4863ceaa7c645..df51173d19423311aa38f32bc9e50ce8ab5fcb85 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-190,7
+190,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", "GPA");
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