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:
bff727c
)
Minor formatting change on HTML grades
author
Tim Pope
<code@tpope.net>
Wed, 6 Jul 2005 02:37:22 +0000
(
02:37
+0000)
committer
Tim Pope
<code@tpope.net>
Wed, 6 Jul 2005 02:37:22 +0000
(
02:37
+0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index 97a21d86e204994561ace77db6c42bc4cd10103a..d3a31c6faabde257bfdff02e0c830de185151070 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-590,8
+590,10
@@
sub do_html_grades {
map { s/^\s+//; s/\xa0|\r//g; s/\n/<br \/>/g; $_} @$row;
$row->[1] = capitalize($row->[1]);
$row->[1] =~ s/&/&/g;
map { s/^\s+//; s/\xa0|\r//g; s/\n/<br \/>/g; $_} @$row;
$row->[1] = capitalize($row->[1]);
$row->[1] =~ s/&/&/g;
+ $row->[0] =~ s/Cumulative through/Cumulative: through/;
+ $row->[0] =~ s/Cumulative:(.*) (\d{4}) (.*)/Cumulative:\1 \3 \2/;
$lastrow=$row;
$lastrow=$row;
- next if $row->[0] =~ /:|Current Term
|Cumulative
/;
+ next if $row->[0] =~ /:|Current Term/;
print '<tr class="'.$shade.'">';
$shade = ($shade eq "dark"?"light":"dark");
print '<td align="left" class="sectionid">', $$row[0], '</td>';
print '<tr class="'.$shade.'">';
$shade = ($shade eq "dark"?"light":"dark");
print '<td align="left" class="sectionid">', $$row[0], '</td>';