loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

version 1.4, 2004/02/23 16:13:31	version 1.6, 2004/03/03 22:58:49
Line 327 sub CreateInterface {	Line 327 sub CreateInterface {
## Environment variable initialization	## Environment variable initialization
my $Str = '';	my $Str = '';
$Str .= &Apache::lonhtmlcommon::breadcrumbs	$Str .= &Apache::lonhtmlcommon::breadcrumbs
(undef,&mt('Student Submission Reports'));	(undef,'Student Submission Reports');
$Str .= '<table cellspacing="5">'."\n";	$Str .= '<table cellspacing="5">'."\n";
$Str .= '<tr>';	$Str .= '<tr>';
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';	$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
Line 344 sub CreateInterface {	Line 344 sub CreateInterface {
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);	$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
$Str .= '</td>';	$Str .= '</td>';
#	#
	$Str .= '<td>'.&Apache::lonstathelpers::limit_by_time_form().'</td>';
	#
my $only_seq_with_assessments = sub {	my $only_seq_with_assessments = sub {
my $s=shift;	my $s=shift;
if ($s->{'num_assess'} < 1) {	if ($s->{'num_assess'} < 1) {