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

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.49 and 1.51

version 1.49, 2003/04/01 17:00:24 version 1.51, 2003/06/02 13:58:43
Line 62  my @Fields = ( Line 62  my @Fields = (
              align => 'right',               align => 'right',
              color => '#FFFFE6' },               color => '#FFFFE6' },
            { name   => 'container',             { name   => 'container',
              title  => 'Container',               title  => 'Sequence or Folder',
              align  => 'left',               align  => 'left',
              color  => '#FFFFE6',               color  => '#FFFFE6',
              sortable => 'yes' },               sortable => 'yes' },
Line 177  sub CreateInterface { Line 177  sub CreateInterface {
     $Str .= '<table cellspacing="5">'."\n";      $Str .= '<table cellspacing="5">'."\n";
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<td align="center"><b>Sections</b></td>';      $Str .= '<td align="center"><b>Sections</b></td>';
       $Str .= '<td align="center"><b>Enrollment Status</b></td>';
     $Str .= '<td align="center"><b>Sequences and Folders</b></td>';      $Str .= '<td align="center"><b>Sequences and Folders</b></td>';
     $Str .= '<td align="center"><b>Output</b></td>';      $Str .= '<td align="center"><b>Output</b></td>';
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
Line 184  sub CreateInterface { Line 185  sub CreateInterface {
     $Str .= '<tr><td align="center">'."\n";      $Str .= '<tr><td align="center">'."\n";
     $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);      $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
     $Str .= '</td><td align="center">';      $Str .= '</td><td align="center">';
       $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
       $Str .= '</td><td align="center">';
     #      #
     my $only_seq_with_assessments = sub {       my $only_seq_with_assessments = sub { 
         my $s=shift;          my $s=shift;
Removed from v.1.49  
changed lines
  Added in v.1.51

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