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

Diff for /loncom/interface/lonuserutils.pm between versions 1.52 and 1.53

version 1.52, 2008/04/30 23:16:19 version 1.53, 2008/05/09 17:55:25
Line 1252  sub print_userlist { Line 1252  sub print_userlist {
     if ($env{'form.showrole'} eq 'Any') {      if ($env{'form.showrole'} eq 'Any') {
        $roleselected = ' selected="selected" ';          $roleselected = ' selected="selected" '; 
     }      }
     my ($role_select,$cnum,$cdom);      my ($cnum,$cdom);
     if ($context eq 'domain') {      $r->print(&role_filter($context));
         $role_select = &domain_roles_select();      if ($context eq 'course') {
         $r->print('<label>'.&mt('Role Type: [_1]',$role_select).'</label>');          ($cnum,$cdom) = &get_course_identity();
     } else {          $r->print(&section_group_filter($cnum,$cdom));
         $role_select = '<select name="showrole">'."\n".  
                        '<option value="Any" '.$roleselected.'>'.  
                        &mt('Any role').'</option>';  
         my @poss_roles = &curr_role_permissions($context);  
         foreach my $role (@poss_roles) {  
             $roleselected = '';  
             if ($role eq $env{'form.showrole'}) {  
                 $roleselected = ' selected="selected" ';  
             }  
             my $plrole;  
             if ($role eq 'cr') {  
                 $plrole = &mt('Custom role');  
             } else {  
                 $plrole=&Apache::lonnet::plaintext($role);  
             }  
             $role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';  
         }  
         $role_select .= '</select>';  
         $r->print('<label>'.&mt('Role: [_1]',$role_select).'</label>');  
         if ($context eq 'course') {  
             ($cnum,$cdom) = &get_course_identity();  
             $r->print(&section_group_filter($cnum,$cdom));  
         }  
     }      }
     if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {      if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {
         $r->print('&nbsp;'.&list_submit_button(&mt('Update Display')).          $r->print('&nbsp;'.&list_submit_button(&mt('Update Display')).
Line 1451  sub print_userlist { Line 1428  sub print_userlist {
               $env{'form.phase'}.'" /></form>');                $env{'form.phase'}.'" /></form>');
 }  }
   
   sub role_filter {
       my ($context) = @_;
       my $output;
       my $roleselected = '';
       if ($env{'form.showrole'} eq 'Any') {
          $roleselected = ' selected="selected" ';
       }
       my ($role_select);
       if ($context eq 'domain') {
           $role_select = &domain_roles_select();
           $output = '<label>'.&mt('Role Type: [_1]',$role_select).'</label>';
       } else {
           $role_select = '<select name="showrole">'."\n".
                          '<option value="Any" '.$roleselected.'>'.
                          &mt('Any role').'</option>';
           my @poss_roles = &curr_role_permissions($context);
           foreach my $role (@poss_roles) {
               $roleselected = '';
               if ($role eq $env{'form.showrole'}) {
                   $roleselected = ' selected="selected" ';
               }
               my $plrole;
               if ($role eq 'cr') {
                   $plrole = &mt('Custom role');
               } else {
                   $plrole=&Apache::lonnet::plaintext($role);
               }
               $role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
           }
           $role_select .= '</select>';
           $output = '<label>'.&mt('Role: [_1]',$role_select).'</label>';
       }
       return $output;
   }
   
 sub section_group_filter {  sub section_group_filter {
     my ($cnum,$cdom) = @_;      my ($cnum,$cdom) = @_;
     my @filters;      my @filters;
Removed from v.1.52  
changed lines
  Added in v.1.53

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