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

Diff for /loncom/interface/lonstatistics.pm between versions 1.105 and 1.107

version 1.105, 2004/06/24 19:17:49 version 1.107, 2004/06/24 19:36:16
Line 941  sub Gather_Full_Student_Data { Line 941  sub Gather_Full_Student_Data {
 ##################################################  ##################################################
 sub DisplayClasslist {  sub DisplayClasslist {
     my ($r)=@_;      my ($r)=@_;
       &Apache::lonhtmlcommon::add_breadcrumb
           ({text=>'Select One Student'});
     #      #
     # Output some of the standard interface components      # Output some of the standard interface components
     my $Str;      my $Str;
       $Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Select One Student');
     $Str .= '<p><table cellspacing="5">'."\n";      $Str .= '<p><table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>';      $Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>';
Line 970  sub DisplayClasslist { Line 973  sub DisplayClasslist {
     if (! @Students) {      if (! @Students) {
         if ($SelectedSections[0] eq 'all') {           if ($SelectedSections[0] eq 'all') { 
             if (lc($ENV{'form.Status'}) eq 'any') {              if (lc($ENV{'form.Status'}) eq 'any') {
                 $Str .= '<h2>There are no students in the course.</h2>';                  $Str .= '<h2>'.
                       &mt('There are no students in the course.').
                       '</h2>';
             } elsif (lc($ENV{'form.Status'}) eq 'active') {              } elsif (lc($ENV{'form.Status'}) eq 'active') {
                 $Str .= '<h2>There are no currently enrolled students in '.                  $Str .= '<h2>'.
                     'the course.</h2>';                  &mt('There are no currently enrolled students in the course.').
                       '</h2>';
             } elsif (lc($ENV{'form.Status'}) eq 'expired') {              } elsif (lc($ENV{'form.Status'}) eq 'expired') {
                 $Str .= '<h2>There are no previously enrolled '.                  $Str .= '<h2>'.
                     'students in the course.</h2>';                      &mt('There are no previously enrolled students in the course.').
                           '</h2>';
             }              }
         } else {           } else { 
             my $sections;              my $sections;
             if (@SelectedSections == 1) {  
                 $sections = 'section '.$SelectedSections[0];  
             } elsif (@SelectedSections > 2) {  
                 $sections = 'sections '.join(', ',@SelectedSections);  
                 $sections =~ s/, ([^,])*$/, and $1/;  
             } else {  
                 $sections = 'sections '.join(' and ',@SelectedSections);  
             }  
             if (lc($ENV{'form.Status'}) eq 'any') {              if (lc($ENV{'form.Status'}) eq 'any') {
                 $Str .= '<h2>There are no students in '.$sections.'.</h2>';                  $Str .= '<h2>'.
                       &mt('There are no students in the selected sections.').
                       '</h2>';
             } elsif (lc($ENV{'form.Status'}) eq 'active') {              } elsif (lc($ENV{'form.Status'}) eq 'active') {
                 $Str .= '<h2>There are no currently enrolled students '.                  $Str .= '<h2>'.
                     'in '.$sections.'.</h2>';                      &mt('There are no currently enrolled students in the selected sections.').
                       '</h2>';
             } elsif (lc($ENV{'form.Status'}) eq 'expired') {              } elsif (lc($ENV{'form.Status'}) eq 'expired') {
                 $Str .= '<h2>There are no previously enrolled students '.                  $Str .= '<h2>'.
                     'in '.$sections.'.</h2>';                      &mt('There are no previously enrolled students in the selected sections.').
                       '</h2>';
             }              }
         }          }
         $Str.= '<a href="/adm/statistics?reportSelected=student_assessment">'.          $Str.= '<a href="/adm/statistics?reportSelected=student_assessment">'.
             'Return to the chart.</a>';              &mt('Click here to return to the chart').'</a>';
         $r->print($Str);          $r->print($Str);
         $r->rflush();          $r->rflush();
         return;          return;
Line 1013  sub DisplayClasslist { Line 1016  sub DisplayClasslist {
         $Str .= '<th><a href="/adm/statistics?'.          $Str .= '<th><a href="/adm/statistics?'.
             'reportSelected=student_assessment&'.              'reportSelected=student_assessment&'.
             'selectstudent=1&'.              'selectstudent=1&'.
             'sort='.$field.'">'.$field.              'sort='.$field.'">'.&mt($field).
             '</a></th>';              '</a></th>';
     }      }
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
Line 1038  sub DisplayClasslist { Line 1041  sub DisplayClasslist {
                 $Str .= &Apache::lonnet::escape($sname).'">';                  $Str .= &Apache::lonnet::escape($sname).'">';
                 $Str .= $student->{$field}.'&nbsp';                  $Str .= $student->{$field}.'&nbsp';
                 $Str .= '</a>';                  $Str .= '</a>';
               } elsif ($field eq 'status') {
                   $Str .= &mt($student->{$field});
             } else {              } else {
                 $Str .= $student->{$field};                  $Str .= $student->{$field};
             }              }
Removed from v.1.105  
changed lines
  Added in v.1.107

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