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

Diff for /loncom/interface/lonstatistics.pm between versions 1.119 and 1.121

version 1.119, 2005/03/14 20:28:21 version 1.121, 2005/03/18 00:19:35
Line 367  sub section_and_enrollment_description { Line 367  sub section_and_enrollment_description {
     my @sections = &Apache::lonstatistics::get_selected_sections();      my @sections = &Apache::lonstatistics::get_selected_sections();
     my $description = &mt('Unable to determine section and enrollment');      my $description = &mt('Unable to determine section and enrollment');
     if (scalar(@sections) == 1 && $sections[0] ne 'all') {      if (scalar(@sections) == 1 && $sections[0] ne 'all') {
         $description = &mt('Section [_1]. [_2] enrollment status',          $description = &mt('Section [_1]. [_2] enrollment status.',
                            $sections[0],$ENV{'form.Status'});                             $sections[0],$ENV{'form.Status'});
     } elsif (scalar(@sections) && $sections[0] eq 'all') {      } elsif (scalar(@sections) && $sections[0] eq 'all') {
         $description = &mt('All sections. [_1] enrollment status',          $description = &mt('All sections. [_1] enrollment status.',
                            $ENV{'form.Status'});                             $ENV{'form.Status'});
     } elsif (scalar(@sections)) {      } elsif (scalar(@sections)) {
         my $lastsection = pop(@sections);          my $lastsection = pop(@sections);
         $description = &mt('Sections [_1] and [_2]. [_3] enrollment status',          $description = &mt('Sections [_1] and [_2]. [_3] enrollment status.',
                            join(', ',@sections),$lastsection,                             join(', ',@sections),$lastsection,
                            $ENV{'form.Status'});                             $ENV{'form.Status'});
     }      }
Line 587  sub selected_sequences_with_assessments Line 587  sub selected_sequences_with_assessments
                                                sub { shift->is_map(); },1,0,1);                                                 sub { shift->is_map(); },1,0,1);
     my @sequences_with_assessments;      my @sequences_with_assessments;
     for my $sequence ($navmap->getById('0.0'), @sequences) {      for my $sequence ($navmap->getById('0.0'), @sequences) {
  if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0)){   if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){
             push(@sequences_with_assessments,$sequence);              push(@sequences_with_assessments,$sequence);
         }          }
     }      }
Removed from v.1.119  
changed lines
  Added in v.1.121

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