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

Diff for /loncom/interface/lonuserutils.pm between versions 1.1 and 1.2

version 1.1, 2007/10/22 22:16:38 version 1.2, 2007/11/06 04:39:19
Line 124  sub modifyuserrole { Line 124  sub modifyuserrole {
   
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 # build a domain and server selection form  # build a role type and role selection form
 sub domain_form {  sub domain_roles_select {
     my ($defdom) = @_;      # Set up the role type and role selection boxes when in 
     # Set up domain and server selection forms      # domain context   
       #
       # Role types
       my @roletypes = ('domain','construction_space','course');
       my %lt = &role_type_names();
     #      #
     # Get the domains  
     my @domains = &Apache::lonnet::all_domains();  
     # build up the menu information to be passed to      # build up the menu information to be passed to
     # &Apache::loncommon::linked_select_forms      # &Apache::loncommon::linked_select_forms
     my %select_menus;      my %select_menus;
     foreach my $dom (@domains) {      if ($env{'form.roletype'} eq '') {
           $env{'form.roletype'} = 'domain';
       }
       foreach my $roletype (@roletypes) {
         # set up the text for this domain          # set up the text for this domain
         $select_menus{$dom}->{'text'}= $dom;          $select_menus{$roletype}->{'text'}= $lt{$roletype};
         # we want a choice of 'default' as the default in the second menu          # we want a choice of 'default' as the default in the second menu
         $select_menus{$dom}->{'default'}= 'default';          if ($env{'form.roletype'} ne '') {
         $select_menus{$dom}->{'select2'}->{'default'} = 'default';              $select_menus{$roletype}->{'default'} = $env{'form.showrole'};
           } else { 
               $select_menus{$roletype}->{'default'} = 'Any';
           }
         # Now build up the other items in the second menu          # Now build up the other items in the second menu
         my %servers = &Apache::lonnet::get_servers($dom,'library');          my @roles;
         foreach my $server (keys(%servers)) {          if ($roletype eq 'domain') {
             $select_menus{$dom}->{'select2'}->{$server}              @roles = &domain_roles();
                                             = "$server $servers{$server}";          } elsif ($roletype eq 'construction_space') {
               @roles = &construction_space_roles();
           } else {
               @roles = &course_roles('domain');
         }          }
           my $order = ['Any',@roles];
           $select_menus{$roletype}->{'order'} = $order; 
           foreach my $role (@roles) {
               $select_menus{$roletype}->{'select2'}->{$role} = 
                             &Apache::lonnet::plaintext($role);
           }
           $select_menus{$roletype}->{'select2'}->{'Any'} = &mt('Any');
     }      }
     my $result  = &Apache::loncommon::linked_select_forms      my $result = &Apache::loncommon::linked_select_forms
         ('studentform',' with home server ',$defdom,          ('studentform',(' 'x3).&mt('Role: '),$env{'form.roletype'},
          'lcdomain','lcserver',\%select_menus);           'roletype','showrole',\%select_menus,['domain','construction_space','course']);
     return $result;      return $result;
 }  }
   
Line 616  sub print_upload_manager_footer { Line 634  sub print_upload_manager_footer {
                 &mt('Role and/or section for users without one in the uploaded file.');                  &mt('Role and/or section for users without one in the uploaded file.');
     }      }
     $Str .= '<br /><br />';      $Str .= '<br /><br />';
     my ($options,$cb_script,$coursepick) = &default_role_selector($context);      my ($options,$cb_script,$coursepick) = &default_role_selector($context,'defaultrole',1);
     if ($context eq 'domain') {      if ($context eq 'domain') {
         $Str .= '<span class="LC_role_level">'.&mt('Domain Level').'</span><br />'.$options.'<br /><br /><span class="LC_role_level">'.&mt('Course Level').'</span><br />'.$cb_script.$coursepick;          $Str .= '<span class="LC_role_level">'.&mt('Domain Level').'</span><br />'.$options.'<br /><br /><span class="LC_role_level">'.&mt('Course Level').'</span><br />'.$cb_script.$coursepick;
     } else {      } else {
Line 847  sub make_dates_default { Line 865  sub make_dates_default {
 }  }
   
 sub default_role_selector {  sub default_role_selector {
     my ($context) = @_;      my ($context,$checkpriv) = @_;
     my %customroles;      my %customroles;
     my ($options,$coursepick,$cb_jscript);      my ($options,$coursepick,$cb_jscript);
     if ($context ne 'construction_space') {      if ($context ne 'construction_space') {
Line 863  sub default_role_selector { Line 881  sub default_role_selector {
     $options = '<select name="defaultrole">'."\n".      $options = '<select name="defaultrole">'."\n".
                ' <option value="">'.&mt('Please select').'</option>'."\n";                  ' <option value="">'.&mt('Please select').'</option>'."\n"; 
     if ($context eq 'course') {      if ($context eq 'course') {
         $options .= &default_course_roles($context,%customroles);          $options .= &default_course_roles($context,$checkpriv,%customroles);
     } elsif ($context eq 'construction_space') {      } elsif ($context eq 'construction_space') {
         my @roles = &construction_space_roles();          my @roles = &construction_space_roles($checkpriv);
         foreach my $role (@roles) {          foreach my $role (@roles) {
            my $plrole=&Apache::lonnet::plaintext($role);             my $plrole=&Apache::lonnet::plaintext($role);
            $options .= '  <option value="'.$role.'">'.$plrole.'</option>'."\n";             $options .= '  <option value="'.$role.'">'.$plrole.'</option>'."\n";
         }          }
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         my @roles = &domain_roles();          my @roles = &domain_roles($checkpriv);
         foreach my $role (@roles) {          foreach my $role (@roles) {
            my $plrole=&Apache::lonnet::plaintext($role);             my $plrole=&Apache::lonnet::plaintext($role);
            $options .= '  <option value="'.$role.'">'.$plrole.'</option>';             $options .= '  <option value="'.$role.'">'.$plrole.'</option>';
Line 888  sub default_role_selector { Line 906  sub default_role_selector {
                       &Apache::loncommon::start_data_table_row()."\n".                        &Apache::loncommon::start_data_table_row()."\n".
                       '<td><input type="text" name="defaultdesc" value="" onFocus="this.blur();opencrsbrowser('."'studentform','defcourse','defdomain','coursedesc',''".')" /></td>'."\n".                        '<td><input type="text" name="defaultdesc" value="" onFocus="this.blur();opencrsbrowser('."'studentform','defcourse','defdomain','coursedesc',''".')" /></td>'."\n".
                       '<td><select name="courserole">'."\n".                        '<td><select name="courserole">'."\n".
                       &default_course_roles($context,%customroles)."\n".                        &default_course_roles($context,$checkpriv,%customroles)."\n".
                       '</select></td><td>'.                        '</select></td><td>'.
                       '<table class="LC_createuser">'.                        '<table class="LC_createuser">'.
                       '<tr class="LC_section_row"><td valign"top">'.                        '<tr class="LC_section_row"><td valign"top">'.
Line 910  sub default_role_selector { Line 928  sub default_role_selector {
 }  }
   
 sub default_course_roles {  sub default_course_roles {
     my ($context,%customroles) = @_;      my ($context,$checkpriv,%customroles) = @_;
     my $output;      my $output;
     my @roles = &course_roles($context);      my @roles = &course_roles($context,$checkpriv);
     foreach my $role (@roles) {      foreach my $role (@roles) {
         my $plrole=&Apache::lonnet::plaintext($role);          my $plrole=&Apache::lonnet::plaintext($role);
         $output .= '  <option value="'.$role.'">'.$plrole.'</option>';          $output .= '  <option value="'.$role.'">'.$plrole.'</option>';
     }      }
     if (keys(%customroles) > 0) {      if (keys(%customroles) > 0) {
           my %customroles = &my_custom_roles();
         foreach my $cust (sort(keys(%customroles))) {          foreach my $cust (sort(keys(%customroles))) {
             my $custrole='cr_cr_'.$env{'user.domain'}.              my $custrole='cr_cr_'.$env{'user.domain'}.
                 '_'.$env{'user.name'}.'_'.$cust;                  '_'.$env{'user.name'}.'_'.$cust;
Line 928  sub default_course_roles { Line 947  sub default_course_roles {
 }  }
   
 sub construction_space_roles {  sub construction_space_roles {
       my ($checkpriv) = @_;
     my @allroles = ('ca','aa');      my @allroles = ('ca','aa');
     my @roles;      my @roles;
     foreach my $role (@allroles) {      if ($checkpriv) {
         if (&Apache::lonnet::allowed('c'.$role,$env{'user.domain'}.'/'.$env{'user.name'})) {           foreach my $role (@allroles) {
             push(@roles,$role);               if (&Apache::lonnet::allowed('c'.$role,$env{'user.domain'}.'/'.$env{'user.name'})) { 
                   push(@roles,$role); 
               }
         }          }
           return @roles;
       } else {
           return @allroles;
     }      }
     return @roles;  
 }  }
   
 sub domain_roles {  sub domain_roles {
       my ($checkpriv) = @_;
     my @allroles = ('dc','li','dg','au','sc');      my @allroles = ('dc','li','dg','au','sc');
     my @roles;      my @roles;
     foreach my $role (@allroles) {      if ($checkpriv) {
         if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) {          foreach my $role (@allroles) {
             push(@roles,$role);              if (&Apache::lonnet::allowed('c'.$role,$env{'request.role.domain'})) {
                   push(@roles,$role);
               }
         }          }
           return @roles;
       } else {
           return @allroles;
     }      }
     return @roles;  
 }  }
   
 sub course_roles {  sub course_roles {
     my ($context) = @_;      my ($context,$checkpriv) = @_;
     my @allroles = ('st','ta','ep','in','cc');      my @allroles = ('st','ta','ep','in','cc');
     my @roles;      my @roles;
     if ($context eq 'domain') {      if ($context eq 'domain') {
         @roles = @allroles;          @roles = @allroles;
     } elsif ($context eq 'course') {      } elsif ($context eq 'course') {
         if ($env{'request.course.id'}) {          if ($env{'request.course.id'}) {
             foreach my $role (@allroles) {              if ($checkpriv) { 
                 if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {                  foreach my $role (@allroles) {
                     push(@roles,$role);                        if (&Apache::lonnet::allowed('c'.$role,$env{'request.course.id'})) {
                 } else {                          push(@roles,$role);
                     if ($role ne 'cc' && $env{'request.course.section'} ne '') {                      } else {
                         if (!&Apache::lonnet::allowed('c'.$role,                          if ($role ne 'cc' && $env{'request.course.section'} ne '') {
                                          $env{'request.course.id'}.'/'.                              if (!&Apache::lonnet::allowed('c'.$role,
                                          $env{'request.course.section'})) {                                               $env{'request.course.id'}.'/'.
                             push(@roles,$role);                                               $env{'request.course.section'})) {
                                   push(@roles,$role);
                               }
                         }                          }
                     }                      }
                 }                  }
               } else {
                   @roles = @allroles;
             }              }
         }          }
     }      }
Line 976  sub course_roles { Line 1009  sub course_roles {
 }  }
   
 sub curr_role_permissions {  sub curr_role_permissions {
     my ($context,$setting) = @_;       my ($context,$setting,$checkpriv) = @_; 
     my @roles;      my @roles;
     if ($context eq 'construction_space') {      if ($context eq 'construction_space') {
         @roles = &construction_space_roles();          @roles = &construction_space_roles($checkpriv);
     } elsif ($context eq 'domain') {      } elsif ($context eq 'domain') {
         if ($setting eq 'course') {          if ($setting eq 'course') {
             @roles = &course_roles($context);               @roles = &course_roles($context,$checkpriv); 
         } else {          } else {
             @roles = &domain_roles();              @roles = &domain_roles($checkpriv);
         }          }
     } elsif ($context eq 'course') {      } elsif ($context eq 'course') {
         @roles = &course_roles($context);          @roles = &course_roles($context,$checkpriv);
     }      }
     return @roles;      return @roles;
 }  }
Line 1005  sub my_custom_roles { Line 1038  sub my_custom_roles {
     return %returnhash;      return %returnhash;
 }  }
   
 sub print_html_classlist {  sub print_userlist {
     my ($r,$mode,$permission,$context) = @_;      my ($r,$mode,$permission,$context,$formname,$totcodes,$codetitles,
           $idlist,$idlist_titles) = @_;
       my $format = $env{'form.output'};
     if (! exists($env{'form.sortby'})) {      if (! exists($env{'form.sortby'})) {
         $env{'form.sortby'} = 'username';          $env{'form.sortby'} = 'username';
     }      }
     if ($env{'form.status'} !~ /^(Any|Expired|Active|Future)$/) {      if ($env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) {
         $env{'form.status'} = 'Active';          $env{'form.Status'} = 'Active';
     }      }
     my $status_select = &Apache::lonhtmlcommon::StatusOptions      my $status_select = &Apache::lonhtmlcommon::StatusOptions
         ($env{'form.status'});          ($env{'form.Status'});
   
       if ($env{'form.showrole'} eq '') {
           $env{'form.showrole'} = 'Any';
       }
     if (! defined($env{'form.output'}) ||      if (! defined($env{'form.output'}) ||
         $env{'form.output'} !~ /^(csv|excel|html)$/ ) {          $env{'form.output'} !~ /^(csv|excel|html)$/ ) {
         $env{'form.output'} = 'html';          $env{'form.output'} = 'html';
     }      }
   
     if ($context eq 'course') {       my @statuses;
         my $cid =$env{'request.course.id'};      if ($env{'form.Status'} eq 'Any') {
         my $cdom=$env{'course.'.$cid.'.domain'};          @statuses = ('previous','active','future');
         my $cnum=$env{'course.'.$cid.'.num'};      } elsif ($env{'form.Status'} eq 'Expired') {
         #          @statuses = ('previous');
         # List course personnel      } elsif ($env{'form.Status'} eq 'Active') {
         my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);          @statuses = ('active');
         #      } elsif ($env{'form.Status'} eq 'Future') {
           @statuses = ('future');
         $r->print('<br />'.&Apache::loncommon::start_data_table());  
         foreach my $role (sort keys %coursepersonnel) {  
             next if ($role =~ /^\s*$/);  
             $r->print(&Apache::loncommon::start_data_table_row().  
                       '<td>'.$role.'</td><td>');  
             foreach my $user (split(',',$coursepersonnel{$role})) {  
                 my ($puname,$pudom)=split(':',$user);  
                 $r->print(' '.&Apache::loncommon::aboutmewrapper(  
                           &Apache::loncommon::plainname($puname,$pudom),  
                           $puname,$pudom));  
             }  
             $r->print('</td>'.&Apache::loncommon::end_data_table_row());  
         }  
         $r->print(&Apache::loncommon::end_data_table());  
     }      }
   
   #    if ($context eq 'course') { 
   #        $r->print(&display_adv_courseroles());
   #    }
     #      #
     # Interface output      # Interface output
     $r->print('<input type="hidden" name="action" value="'.      $r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n".
                 '<input type="hidden" name="action" value="'.
               $env{'form.action'}.'" />');                $env{'form.action'}.'" />');
     $r->print("<p>\n");      $r->print("<p>\n");
     if ($env{'form.action'} ne 'modifystudent') {      if ($env{'form.action'} ne 'modifystudent') {
Line 1066  sub print_html_classlist { Line 1095  sub print_html_classlist {
         $output_selector .= '</select>';          $output_selector .= '</select>';
         $r->print('<label>'.&mt('Output Format: [_1]',$output_selector).'</label>'.('&nbsp;'x3));          $r->print('<label>'.&mt('Output Format: [_1]',$output_selector).'</label>'.('&nbsp;'x3));
     }      }
     $r->print('<label>'.&mt('Student Status: [_1]',$status_select)."</label>\n");      $r->print('<label>'.&mt('User Status: [_1]',$status_select).'</label>'.('&nbsp;'x3)."\n");
     $r->print('<input type="submit" value="'.&mt('Update Display').'" />'.      my $roleselected = '';
               "\n</p>\n");      if ($env{'form.showrole'} eq 'Any') {
          $roleselected = ' selected="selected" '; 
       }
       my $role_select;
       if ($context eq 'domain') {
           $role_select = &domain_roles_select();
           $r->print('<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=&Apache::lonnet::plaintext($role);
               $role_select .= '<option value="'.$role.'"'.$roleselected.'>'.$plrole.'</option>';
           }
           $roleselected = '';
           if ($env{'form.showrole'} eq 'cr') {
               $roleselected = ' selected="selected" ';
           }
           $role_select .= '<option value="cr"'.$roleselected.'>'.&mt('Custom role').'</option>'.
                           '</select>';
           $r->print('<label>'.&mt('Role: [_1]',$role_select).'</label>');
       }
       if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) {
           $r->print(&list_submit_button(&mt('Update Display'))."\n</p>\n");
       }
       my ($indexhash,$keylist) = &make_keylist_array();
       my (%userlist,%userinfo);
     if ($context eq 'course') {      if ($context eq 'course') {
         #          #
         # Print the classlist          # Print the userlist
         $r->print('<h2>'.&mt('Current Class List').'</h2>');          $r->print('<h2>'.&mt('Current User List').'</h2>');
         my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();          (my $classlist,$keylist)=&Apache::loncoursedata::get_classlist();
   
         if (exists($permission->{'view_section'})) {          if (exists($permission->{'view_section'})) {
             my $sec = &Apache::loncoursedata::CL_SECTION();              my $sec = &Apache::loncoursedata::CL_SECTION();
             foreach my $student (keys(%{$classlist})) {              foreach my $student (keys(%{$classlist})) {
                 if ($classlist->{$student}[$sec] ne $permission->{'view_section'}) {                  if ($userlist{$student}[$sec] ne $permission->{'view_section'}) {
                     delete($classlist->{$student});                      delete($userlist{$student});
                 }                  }
             }              }
         }          }
           foreach my $item (keys(%{$classlist})) {
         if (! defined($classlist)) {              $userlist{$item} = $classlist->{$item};
             $r->print(&mt('There are no students currently enrolled.')."\n");          }
           my $cid =$env{'request.course.id'};
           my $cdom=$env{'course.'.$cid.'.domain'};
           my $cnum=$env{'course.'.$cid.'.num'};
           my $showroles;
           if ($env{'form.showrole'} ne 'Any') {
               $showroles = [$env{'form.showrole'}];
         } else {          } else {
             # Print out the available choices              $showroles = undef;
             if ($env{'form.action'} eq 'modifystudent') {          }
                 &show_users_list($r,$context,'view','modify',          my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef,
                                  $env{'form.Status'},$classlist,$keylist);                                                          \@statuses,$showroles);
             } else {          &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
                 &show_users_list($r,$context,$env{'form.output'},'aboutme',                           \%advrolehash);
                                  $env{'form.Status'},$classlist,$keylist);      } else {
           my (%cstr_roles,%dom_roles);
           if ($context eq 'construction_space') {
               # List co-authors and assistant co-authors
               my @possroles = ('ca','aa');
               %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef,
                                                 \@statuses,\@possroles);
               &gather_userinfo($context,$format,\%userlist,$indexhash,\%userinfo,
                                \%cstr_roles);
           } elsif ($context eq 'domain') {
               if ($env{'form.roletype'} eq 'domain') {
                   %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'});
                   foreach my $key (keys(%dom_roles)) {
                       if (ref($dom_roles{$key}) eq 'HASH') {
                           &gather_userinfo($context,$format,\%userlist,$indexhash,
                                            \%userinfo,$dom_roles{$key});
                       }
                   }
               } elsif ($env{'form.roletype'} eq 'construction_space') {
                   my %dom_roles = &Apache::lonnet::get_domain_roles($env{'request.role.domain'},['au']);
                   my %coauthors;
                   foreach my $key (keys(%dom_roles)) {
                       if (ref($dom_roles{$key}) eq 'HASH') {
                           if ($env{'form.showrole'} eq 'au') {
                               &gather_userinfo($context,$format,\%userlist,$indexhash,
                                                \%userinfo,$dom_roles{$key});
                           } else {
                               my @possroles;
                               if ($env{'form.showrole'} eq 'Any') {
                                   @possroles = ('ca','aa');
                               } else {
                                   @possroles = ($env{'form.showrole'}); 
                               }
                               foreach my $author (sort(keys(%{$dom_roles{$key}}))) {
                                   my ($role,$authorname,$authordom) = split(/:/,$author);
                                   my $extent = '/'.$authordom.'/'.$authorname;
                                   %{$coauthors{$extent}} =
                                       &Apache::lonnet::get_my_roles($authorname,
                                          $authordom,undef,\@statuses,\@possroles);
                               }
                               &gather_userinfo($context,$format,\%userlist,
                                                $indexhash,\%userinfo,\%coauthors);
                           }
                       }
                   }
               } elsif ($env{'form.roletype'} eq 'course') {
                   my $courseform = 
                       &Apache::lonhtmlcommon::course_selection($formname,$totcodes,
                                              $codetitles,$idlist,$idlist_titles);
                   my $output='<p>'.&Apache::lonhtmlcommon::start_pick_box()."\n".
                              &Apache::lonhtmlcommon::start_pick_box()."\n".
                        &Apache::lonhtmlcommon::row_title(&mt('Select Course(s)'),
                                                          'LC_oddrow_value')."\n".
                              $courseform."\n".
                              &Apache::lonhtmlcommon::row_closure(1).
                              &Apache::lonhtmlcommon::end_pick_box().'</p>';
                   $r->print($output);
                   $r->print('<p>'.&list_submit_button(&mt('Update Display')).
                             "\n</p>\n");
                   if ($env{'form.coursepick'}) {
                       my %courses = &process_coursepick();
                       my %allusers; 
                       foreach my $cid (keys(%courses)) {
                           my %coursehash =
                               &Apache::lonnet::coursedescription($cid,{'one_time' => 1});
                           my $cdom = $coursehash{'domain'};
                           my $cnum = $coursehash{'num'};
                           my $cdesc = $coursehash{'description'};
                           my (@roles,@sections,%access,%users,%userdata,
                               %users,%statushash);
                           if ($env{'form.showrole'} eq 'Any') {
                               @roles = &course_roles($context);
                           } else {
                               @roles = ($env{'form.showrole'});
                           }
                           foreach my $role (@roles) {
                               %{$users{$role}} = ();
                           }
                           foreach my $type (@statuses) {
                               $access{$type} = $type;
                           }
                           &Apache::loncommon::get_course_users($cdom,$cnum,\%access,\@roles,\@sections,\%users,\%userdata,\%statushash);
                           foreach my $user (keys(%userdata)) {
                               next if (ref($userinfo{$user}) eq 'HASH');
                               foreach my $item ('fullname','id') {
                                   $userinfo{$user}{$item} = $userdata{$user}[$indexhash->{$item}];
                               }
                           }
                           foreach my $role (keys(%users)) {
                               foreach my $user (keys(%{$users{$role}})) {
                                   my $uniqid = $user.':'.$role;
                                   $allusers{$uniqid}{$cid} = { desc => $cdesc,
                                                                secs  => $statushash{$user}{$role},
                                                              };
                               }
                           }
                       }
                       &gather_userinfo($context,$format,\%userlist,$indexhash,
                                        \%userinfo,\%allusers);
                   } else {
                       return;
                   }
             }              }
         }          }
     } elsif ($context eq 'construction_space') {          if (keys(%userlist) == 0) {
         # List co-authors and assistant co-authors              if ($context eq 'construction_space') {
         my @statuses;                  $r->print(&mt('There are no co-authors to display.')."\n");
         if ($env{'form.status'} eq 'Any') {              } elsif ($context eq 'domain') {
             @statuses = ('previous','active','future');                  if ($env{'form.roletype'} eq 'domain') {
         } elsif ($env{'form.status'} eq 'Expired') {                      $r->print(&mt('There are no users with domain roles to display.')."\n");
             @statuses = ('previous');                  } elsif ($env{'form.roletype'} eq 'construction_space') {
         } elsif ($env{'form.status'} eq 'Active') {                      $r->print(&mt('There are no authors or co-authors to display.')."\n");
             @statuses = ('active');                  } elsif ($env{'form.roletype'} eq 'course') {
         } elsif ($env{'form.status'} eq 'Future') {                      $r->print(&mt('There are no course users to display')."\n"); 
             @statuses = ('future');                  }
         }              } elsif ($context eq 'course') {
         my @possroles = ('ca','aa');                  $r->print(&mt('There are no course users to display.')."\n");
         my %cstr_roles = &Apache::lonnet::get_my_roles(undef,undef,undef,              }
                                           \@statuses,\@possroles);  
         if (keys(%cstr_roles) == 0) {  
              $r->print(&mt('There are no authors or co-authors.')."\n");  
         } else {          } else {
             # Print out the available choices              # Print out the available choices
             if ($env{'form.action'} eq 'modifystudent') {              if ($env{'form.action'} eq 'modifystudent') {
                 &show_users_list($r,$context,'view','modify',                  &show_users_list($r,$context,'view','modify',
                                  $env{'form.Status'},\%cstr_roles);                                   $env{'form.Status'},\%userlist,$keylist);
             } else {              } else {
                 &show_users_list($r,$context,$env{'form.output'},'aboutme',                  &show_users_list($r,$context,$env{'form.output'},'aboutme',
                                  $env{'form.Status'},\%cstr_roles);                                   $env{'form.Status'},\%userlist,$keylist);
               }
           }
       }
       $r->print('</form>');
   }
   
   sub list_submit_button {
       my ($text) = @_;
       return '<input type="submit" value="'.$text.'" />';
   }
   
   sub gather_userinfo {
       my ($context,$format,$userlist,$indexhash,$userinfo,$rolehash) = @_;
       foreach my $item (keys(%{$rolehash})) {
           @{$userlist->{$item}} = ();
           my %userdata;
           if ($context eq 'construction_space' || $context eq 'course') { 
               ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =
                   split(/:/,$item);
               ($userdata{'start'},$userdata{'end'})=split(/:/,$rolehash->{$item});
               &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);
           } elsif ($context eq 'domain') {
               if ($env{'form.roletype'} eq 'domain') {
                   ($userdata{'role'},$userdata{'username'},$userdata{'domain'}) =
                       split(/:/,$item);
                   ($userdata{'end'},$userdata{'start'})=split(/:/,$rolehash->{$item});
                   &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);
               } elsif ($env{'form.roletype'} eq 'construction_space') {
                   if (ref($rolehash->{$item}) eq 'HASH') {
                       $userdata{'extent'} = $item;
                       foreach my $key (keys(%{$rolehash->{$item}})) {
                           ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =  split(/:/,$key);
                           ($userdata{'start'},$userdata{'end'}) = 
                               split(/:/,$rolehash->{$item}{$key});
                           my $uniqid = $key.':'.$item;
                           &build_user_record(\%userdata,$userinfo,$indexhash,$uniqid,$userlist);
                       }
                   }
               } elsif ($env{'form.roletype'} eq 'course') {
                   ($userdata{'username'},$userdata{'domain'},$userdata{'role'}) =
                       split(/:/,$item);
                   if (ref($rolehash->{$item}) eq 'HASH') {
                       foreach my $cid (sort(keys(%{$rolehash->{$item}}))) {
                           if (ref($rolehash->{$item}{$cid}) eq 'HASH') {
                               my $spanstart = '';
                               my $spanend = '; ';
                               my $space = ', ';
                               if ($format eq 'html' || $format eq 'view') {
                                   $spanstart = '<span class="LC_nobreak">';
                                   $spanend = '</span><br />';
                                   $space = ',&nbsp;';
                               }
                               $userdata{'extent'} .= $spanstart.
                                       $rolehash->{$item}{$cid}{'desc'}.$space;
                               if (ref($rolehash->{$item}{$cid}{'secs'}) eq 'HASH') { 
                                   foreach my $sec (sort(keys(%{$rolehash->{$item}{$cid}{'secs'}}))) {
                                       $userdata{'extent'} .= $sec.$space.$rolehash->{$item}{$cid}{'secs'}{$sec}.$spanend;
                                   }
                               }
                           }
                       }
                   }
                   &build_user_record(\%userdata,$userinfo,$indexhash,$item,$userlist);
               }
           }
       }
       return;
   }
   
   sub build_user_record {
       my ($userdata,$userinfo,$indexhash,$record_key,$userlist) = @_;
       &process_date_info($userdata);
       my $username = $userdata->{'username'};
       my $domain = $userdata->{'domain'};
       if (ref($userinfo->{$username.':'.$domain}) eq 'HASH') {
           $userdata->{'fullname'} =
           $userinfo->{$username.':'.$domain}{'fullname'};
           $userdata->{'id'} = $userinfo->{$username.':'.$domain}{'id'};
       } else {
           &aggregate_user_info($domain,$username,$userinfo);
           $userdata->{'fullname'} = $userinfo->{$username.':'.$domain}{'fullname'};
           $userdata->{'id'} = $userinfo->{$username.':'.$domain}{'id'};
       }
       foreach my $key (keys(%{$indexhash})) {
           if (defined($userdata->{$key})) {
               $userlist->{$record_key}[$indexhash->{$key}] = $userdata->{$key};
           }
       }
       return;
   }
   
   sub courses_selector {
       my ($cdom,$formname) = @_;
       my %coursecodes = ();
       my %codes = ();
       my @codetitles = ();
       my %cat_titles = ();
       my %cat_order = ();
       my %idlist = ();
       my %idnums = ();
       my %idlist_titles = ();
       my $caller = 'global';
       my $totcodes = 0;
       my $format_reply;
       my $jscript = '';
   
       my $totcodes =
           &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,
                                                         $cdom,$totcodes);
       if ($totcodes > 0) {
           $format_reply =
                &Apache::lonnet::auto_instcode_format($caller,$cdom,\%coursecodes,
                                   \%codes,\@codetitles,\%cat_titles,\%cat_order);
           if ($format_reply eq 'ok') {
               my $numtypes = @codetitles;
               &Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles);
               my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles);
               my $longtitles_str = join('","',@{$longtitles});
               my $allidlist = $idlist{$codetitles[0]};
               $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist);
               $jscript .= $scripttext;
               $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,@codetitles);
           }
       }
       my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom);
   
       my %elements = (
                        Year => 'selectbox',
                        coursepick => 'radio',
                        coursetotal => 'text',
                        courselist => 'text',
                      );
       $jscript .= &Apache::lonhtmlcommon::set_form_elements(\%elements);
       if ($env{'form.coursepick'} eq 'category') {
           $jscript .= qq|
   function setCourseCat(formname) {
       if (formname.Year.options[formname.Year.selectedIndex].value == -1) {
           return;
       }
       courseSet('Year');
       for (var j=0; j<formname.Semester.length; j++) {
           if (formname.Semester.options[j].value == "$env{'form.Semester'}") {
               formname.Semester.options[j].selected = true;
           }
       }
       if (formname.Semester.options[formname.Semester.selectedIndex].value == -1) {
           return;
       }
       courseSet('Semester');
       for (var j=0; j<formname.Department.length; j++) {
           if (formname.Department.options[j].value == "$env{'form.Department'}") {            formname.Department.options[j].selected = true;
           }
       }
       if (formname.Department.options[formname.Department.selectedIndex].value == -1) {
           return;
       }
       courseSet('Department');
       for (var j=0; j<formname.Number.length; j++) {
           if (formname.Number.options[j].value == "$env{'form.Number'}") {
               formname.Number.options[j].selected = true;
           }
       }
   }
   |;
       }
       return ($cb_jscript,$jscript,$totcodes,\@codetitles,\%idlist,
               \%idlist_titles);
   }
   
   sub course_selector_loadcode {
       my ($formname) = @_;
       my $loadcode;
       if ($env{'form.coursepick'} ne '') {
           $loadcode = 'javascript:setFormElements(document.'.$formname.')';
           if ($env{'form.coursepick'} eq 'category') {
               $loadcode .= ';javascript:setCourseCat(document.'.$formname.')';
           }
       }
       return $loadcode;
   }
   
   sub process_coursepick {
       my $coursefilter = $env{'form.coursepick'};
       my $cdom = $env{'request.role.domain'};
       my %courses;
       if ($coursefilter eq 'all') {
           %courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.',
                                                    undef,undef,'Course');
       } elsif ($coursefilter eq 'category') {
           my $instcode = &instcode_from_coursefilter();
           %courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.',
                                                    undef,undef,'Course');
       } elsif ($coursefilter eq 'specific') {
           if ($env{'form.coursetotal'} > 1) {
               my @course_ids = split(/&&/,$env{'form.courselist'});
               foreach my $cid (@course_ids) {
                   $courses{$cid} = '';
             }              }
           } else {
               $courses{$env{'form.courselist'}} = '';
         }          }
       }
       return %courses;
   }
   
   sub instcode_from_coursefilter {
       my $instcode = '';
       my @cats = ('Semester','Year','Department','Number');
       foreach my $category (@cats) {
           if (defined($env{'form.'.$category})) {
               unless ($env{'form.'.$category} eq '-1') {
                   $instcode .= $env{'form.'.$category};
              }
           }
       }
       if ($instcode eq '') {
           $instcode = '.';
       }
       return $instcode;
   }
   
   sub display_adv_courseroles {
       my $output;
       #
       # List course personnel
       my %coursepersonnel = 
          &Apache::lonnet::get_course_adv_roles($env{'request.course.id'});
       #
       $output = '<br />'.&Apache::loncommon::start_data_table();
       foreach my $role (sort(keys(%coursepersonnel))) {
           next if ($role =~ /^\s*$/);
           $output .= &Apache::loncommon::start_data_table_row().
                     '<td>'.$role.'</td><td>';
           foreach my $user (split(',',$coursepersonnel{$role})) {
               my ($puname,$pudom)=split(':',$user);
               $output .= ' '.&Apache::loncommon::aboutmewrapper(
                          &Apache::loncommon::plainname($puname,$pudom),
                          $puname,$pudom);
           }
           $output .= '</td>'.&Apache::loncommon::end_data_table_row();
       }
       $output .= &Apache::loncommon::end_data_table();
   }
   
   sub make_keylist_array {
       my ($index,$keylist);
       $index->{'domain'} = &Apache::loncoursedata::CL_SDOM();
       $index->{'username'} = &Apache::loncoursedata::CL_SNAME();
       $index->{'end'} = &Apache::loncoursedata::CL_END();
       $index->{'start'} = &Apache::loncoursedata::CL_START();
       $index->{'id'} = &Apache::loncoursedata::CL_ID();
       $index->{'section'} = &Apache::loncoursedata::CL_SECTION();
       $index->{'fullname'} = &Apache::loncoursedata::CL_FULLNAME();
       $index->{'status'} = &Apache::loncoursedata::CL_STATUS();
       $index->{'type'} = &Apache::loncoursedata::CL_TYPE();
       $index->{'lockedtype'} = &Apache::loncoursedata::CL_LOCKEDTYPE();
       $index->{'groups'} = &Apache::loncoursedata::CL_GROUP();
       $index->{'email'} = &Apache::loncoursedata::CL_PERMANENTEMAIL();
       $index->{'role'} = &Apache::loncoursedata::CL_ROLE();
       $index->{'extent'} = &Apache::loncoursedata::CL_EXTENT();
       foreach my $key (keys(%{$index})) {
           $keylist->[$index->{$key}] = $key;
       }
       return ($index,$keylist);
   }
   
   sub aggregate_user_info {
       my ($udom,$uname,$userinfo) = @_;
       my %info=&Apache::lonnet::get('environment',
                                     ['firstname','middlename',
                                      'lastname','generation','id'],
                                      $udom,$uname);
       my ($tmp) = keys(%info);
       my ($fullname,$id);
       if ($tmp =~/^(con_lost|error|no_such_host)/i) {
           $fullname = 'not available';
           $id = 'not available';
           &Apache::lonnet::logthis('unable to retrieve environment '.
                                    'for '.$uname.':'.$udom);
     } else {      } else {
           $fullname = &Apache::lonnet::format_name(@info{qw/firstname middlename lastname generation/},'lastname');
           $id = $info{'id'};
       }
       $userinfo->{$uname.':'.$udom} = { 
                                         fullname => $fullname,
                                         id       => $id,
                                       };
       return;
   }
   
   sub process_date_info {
       my ($userdata) = @_;
       my $now = time;
       $userdata->{'status'} = 'Active';
       if ($userdata->{'start'} > 0) {
           if ($now < $userdata->{'start'}) {
               $userdata->{'status'} = 'Future';
           }
     }      }
       if ($userdata->{'end'} > 0) {
           if ($now > $userdata->{'end'}) {
               $userdata->{'status'} = 'Expired';
           }
       }
       return;
 }  }
   
 sub show_users_list {  sub show_users_list {
     my ($r,$context,$mode,$linkto,$statusmode,$classlist,$keylist)=@_;      my ($r,$context,$mode,$linkto,$statusmode,$userlist,$keylist)=@_;
     #      #
     # Variables for excel output      # Variables for excel output
     my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);      my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);
Line 1139  sub show_users_list { Line 1603  sub show_users_list {
     my ($CSVfile,$CSVfilename);      my ($CSVfile,$CSVfilename);
     #      #
     my $sortby = $env{'form.sortby'};      my $sortby = $env{'form.sortby'};
     if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end|type)$/) {      if ($context eq 'course') {
         $sortby = 'username';          if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end|type)$/) {
               $sortby = 'username';
           }
       } else {
           if ($sortby !~ /^(username|domain|id|fullname|start|end|role|email|extent)$/) {
               $sortby = 'username';
           }
     }      }
     my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers)=@_;      my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers);
     if ($context eq 'course') {      if ($context eq 'course') {
         $cid=$env{'request.course.id'};          $cid=$env{'request.course.id'};
         $cdom = $env{'course.'.$cid.'.domain'};          $cdom = $env{'course.'.$cid.'.domain'};
         $cnum = $env{'course.'.$cid.'.num'};          $cnum = $env{'course.'.$cid.'.num'};
         $classgroups = &Apache::loncoursedata::get_group_memberships(          ($classgroups) = &Apache::loncoursedata::get_group_memberships(
                                      $classlist,$keylist,$cdom,$cnum);                                       $userlist,$keylist,$cdom,$cnum);
         if (! exists($env{'form.displayphotos'})) {          if (! exists($env{'form.displayphotos'})) {
             $env{'form.displayphotos'} = 'off';              $env{'form.displayphotos'} = 'off';
         }          }
Line 1194  END Line 1664  END
                        'start'      => "start date",                         'start'      => "start date",
                        'end'        => "end date",                         'end'        => "end date",
                        'status'     => "status",                         'status'     => "status",
                          'role'       => "role",
                        'type'       => "enroll type/action",                         'type'       => "enroll type/action",
                        'email'      => "email address",                         'email'      => "email address",
                        'clicker'    => "clicker id",                         'clicker'    => "clicker id",
                        'photo'      => "photo",                         'photo'      => "photo",
                          'extent'     => "extent",
                       );                        );
       if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
           $lt{'extent'} = &mt('Course(s): description, section(s), status');
       } elsif ($context eq 'construction_space') {
           $lt{'extent'} = &mt('Author'); 
       }
     my @cols = ('username','domain','id','fullname');      my @cols = ('username','domain','id','fullname');
     if ($context eq 'course') {      if ($context eq 'course') {
         push(@cols,'section');          push(@cols,'section');
     }      }
     push(@cols,('start','end'));      if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) { 
     if ($statusmode eq 'Any') {          push(@cols,('start','end'));
       }
       if ($env{'form.showrole'} eq 'Any') {
           push(@cols,'role');
       }
       if ($context eq 'domain' && ($env{'form.roletype'} eq 'construction_space' ||
                                   $env{'form.roletype'} eq 'course')) {
           push (@cols,'extent');
       }
       if (($statusmode eq 'Any') && 
           (!($context eq 'domain' && $env{'form.roletype'} eq 'course'))) {
         push(@cols,'status');          push(@cols,'status');
     }      }
     if ($context eq 'course') {      if ($context eq 'course') {
Line 1212  END Line 1699  END
     }      }
     push(@cols,'email');      push(@cols,'email');
   
       my $rolefilter;
       if ($env{'form.showrole'} ne 'Any') {
           $rolefilter = &Apache::lonnet::plaintext($env{'form.showrole'});
       }
       my $results_description = &results_header_row($rolefilter,$statusmode,
                                                     $context);
   
     if ($mode eq 'html' || $mode eq 'view') {      if ($mode eq 'html' || $mode eq 'view') {
           $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');
           $r->rflush();
           $r->print('<b>'.$results_description.'</b><br />');
         if ($linkto eq 'aboutme') {          if ($linkto eq 'aboutme') {
             $r->print(&mt("Select a user name to view the user's personal page."));              $r->print(&mt("Select a user name to view the user's personal page."));
         } elsif ($linkto eq 'modify') {          } elsif ($linkto eq 'modify') {
Line 1222  END Line 1719  END
 <input type="hidden" name="sname"  value="" />  <input type="hidden" name="sname"  value="" />
 <input type="hidden" name="sdom"   value="" />  <input type="hidden" name="sdom"   value="" />
 END  END
   
         $r->print("\n<p>\n".          $r->print("\n<p>\n".
                   &Apache::loncommon::start_data_table().                    &Apache::loncommon::start_data_table().
                   &Apache::loncommon::start_data_table_header_row());                    &Apache::loncommon::start_data_table_header_row());
Line 1236  END Line 1732  END
             ");              ");
         }          }
         foreach my $item (@cols) {          foreach my $item (@cols) {
             $r->print('<th><a href="javascript:document.studentform.sortby.value='.$item.';document.studentform.submit();">'.$lt{$item}.'</a></th>'."\n");              $r->print("<th><a href=\"javascript:document.studentform.sortby.value='$item';document.studentform.submit();\">$lt{$item}</a></th>\n");
         }          }
           my %role_types = &role_type_names();
         if ($context eq 'course') {          if ($context eq 'course') {
             # Clicker display on or off?              # Clicker display on or off?
             my %clicker_options = &Apache::lonlocal::texthash(              my %clicker_options = &Apache::lonlocal::texthash(
Line 1270  END Line 1767  END
                       $photo_options{$photochg}.'</a>&nbsp;'.$lt{'photo'}."\n".                        $photo_options{$photochg}.'</a>&nbsp;'.$lt{'photo'}."\n".
                       '    </th>'."\n");                        '    </th>'."\n");
             }              }
             $r->print(&Apache::end_data_table_header_row());              $r->print(&Apache::loncommon::end_data_table_header_row());
         }           } 
 # Done with the HTML header line  # Done with the HTML header line
   
     } elsif ($mode eq 'csv') {      } elsif ($mode eq 'csv') {
         #          #
         # Open a file          # Open a file
         $CSVfilename = '/prtspool/'.          $CSVfilename = '/prtspool/'.
             $env{'user.name'}.'_'.$env{'user.domain'}.'_'.                         $env{'user.name'}.'_'.$env{'user.domain'}.'_'.
             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("Problems occured in writing the csv file.  ".              $r->print("Problems occured in writing the csv file.  ".
Line 1289  END Line 1785  END
         }          }
         #          #
         # Write headers and data to file          # Write headers and data to file
         if($statusmode eq 'Expired') {          print $CSVfile '"'.$results_description.'"'."\n"; 
             print $CSVfile '"'.&mt('Users with expired roles').'"'."\n";        }  
         if($statusmode eq 'Future') {  
             print $CSVfile '"'.&mt('Users with future roles').'"'."\n";  
         }  
         print $CSVfile '"'.join('","',map {          print $CSVfile '"'.join('","',map {
             &Apache::loncommon::csv_translate($lt{$_})              &Apache::loncommon::csv_translate($lt{$_})
             } (@cols)).'"'."\n";              } (@cols)).'"'."\n";
Line 1303  END Line 1795  END
             &Apache::loncommon::create_workbook($r);              &Apache::loncommon::create_workbook($r);
         return if (! defined($excel_workbook));          return if (! defined($excel_workbook));
         $excel_sheet = $excel_workbook->addworksheet('userlist');          $excel_sheet = $excel_workbook->addworksheet('userlist');
         #          $excel_sheet->write($row++,0,$results_description,$format->{'h2'});
         my $description;  
         if ($context eq 'course') {  
             $description = &mt('Class List for ').  
                 $env{'course.'.$env{'request.course.id'}.'.description'};  
         } elsif ($context eq 'construction_space') {  
             $description = &mt('List of co-authors for construction space for [_1]',  
                            &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}));  
         } else {  
             $description = &mt('List of users for domain: [_1]',&Apache::lonnet::domain($env{'request.role.domain'},'description'));  
         }  
         $excel_sheet->write($row++,0,$description,$format->{'h1'});  
         #          #
         my @colnames = map {$lt{$_}} (@cols);          my @colnames = map {$lt{$_}} (@cols);
         $excel_sheet->write($row++,0,\@colnames,$format->{'bold'});          $excel_sheet->write($row++,0,\@colnames,$format->{'bold'});
