loncom/interface/spreadsheet/classcalc.pm - diff

Return to classcalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.1, 2003/05/16 20:55:11	version 1.2, 2003/05/19 14:30:31
Line 80 sub get_classlist {	Line 80 sub get_classlist {

sub get_title {	sub get_title {
my $self = shift;	my $self = shift;
my $title = '<h2>'.$self->{'coursedesc'}."</h2>\n";	my $title = '<h1>'.$self->{'coursedesc'}."</h1>\n";
# Section info should be included	# Section info should be included
return $title;	return $title;
}	}
Line 98 sub outsheet_html {	Line 98 sub outsheet_html {
my $num_uneditable = 26;	my $num_uneditable = 26;
my $num_left = 52-$num_uneditable;	my $num_left = 52-$num_uneditable;
my $tableheader =<<"END";	my $tableheader =<<"END";
	<p>
<table border="2">	<table border="2">
<tr>	<tr>
<th colspan="2" rowspan="2"><font size="+2">Course</font></th>	<th colspan="2" rowspan="2"><font size="+2">Course</font></th>
Line 131 END	Line 132 END
#	#
# Prepare to output rows	# Prepare to output rows
$tableheader =<<"END";	$tableheader =<<"END";
	</p><p>
<table border="2">	<table border="2">
<tr><th>Row</th>	<tr><th>Row</th>
<th>student</th><th>username</th><th>domain</th>	<th>student</th><th>username</th><th>domain</th>
Line 163 END	Line 165 END
'<td>'.$student->{'status'} .'</td>'.	'<td>'.$student->{'status'} .'</td>'.
$self->html_row($num_uneditable,$rownum)."</tr>\n");	$self->html_row($num_uneditable,$rownum)."</tr>\n");
}	}
$r->print("</table>\n");	$r->print("</table></p>\n");
return;	return;
}	}