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

Diff for /loncom/interface/lonuserutils.pm between versions 1.105 and 1.106

version 1.105, 2009/11/18 21:32:41 version 1.106, 2009/11/18 23:46:28
Line 1446  sub print_userlist { Line 1446  sub print_userlist {
                   '<input type="hidden" name="phase" value="" /></form>');                    '<input type="hidden" name="phase" value="" /></form>');
         return;          return;
     }      }
     if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {      if (!(($context eq 'domain') && 
             (($env{'form.roletype'} eq 'course') || ($env{'form.roletype'} eq 'community')))) {
         $r->print('&nbsp;'.&list_submit_button(&mt('Update Display')).          $r->print('&nbsp;'.&list_submit_button(&mt('Update Display')).
                   "\n</p>\n");                    "\n</p>\n");
     }      }
     my ($indexhash,$keylist) = &make_keylist_array();      my ($indexhash,$keylist) = &make_keylist_array();
     my (%userlist,%userinfo);      my (%userlist,%userinfo,$clearcoursepick);
     if (($context eq 'domain') &&       if (($context eq 'domain') && 
         ($env{'form.roletype'} eq 'course') ||           ($env{'form.roletype'} eq 'course') || 
         ($env{'form.roletype'} eq 'community')) {          ($env{'form.roletype'} eq 'community')) {
Line 1476  sub print_userlist { Line 1477  sub print_userlist {
                   $courseform."\n".                    $courseform."\n".
                   &Apache::lonhtmlcommon::row_closure(1).                    &Apache::lonhtmlcommon::row_closure(1).
                   &Apache::lonhtmlcommon::end_pick_box().'</p>'.                    &Apache::lonhtmlcommon::end_pick_box().'</p>'.
                   '<p>'.&list_submit_button(&mt('Update Display')).                    '<p><input type="hidden" name="origroletype" value="'.$env{'form.roletype'}.'" />'.
                     &list_submit_button(&mt('Update Display')).
                   "\n".'</p><span class="LC_warning">'.$warning.'</span>'."\n");                    "\n".'</p><span class="LC_warning">'.$warning.'</span>'."\n");
         if ($env{'form.coursepick'}) {          $clearcoursepick = 0;
           if (($env{'form.origroletype'} ne '') &&
               ($env{'form.origroletype'} ne $env{'form.roletype'})) {
               $clearcoursepick = 1;
           }
           if (($env{'form.coursepick'}) && (!$clearcoursepick)) {
             $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');              $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');
         }          }
     } else {      } else {
Line 1553  sub print_userlist { Line 1560  sub print_userlist {
                 }                  }
             } elsif (($env{'form.roletype'} eq 'course') ||              } elsif (($env{'form.roletype'} eq 'course') ||
                      ($env{'form.roletype'} eq 'community')) {                       ($env{'form.roletype'} eq 'community')) {
                 if ($env{'form.coursepick'}) {                  if (($env{'form.coursepick'}) && (!$clearcoursepick)) {
                     my %courses = &process_coursepick();                      my %courses = &process_coursepick();
                     my %allusers;                      my %allusers;
                     my $hidepriv = 1;                      my $hidepriv = 1;
Removed from v.1.105  
changed lines
  Added in v.1.106

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