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.7, 2004/03/07 20:41:28
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 345 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></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) {