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

Diff for /loncom/interface/lonuserutils.pm between versions 1.64 and 1.66.2.1

version 1.64, 2008/09/11 14:47:21 version 1.66.2.1, 2008/09/20 04:02:46
Line 1337  sub print_userlist { Line 1337  sub print_userlist {
     if ($context eq 'course') {      if ($context eq 'course') {
         if (($env{'form.showrole'} eq 'st') || ($env{'form.showrole'} eq 'Any')) {           if (($env{'form.showrole'} eq 'st') || ($env{'form.showrole'} eq 'Any')) { 
             my $classlist = &Apache::loncoursedata::get_classlist();              my $classlist = &Apache::loncoursedata::get_classlist();
             %userlist = %{$classlist};              if (ref($classlist) eq 'HASH') {
                   %userlist = %{$classlist};
               }
         }          }
         if ($env{'form.showrole'} ne 'st') {          if ($env{'form.showrole'} ne 'st') {
             my $showroles;              my $showroles;
Line 2241  END Line 2243  END
                        time.'_'.rand(1000000000).'.csv';                         time.'_'.rand(1000000000).'.csv';
         unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) {          unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) {
             $r->log_error("Couldn't open $CSVfilename for output $!");              $r->log_error("Couldn't open $CSVfilename for output $!");
             $r->print(&mt('Problems occurred in writing the csv file. '              $r->print(&mt('Problems occurred in writing the CSV file. '
                          .'This error has been logged. '                           .'This error has been logged. '
                          .'Please alert your LON-CAPA administrator.'));                           .'Please alert your LON-CAPA administrator.'));
             $CSVfile = undef;              $CSVfile = undef;
Line 2555  END Line 2557  END
             $r->print(&Apache::loncommon::end_data_table().'<br />');              $r->print(&Apache::loncommon::end_data_table().'<br />');
     } elsif ($mode eq 'excel') {      } elsif ($mode eq 'excel') {
         $excel_workbook->close();          $excel_workbook->close();
         $r->print('<p><a href="'.$excel_filename.'">'.          $r->print(&mt('[_1]Your Excel spreadsheet[_2] is ready for download.', '<p><a href="'.$excel_filename.'">','</a>')."</p>\n");
                   &mt('Your Excel spreadsheet').'</a> '.&mt('is ready for download').'.</p>'."\n");  
     } elsif ($mode eq 'csv') {      } elsif ($mode eq 'csv') {
         close($CSVfile);          close($CSVfile);
         $r->print('<a href="'.$CSVfilename.'">'.          $r->print(&mt('[_1]Your CSV file[_2] is ready for download.', '<p><a href="'.$CSVfilename.'">','</a>')."</p>\n");
                   &mt('Your CSV file').'</a> is ready for download.'.  
                   "\n");  
         $r->rflush();          $r->rflush();
     }      }
     if ($mode eq 'autoenroll') {      if ($mode eq 'autoenroll') {
Line 3508  sub upfile_drop_add { Line 3507  sub upfile_drop_add {
             if ($context eq 'course') {              if ($context eq 'course') {
                 my ($cnum,$cdom) = &get_course_identity();                  my ($cnum,$cdom) = &get_course_identity();
                 my $roster = &Apache::loncoursedata::get_classlist();                  my $roster = &Apache::loncoursedata::get_classlist();
                 %userlist = %{$roster};                  if (ref($roster) eq 'HASH') {
                       %userlist = %{$roster};
                   }
                 my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,                  my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
                                                          \@statuses,\@poss_roles);                                                           \@statuses,\@poss_roles);
                 &gather_userinfo($context,'view',\%userlist,$indexhash,\%info,                  &gather_userinfo($context,'view',\%userlist,$indexhash,\%info,
Line 3899  sub upfile_drop_add { Line 3900  sub upfile_drop_add {
                           '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.                            '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
                           &mt('There are no students with current/future access to the course.').                            &mt('There are no students with current/future access to the course.').
                           '</form>'."\n");                            '</form>'."\n");
             } else {              } elsif (ref($classlist) eq 'HASH') {
                 # Remove the students we just added from the list of students.                  # Remove the students we just added from the list of students.
                 foreach my $line (@userdata) {                  foreach my $line (@userdata) {
                     my %entries=&Apache::loncommon::record_sep($line);                      my %entries=&Apache::loncommon::record_sep($line);
Removed from v.1.64  
changed lines
  Added in v.1.66.2.1

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