loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.49, 2003/04/01 17:00:24	version 1.50, 2003/05/12 22:07:17
Line 177 sub CreateInterface {	Line 177 sub CreateInterface {
$Str .= '<table cellspacing="5">'."\n";	$Str .= '<table cellspacing="5">'."\n";
$Str .= '<tr>';	$Str .= '<tr>';
$Str .= '<td align="center"><b>Sections</b></td>';	$Str .= '<td align="center"><b>Sections</b></td>';
	$Str .= '<td align="center"><b>Enrollment Status</b></td>';
$Str .= '<td align="center"><b>Sequences and Folders</b></td>';	$Str .= '<td align="center"><b>Sequences and Folders</b></td>';
$Str .= '<td align="center"><b>Output</b></td>';	$Str .= '<td align="center"><b>Output</b></td>';
$Str .= '</tr>'."\n";	$Str .= '</tr>'."\n";
Line 184 sub CreateInterface {	Line 185 sub CreateInterface {
$Str .= '<tr><td align="center">'."\n";	$Str .= '<tr><td align="center">'."\n";
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);	$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
$Str .= '</td><td align="center">';	$Str .= '</td><td align="center">';
	$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
	$Str .= '</td><td align="center">';
#	#
my $only_seq_with_assessments = sub {	my $only_seq_with_assessments = sub {
my $s=shift;	my $s=shift;