Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.1 and 1.6

version 1.1, 2004/02/19 20:17:01 version 1.6, 2004/03/03 22:58:49
Line 67  sub BuildStudentSubmissionsPage { Line 67  sub BuildStudentSubmissionsPage {
     #      #
     &Apache::lonstatistics::PrepareClasslist();      &Apache::lonstatistics::PrepareClasslist();
     #      #
     $r->print('<h2>'.&mt('Student Submissions Report').'</h2>');  
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
     my @Students = @Apache::lonstatistics::Students;      my @Students = @Apache::lonstatistics::Students;
Line 304  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 326  sub CreateInterface {
     ##      ##
     ## Environment variable initialization      ## Environment variable initialization
     my $Str = '';      my $Str = '';
       $Str .= &Apache::lonhtmlcommon::breadcrumbs
           (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) { 

Removed from v.1.1  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>