|
version 1.3, 2004/02/20 16:38:49
|
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 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,&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 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) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonstudentsubmissions.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics