[BACK]Return to lonstudentsubmissions.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.60 and 1.61

version 1.60, 2010/08/04 01:56:07 version 1.61, 2010/08/24 14:05:19
Line 177  sub BuildStudentSubmissionsPage { Line 177  sub BuildStudentSubmissionsPage {
             &array_shuffle(\@Students);              &array_shuffle(\@Students);
         }          }
         #          #
   
           my $threshold = $env{'course.'.$env{'request.course.id'}.'.internal.anonsurvey_threshold'};
           if ($threshold eq '') {
               my %domconfig =
                   &Apache::lonnet::get_dom('configuration',['coursedefaults'],
                                           $env{'course.'.$env{'request.course.id'}.'.domain'});
               if (ref($domconfig{'coursedefaults'}) eq 'HASH') {
                   $threshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'};
                   if ($threshold eq '') {
                       $threshold = 10;
                   }
               } else {
                   $threshold = 10;
               }
           }
         $r->print('<h4>'.          $r->print('<h4>'.
                   &Apache::lonstatistics::section_and_enrollment_description().                    &Apache::lonstatistics::section_and_enrollment_description().
                   '</h4>');                    '</h4>');
         if (! scalar(@Problems) || ! defined($Problems[0])) {          if (! scalar(@Problems) || ! defined($Problems[0])) {
             $r->print('resource is undefined');              $r->print(&mt('resource is undefined'));
           } elsif (!$show_named && @Students < $threshold) {
               $r->print(&mt('The number of students matching the selection criteria is too few for display of submission data for anonymous surveys.').'<br />'.&mt('There must be at least [quant,_1,student].',$threshold).' '.&mt('Contact a Domain Coordinator if you need the threshold to be changed for this course.'));
         } else {          } else {
             if (scalar(@Problems) == 1) {              if (scalar(@Problems) == 1) {
                 my $resource = $Problems[0];                  my $resource = $Problems[0];
Line 206  sub BuildStudentSubmissionsPage { Line 223  sub BuildStudentSubmissionsPage {
                   &mt('Prepare Report').'" />');                    &mt('Prepare Report').'" />');
         $r->print('&nbsp;'x5);          $r->print('&nbsp;'x5);
         $r->print('<p>'.          $r->print('<p>'.
                   &mt('Computing correct answers greatly increasese the amount of time required to prepare a report.').                    &mt('Computing correct answers greatly increases the amount of time required to prepare a report.').
                   '</p>');                    '</p>');
         $r->print('<p>'.          $r->print('<p>'.
                   &mt('Please select problems and use the [_1]Prepare Report[_2] button to continue.','<b>','</b>').                    &mt('Please select problems and use the [_1]Prepare Report[_2] button to continue.','<b>','</b>').
Removed from v.1.60  
changed lines
  Added in v.1.61

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