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

Diff for /loncom/interface/lonstatistics.pm between versions 1.123 and 1.124

version 1.123, 2005/04/07 06:56:23 version 1.124, 2005/04/07 07:34:52
Line 298  sub PrepareClasslist { Line 298  sub PrepareClasslist {
     }      }
     #      #
     if (exists($env{'form.StudentData'})) {      if (exists($env{'form.StudentData'})) {
         if (ref($env{'form.StudentData'}) eq 'ARRAY') {   @SelectedStudentData = 
             @SelectedStudentData = @{$env{'form.StudentData'}};      &Apache::loncommon::get_env_multiple('form.StudentData');
         } else {  
             @SelectedStudentData = ($env{'form.StudentData'});  
         }  
     } else {      } else {
         @SelectedStudentData = ('username');          @SelectedStudentData = ('username');
     }      }
Line 330  Returns an array of the selected section Line 327  Returns an array of the selected section
 #######################################################  #######################################################
 #######################################################  #######################################################
 sub get_selected_sections {  sub get_selected_sections {
     my @selected_sections;      my @selected_sections = 
     if (exists($env{'form.Section'})) {   &Apache::loncommon::get_env_multiple('form.Section');
         if (ref($env{'form.Section'})) {  
             @selected_sections = @{$env{'form.Section'}};  
         } elsif ($env{'form.Section'} !~ /^\s*$/) {  
             @selected_sections = ($env{'form.Section'});  
         }  
     }  
     @selected_sections = ('all') if (! @selected_sections);      @selected_sections = ('all') if (! @selected_sections);
     foreach (@selected_sections) {      foreach (@selected_sections) {
         if ($_ eq 'all') {          if ($_ eq 'all') {
Line 569  Returns: Array of symbs of selected maps Line 560  Returns: Array of symbs of selected maps
 #######################################################  #######################################################
 sub get_selected_maps {  sub get_selected_maps {
     my ($elementname) = @_;      my ($elementname) = @_;
     my @selected_maps;      my @selected_maps = 
     if (exists($env{'form.'.$elementname})) {   &Apache::loncommon::get_env_multiple('form.'.$elementname);
         if (ref($env{'form.'.$elementname})) {      @selected_maps = ('all') if (! @selected_maps);
             @selected_maps = @{$env{'form.'.$elementname}};  
         } else {  
             @selected_maps = ($env{'form.'.$elementname});  
         }  
     } else {  
         @selected_maps = ('all');  
     }  
     foreach my $map (@selected_maps) {      foreach my $map (@selected_maps) {
         if ($map eq 'all') {          if ($map eq 'all') {
             @selected_maps = ('all');              @selected_maps = ('all');
Removed from v.1.123  
changed lines
  Added in v.1.124

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