Line 1322  END Line 1803  END
   
 # Done with header lines in all formats  # Done with header lines in all formats
   
     #  
     # Sort the users  
     my %index;      my %index;
     my $i;      my $i;
     foreach (@$keylist) {      foreach my $idx (@$keylist) {
         $index{$_} = $i++;          $index{$idx} = $i++;
     }      }
     $index{'groups'} = scalar(@$keylist);      # Get groups, role, permanent e-mail so we can sort on them if
       # necessary.
       foreach my $user (keys(%{$userlist})) {
           my ($uname,$udom,$role,$groups,$email);
           if ($context eq 'domain') {
               if ($env{'form.roletype'} eq 'domain') {
                   ($role,$uname,$udom) = split(/:/,$user);
                  
               } elsif ($env{'form.roletype'} eq 'construction_space') {
                   ($uname,$udom,$role) = split(/:/,$user,-1);
               } elsif ($env{'form.roletype'} eq 'course') {
                   ($uname,$udom,$role) = split(/:/,$user);
               }
           } else {
               ($uname,$udom,$role) = split(/:/,$user,-1);
               if (($context eq 'course') && $role eq '') {
                   $role = 'st';
               }
           }
           $userlist->{$user}->[$index{'role'}] = $role;
           if (($env{'form.showrole'} ne 'Any') && (!($env{'form.showrole'}  eq 'cr' && $role =~ /^cr\//)) && ($role ne $env{'form.showrole'})) {
               delete($userlist->{$user});
               next;
           }
           if (ref($classgroups) eq 'HASH') {
               $groups = $classgroups->{$user};
           }
           if (ref($groups->{active}) eq 'HASH') {
               $userlist->{$user}->[$index{'groups'}] = join(', ',keys(%{$groups->{'active'}}));
           }
           my %emails   = &Apache::loncommon::getemails($uname,$udom);
           if ($emails{'permanentemail'} =~ /\S/) {
               $userlist->{$user}->[$index{'email'}] = $emails{'permanentemail'};
           }
       }
   
       #
       # Sort the users
     my $index  = $index{$sortby};      my $index  = $index{$sortby};
     my $second = $index{'username'};      my $second = $index{'username'};
     my $third  = $index{'domain'};      my $third  = $index{'domain'};
     my @Sorted_Students = sort {      my @sorted_users = sort {
         lc($classlist->{$a}->[$index])  cmp lc($classlist->{$b}->[$index])          lc($userlist->{$a}->[$index])  cmp lc($userlist->{$b}->[$index])
             ||              ||
         lc($classlist->{$a}->[$second]) cmp lc($classlist->{$b}->[$second])            ||          lc($userlist->{$a}->[$second]) cmp lc($userlist->{$b}->[$second])            ||
         lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])          lc($userlist->{$a}->[$third]) cmp lc($userlist->{$b}->[$third])
         } (keys(%$classlist));          } (keys(%$userlist));
     my $studentcount = 0;      my $usercount = 0;
     my $autocount = 0;      my $autocount = 0;
     my $manualcount = 0;      my $manualcount = 0;
     my $unlockcount = 0;  
     my $lockcount = 0;      my $lockcount = 0;
     foreach my $student (@Sorted_Students) {      my $unlockcount = 0;
         my $sdata = $classlist->{$student};      foreach my $user (@sorted_users) {
         my $groups = $classgroups->{$student};          my $sdata = $userlist->{$user};
         my $username = $sdata->[$index{'username'}];          my %in;
         my $domain   = $sdata->[$index{'domain'}];          foreach my $item (@{$keylist}) {
         my $section  = $sdata->[$index{'section'}];              $in{$item} = $sdata->[$index{$item}];
         my $active_groups;          }
         if (ref($groups->{active}) eq 'HASH') {          next if (($statusmode ne 'Any') && ($in{'status'} ne $statusmode));
             $active_groups = join(', ',keys(%{$groups->{'active'}}));          $in{'role'}=&Apache::lonnet::plaintext($sdata->[$index{'role'}]); 
         }          if (! defined($in{'start'}) || $in{'start'} == 0) {
         my $name     = $sdata->[$index{'fullname'}];              $in{'start'} = &mt('none');
         my $id       = $sdata->[$index{'id'}];  
         my $status   = $sdata->[$index{'status'}];  
         next if (($statusmode ne 'Any') && ($status ne $statusmode));  
         my $start    = $sdata->[$index{'start'}];  
         my $end      = $sdata->[$index{'end'}];  
         if (! defined($start) || $start == 0) {  
             $start = &mt('none');  
         } else {          } else {
             $start = &Apache::lonlocal::locallocaltime($start);              $in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'});
         }          }
         if (! defined($end) || $end == 0) {          if (! defined($in{'end'}) || $in{'end'} == 0) {
             $end = &mt('none');              $in{'end'} = &mt('none');
         } else {          } else {
             $end = &Apache::lonlocal::locallocaltime($end);              $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
           }
           $usercount ++;
           if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {
               $r->print(&Apache::loncommon::start_data_table_row());
               $r->print("<td>$usercount</td>\n");
               if ($linkto eq 'aboutme') {
                   $in{'username'} = 
                       &Apache::loncommon::aboutmewrapper($in{'username'},
                                                          $in{'username'},
                                                          $in{'domain'});
               } elsif ($linkto eq 'modify') {
                   $in{'username'} = '<a href="'.
                             "javascript:document.studentform.sname.value='".
                              $in{'username'}.
                              "';document.studentform.sdom.value='".$in{'domain'}.
                              "';document.studentform.state.value='selected".
                              "';document.studentform.submit();".'">'.
                              $in{'username'}."</a>\n";
               }
               foreach my $item (@cols) {
                   $r->print('<td>'.$in{$item}.'</td>'."\n");
               }
               if ($context eq 'course') {
                   if ($displayclickers eq 'on') {
                       my $clickers =
                      (&Apache::lonnet::userenvironment($in{'domain'},$in{'username'},'clickers'))[1];
                       if ($clickers!~/\w/) { $clickers='-'; }
                       $r->print('<td>'.$clickers.'</td>');
                   } else {
                       $r->print('    <td>&nbsp;</td>  ');
                   }
                   if ($displayphotos eq 'on') {
                       if ($env{'course.'.$env{'request.course.id'}.
                           '.internal.showphoto'}) {
                           my $imgurl =
                  &Apache::lonnet::retrievestudentphoto($in{'domain'},$in{'username'},'gif','thumbnail');
                           $r->print('    <td align="right"><a href="javascript:photowindow('."'".&Apache::lonnet::studentphoto($in{'domain'},$in{'username'},'jpg')."'".')"><img src="'.$imgurl.'" border="1"></a></td>');
                       } else {
                           $r->print('    <td>&nbsp;</td>  ');
                       }
                   }
               }
               $r->print(&Apache::loncommon::end_data_table_row());
           } elsif ($mode eq 'csv') {
               next if (! defined($CSVfile));
               # no need to bother with $linkto
               if (! defined($in{'start'}) || $in{'start'} == 0) {
                   $in{'start'} = &mt('none');
               } else {
                   $in{'start'} = &Apache::lonlocal::locallocaltime($in{'start'});
               }
               if (! defined($in{'end'}) || $in{'end'} == 0) {
                   $in{'end'} = &mt('none');
               } else {
                   $in{'end'} = &Apache::lonlocal::locallocaltime($in{'end'});
               }
               my @line = ();
               foreach my $item (@cols) {
                   push @line,&Apache::loncommon::csv_translate($in{$item});
               }
               print $CSVfile '"'.join('","',@line).'"'."\n";
           } elsif ($mode eq 'excel') {
               my $col = 0;
               foreach my $item (@cols) {
                   if ($item eq 'start' || $item eq 'end') {
                       if (defined($item) && $item != 0) {
                           $excel_sheet->write($row,$col++,
                               &Apache::lonstathelpers::calc_serial($in{item}),
                                       $format->{'date'});
                       } else {
                           $excel_sheet->write($row,$col++,'none');
                       }
                   } else {
                       $excel_sheet->write($row,$col++,$in{$item});
                   }
               }
               $row++;
         }          }
         my $status   = $sdata->[$index{'status'}];  
         next if ($status ne 'Active');  
         #  
         $r->print(&Apache::loncommon::start_data_table_row());  
         $r->print(<<"END");  
     <td><input type="checkbox" name="droplist" value="$student"></td>  
     <td>$username</td>  
     <td>$domain</td>  
     <td>$id</td>  
     <td>$name</td>  
     <td>$start</td>  
     <td>$end</td>  
 END  
         $r->print(&Apache::loncommon::end_data_table_row());  
     }      }
     $r->print(&Apache::loncommon::end_data_table().'<br />');      if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {
     %lt=&Apache::lonlocal::texthash(              $r->print(&Apache::loncommon::end_data_table().'<br />');
                        'dp'   => "Expire User Roles",      } elsif ($mode eq 'excel') {
                        'ca'   => "check all",          $excel_workbook->close();
                        'ua'   => "uncheck all",          $r->print('<p><a href="'.$excel_filename.'">'.
                                        );                    &mt('Your Excel spreadsheet').'</a> '.&mt('is ready for download').'.</p>'."\n");
     $r->print(<<"END");      } elsif ($mode eq 'csv') {
 </p><p>          close($CSVfile);
 <input type="button" value="$lt{'ca'}" onclick="javascript:checkAll(document.studentform.droplist)"> &nbsp;          $r->print('<a href="'.$CSVfilename.'">'.
 <input type="button" value="$lt{'ua'}" onclick="javascript:uncheckAll(document.studentform.droplist)">                    &mt('Your CSV file').'</a> is ready for download.'.
 <p><input type=submit value="$lt{'dp'}"></p>                    "\n");
 END          $r->rflush();
       }
       if ($mode eq 'autoenroll') {
           return ($usercount,$autocount,$manualcount,$lockcount,$unlockcount);
       }
     return;      return;
 }  }
   
   sub role_type_names {
       my %lt = &Apache::lonlocal::texthash (
                            'domain'             => 'Domain Roles',
                            'construction_space' => 'Co-Author Roles',
                            'course'             => 'Course Roles',
                );
       return %lt;
   }
   
   sub results_header_row {
       my ($rolefilter,$statusmode,$context) = @_;
       my $description;
       if ($context eq 'course') {
           $description = &mt('Course - ').$env{'course.'.env{'request.course.id'}.'.description'}.': ';
           if ($statusmode eq 'Expired') {
               $description .= &mt('Users in course with expired [_1] roles',$rolefilter);
           }
           if ($statusmode eq 'Future') {
               $description .= &mt('Users in course with future [_1] roles',$rolefilter);
           } elsif ($statusmode eq 'Active') {
               $description .= &mt('Users in course with active [_1] roles',$rolefilter);
           } else {
               if ($rolefilter eq 'Any') {
                   $description .= &mt('All users in course');
               } else {
                   $description .= &mt('All users in course with [_1] roles',$rolefilter);
               }
           }
       } elsif ($context eq 'construction_space') {
           $description = &mt('Author space for [_1].').' ';
           if ($statusmode eq 'Expired') {
               $description .= &mt('Co-authors with expired [_1] roles',$rolefilter);
           } elsif ($statusmode eq 'Future') {
               $description .= &mt('Co-authors with future [_1] roles',$rolefilter);
           } elsif ($statusmode eq 'Active') {
               $description .= &mt('Co-authors with active [_1] roles',$rolefilter);
           } else {
               if ($rolefilter eq 'Any') {
                   $description .= &mt('All co-authors',$rolefilter);
               } else {
                   $description .= &mt('All co-authors with [_1] roles',$rolefilter);
               }
           }
       } elsif ($context eq 'domain') {
           my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');
           $description = &mt('Domain - ').$domdesc.': ';
           if ($env{'form.roletype'} eq 'domain') {
               if ($statusmode eq 'Expired') {
                   $description .= &mt('Users in domain with expired [_1] roles',$rolefilter);
               } elsif ($statusmode eq 'Future') {
                   $description .= &mt('Users in domain with future [_1] roles',$rolefilter);
               } elsif ($statusmode eq 'Active') {
                   $description .= &mt('Users in domain with active [_1] roles',$rolefilter);
               } else {
                   if ($rolefilter eq 'Any') {
                       $description .= &mt('All users in domain',$rolefilter);
                   } else {
                       $description .= &mt('All users in domain with [_1] roles',$rolefilter);
                   }
               }
           } elsif ($env{'form.roletype'} eq 'construction_space') {
               if ($statusmode eq 'Expired') {
                   $description .= &mt('Co-authors in domain with expired [_1] roles',$rolefilter);
               } elsif ($statusmode eq 'Future') {
                   $description .= &mt('Co-authors in domain with future [_1] roles',$rolefilter);
               } elsif ($statusmode eq 'Active') {
                  $description .= &mt('Co-authors in domain with active [_1] roles',$rolefilter);
               } else {
                   if ($rolefilter eq 'Any') {
                       $description .= &mt('All users with co-author roles in domain',$rolefilter);
                   } else {
                       $description .= &mt('All co-authors in domain  with [_1] roles',$rolefilter);
                   }
               }
           } elsif ($env{'form.roletype'} eq 'course') {
               my $coursefilter = $env{'form.coursepick'};
               if ($coursefilter eq 'category') {
                   my $instcode = &instcode_from_coursefilter();
                   if ($instcode eq '.') {
                       $description .= &mt('All courses in domain').' - ';
                   } else {
                       $description .= &mt('Courses in domain with institutional code: [_1]',$instcode).' - ';
                   }
               } elsif ($coursefilter eq 'selected') {
                   $description .= &mt('Selected courses in domain').' - ';
               } elsif ($coursefilter eq 'all') {
                   $description .= &mt('All courses in domain').' - ';
               }
               if ($statusmode eq 'Expired') {
                   $description .= &mt('users with expired [_1] roles',$rolefilter);
               } elsif ($statusmode eq 'Future') {
                   $description .= &mt('users with future [_1] roles',$rolefilter);
               } elsif ($statusmode eq 'Active') {
                   $description .= &mt('users with active [_1] roles',$rolefilter);
               } else {
                   if ($rolefilter eq 'Any') {
                       $description .= &mt('all users');
                   } else {
                       $description .= &mt('users with [_1] roles',$rolefilter);
                   }
               }
           }
       }
       return $description;
   }
       
 #################################################  #################################################
 #################################################  #################################################
 sub show_drop_list {  sub show_drop_list {
Line 1561  END Line 2242  END
     return;      return;
 }  }
   
   
   
 #  #
 # Print out the initial form to get the file containing a list of users  # Print out the initial form to get the file containing a list of users
 #  #
