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

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

version 1.107, 2004/06/24 19:36:16 version 1.112, 2005/01/05 20:34:20
Line 229  sub PrepareClasslist { Line 229  sub PrepareClasslist {
     }      }
     #      #
     # Set up %StudentData      # Set up %StudentData
     @StudentDataOrder = qw/fullname username domain id section status/;      @StudentDataOrder = qw/fullname username domain id section status comments/;
     foreach my $field (@StudentDataOrder) {      foreach my $field (@StudentDataOrder) {
         $StudentData{$field}->{'title'} = $field;          $StudentData{$field}->{'title'} = &mt($field);
         $StudentData{$field}->{'base_width'} = length($field);          $StudentData{$field}->{'base_width'} = length(&mt($field));
         $StudentData{$field}->{'width'} =           $StudentData{$field}->{'width'} = 
                                $StudentData{$field}->{'base_width'};                                 $StudentData{$field}->{'base_width'};
     }      }
Line 786  sub SectionSelect { Line 786  sub SectionSelect {
     return $Str;      return $Str;
 }  }
   
 #######################################################  
 #######################################################  
   
 =pod  
   
 =item &CreateAndParseOutputSelector()  
   
 Construct a selection list of options for output and parse output selections.  
   
 =cut  
   
 #######################################################  
 #######################################################  
 sub OutputDescriptions {  
     my (@OutputOptions) = @_;  
     my $Str = '';  
     $Str .= "<h2>Output Modes</h2>\n";  
     $Str .= "<dl>\n";  
     foreach my $outputmode (@OutputOptions) {  
  $Str .="    <dt>".$outputmode->{'name'}."</dt>\n";  
  $Str .="        <dd>".$outputmode->{'description'}."</dd>\n";  
     }  
     $Str .= "</dl>\n";  
     return $Str;  
 }  
   
 sub CreateAndParseOutputSelector {  
     my ($elementname,$default,@OutputOptions) = @_;  
     my $output_mode;  
     my $show;  
     my $Str = '';  
     #  
     # Format for output options is 'mode, restrictions';  
     my $selected = $default;  
     if (exists($ENV{'form.'.$elementname})) {  
         if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) {  
             $selected = $ENV{'form.'.$elementname}->[0];  
         } else {  
             $selected = $ENV{'form.'.$elementname};  
         }  
     }  
     #  
     # Set package variables describing output mode  
     $output_mode = 'html';  
     $show        = 'all';  
     foreach my $option (@OutputOptions) {  
         next if ($option->{'value'} ne $selected);  
         $output_mode = $option->{'mode'};  
         $show        = $option->{'show'};  
     }  
     #  
     # Build the form element  
     $Str = qq/<select size="5" name="$elementname">/;  
     foreach my $option (@OutputOptions) {  
         if (exists($option->{'special'}) &&   
             $option->{'special'} =~ /do not show/) {  
             next;  
         }  
         $Str .= "\n".'    <option value="'.$option->{'value'}.'"';  
         $Str .= " selected " if ($option->{'value'} eq $selected);  
         $Str .= ">".&mt($option->{'name'})."<\/option>";  
     }  
     $Str .= "\n</select>";  
     return ($Str,$output_mode,$show);  
 }  
   
 ###############################################  ###############################################
 ###############################################  ###############################################
   
Line 1081  sub CreateMainMenu { Line 1015  sub CreateMainMenu {
                    { internal_name => 'student_submission_reports',                     { internal_name => 'student_submission_reports',
                      name => &mt('Student Submission Reports'),                       name => &mt('Student Submission Reports'),
                      short_description =>                        short_description => 
     &mt('Prepare Excel spreadsheets of student submissions.'),      &mt('Prepare reports of student submissions.'),
                  },                   },
                    { internal_name => 'survey_reports',                     { internal_name => 'survey_reports',
                      name => &mt('Survey Reports'),                       name => &mt('Survey Reports'),
Line 1155  sub handler { Line 1089  sub handler {
                                              'SelectedStudent']);                                               'SelectedStudent']);
     #      #
     # Give the LON-CAPA page header      # Give the LON-CAPA page header
       my $style = <<ENDSTYLE;
   <style type="text/css">
       ul.sub_studentans { list-style-type: none }
       ul.sub_correctans { list-style-type: none }
       tr.even           { background-color: \#CCCCCC }
       td.essay          { border: 1px solid gray; }
   </style>
   ENDSTYLE
     $r->print('<html><head><title>'.      $r->print('<html><head><title>'.
               &mt('Course Statistics and Charts').                &mt('Course Statistics and Charts').
               "</title></head>\n".                '</title>'.$style.
                 "</head>\n".
               &Apache::loncommon::bodytag('Course Statistics and Charts'));                &Apache::loncommon::bodytag('Course Statistics and Charts'));
     $r->rflush();      $r->rflush();
     #       # 
Removed from v.1.107  
changed lines
  Added in v.1.112

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