+ select STDOUT;
+}
+
+sub do_html_grades {
+ my $grades;
+ my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points");
+ $grades = get_grades(@_);
+ my ($row);
+ my $shade = "dark";
+ if($opts{'out'}) {
+ open FH, ">" . $opts{'out'};
+ select FH;
+ }
+ print '<table id="grades" cellpadding="3" cellspacing="0">'."\n<tr>";
+ print '<th align="left" class="sectionid">', $showheaders[0];
+ print '</th><th align="left" class="coursetitle">', $showheaders[1];
+ print '</th><th align="center" class="grade">';
+ print join('</th><th align="center" class="right-number">',@showheaders[2 .. 5]);
+ print "</th></tr>\n";
+ foreach my $ts ($grades->{'class'}) {
+ foreach my $row (@$ts) {
+ print '<tr class="'.$shade.'">';
+ $shade = ($shade eq "dark"?"light":"dark");
+ print '<td align="left" class="sectionid">', $row->{'id'}, '</td>';
+ print '<td align="left" class="coursetitle">', $row->{'title'}, '</td>';
+ print '<td align="center" class="grade">';
+ #print join('</td><td>', @$row[0 .. 1]);
+ print join('</td><td align="right" class="right-number">', ($row->{'grade'},$row->{'earned'},$row->{'hours'},$row->{'points'}));
+ print "</td></tr>\n";
+ }
+ }
+ my $lastrow = $grades->{'cumulative'}->[scalar @{$grades->{'cumulative'}}-1];
+ print '<tr class="cumulative '.$shade.'"><td id="cumulative" colspan="2">Cumulative: through ', capitalize($lastrow->{'term'});
+ print '</td><td align="center" id="gpa" class="grade">';
+ print $lastrow->{'gpa'};
+ print '</td><td align="right" class="right-number">';
+ print join('</td><td align="right" class="right-number">', ($lastrow->{'earned'}, $lastrow->{'hours'}, $lastrow->{'points'}));
+ print "</td></tr>\n";
+ print "</table>\n";
+ select STDOUT;