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

Diff for /loncom/interface/lonuserutils.pm between versions 1.65 and 1.66

version 1.65, 2008/09/11 19:42:28 version 1.66, 2008/09/12 00:55:37
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 3507  sub upfile_drop_add { Line 3509  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 3898  sub upfile_drop_add { Line 3902  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.65  
changed lines
  Added in v.1.66

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