loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

version 1.2, 2004/02/20 16:24:20	version 1.4, 2004/02/23 16:13:31
Line 303 sub GetStudentAnswers {	Line 303 sub GetStudentAnswers {
my $sdom = $student->{'domain'};	my $sdom = $student->{'domain'};
my $answer = &Apache::lonstathelpers::analyze_problem_as_student	my $answer = &Apache::lonstathelpers::analyze_problem_as_student
($resource,$sname,$sdom,$partid,$respid);	($resource,$sname,$sdom,$partid,$respid);
&Apache::lonnet::logthis('answer = "'.$answer.'"');
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
&mt('last student'));	&mt('last student'));
$student->{'answer'} = $answer;	$student->{'answer'} = $answer;
Line 328 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,'Student Submission Reports');	(undef,&mt('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>';