Line 1572  sub print_first_users_upload_form { Line 2251  sub print_first_users_upload_form {
     $str  = '<input type="hidden" name="phase" value="two">';      $str  = '<input type="hidden" name="phase" value="two">';
     $str .= '<input type="hidden" name="action" value="upload" />';      $str .= '<input type="hidden" name="action" value="upload" />';
     $str .= '<input type="hidden"   name="state"  value="got_file" />';      $str .= '<input type="hidden"   name="state"  value="got_file" />';
     $str .= "<h3>".&mt('Upload a list of users')."</h3>\n";      $str .= "<h3>".&mt('Upload a file containing information about users')."</h3>\n";
     $str .= &Apache::loncommon::upfile_select_html();      $str .= &Apache::loncommon::upfile_select_html();
     $str .= "<p>\n";      $str .= "<p>\n";
     $str .= '<input type="submit" name="fileupload" value="'.      $str .= '<input type="submit" name="fileupload" value="'.
         &mt('Upload users list').'">'."\n";          &mt('Upload file of users').'">'."\n";
     $str .= '<label><input type="checkbox" name="noFirstLine" /> '.      $str .= '<label><input type="checkbox" name="noFirstLine" /> '.
         &mt('Ignore First Line')."</label></p>\n";          &mt('Ignore First Line')."</label></p>\n";
     $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",      $str .= &Apache::loncommon::help_open_topic("Course_Create_Class_List",
Line 1805  sub upfile_drop_add { Line 2484  sub upfile_drop_add {
                     my $role = '';                      my $role = '';
                     if (defined($fields{'role'})) {                      if (defined($fields{'role'})) {
                         if ($entries{$fields{'role'}}) {                          if ($entries{$fields{'role'}}) {
                              my @poss_roles =                               my @poss_roles = 
                                  &curr_role_permissions($context,$setting);                                   &curr_role_permissions($context,$setting);
                              if (grep(/^\Q$entries{$fields{'role'}}\E/,@poss_roles)) {                              if (grep(/^\Q$entries{$fields{'role'}}\E/,@poss_roles)) {
                                 $role=$entries{$fields{'role'}};                                  $role=$entries{$fields{'role'}};
                             } else {                              } else {
                                 my $rolestr = join(', ',@poss_roles);                                  my $rolestr = join(', ',@poss_roles);
Removed from v.1.1  
changed lines
  Added in v.1.2

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