-sub do_html_grades {
- my $grades);
- my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points");
- #$file = shift unless (!defined $_[0] or $_[0] =~ /^\d/);
- $grades = get_grades(@_);
- my ($row);
- my $shade = "dark";
- 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";
-}
-
-sub get_faculty_email {
- my ($name, $school, $email);
- if((-f $ENV{'HOME'} . "/public_html/faculty.csv") && ! %faculty) {
- open INS, $ENV{'HOME'} . "/public_html/faculty.csv";
- while($_ = <INS>) {
- chomp;