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

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

version 1.2, 2007/11/06 04:39:19 version 1.3, 2007/11/06 18:23:14
Line 1130  sub print_userlist { Line 1130  sub print_userlist {
     }      }
     my ($indexhash,$keylist) = &make_keylist_array();      my ($indexhash,$keylist) = &make_keylist_array();
     my (%userlist,%userinfo);      my (%userlist,%userinfo);
       if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
           my $courseform =
               &Apache::lonhtmlcommon::course_selection($formname,$totcodes,
                                            $codetitles,$idlist,$idlist_titles);
           $r->print('<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>'.
                     '<p>'.&list_submit_button(&mt('Update Display')).
                     "\n</p>\n");
       }
       $r->print('<hr />'.&mt('Searching').' ...<br />&nbsp;<br />');
       $r->rflush();
     if ($context eq 'course') {      if ($context eq 'course') {
         #          my $classlist = &Apache::loncoursedata::get_classlist();
         # Print the userlist          my $secidx = &Apache::loncoursedata::CL_SECTION();
         $r->print('<h2>'.&mt('Current User List').'</h2>');          foreach my $student (keys(%{$classlist})) {
         (my $classlist,$keylist)=&Apache::loncoursedata::get_classlist();              if (exists($permission->{'view_section'})) {
                   if ($classlist->{$student}[$secidx] ne $permission->{'view_section'}) {
         if (exists($permission->{'view_section'})) {                      next;
             my $sec = &Apache::loncoursedata::CL_SECTION();                  } else {
             foreach my $student (keys(%{$classlist})) {                      $userlist{$student} = $classlist->{$student};
                 if ($userlist{$student}[$sec] ne $permission->{'view_section'}) {  
                     delete($userlist{$student});  
                 }                  }
               } else {
                   $userlist{$student} = $classlist->{$student};
             }              }
         }          }
         foreach my $item (keys(%{$classlist})) {  
             $userlist{$item} = $classlist->{$item};  
         }  
         my $cid =$env{'request.course.id'};          my $cid =$env{'request.course.id'};
         my $cdom=$env{'course.'.$cid.'.domain'};          my $cdom=$env{'course.'.$cid.'.domain'};
         my $cnum=$env{'course.'.$cid.'.num'};          my $cnum=$env{'course.'.$cid.'.num'};
Line 1206  sub print_userlist { Line 1219  sub print_userlist {
                     }                      }
                 }                  }
             } elsif ($env{'form.roletype'} eq 'course') {              } 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'}) {                  if ($env{'form.coursepick'}) {
                     my %courses = &process_coursepick();                      my %courses = &process_coursepick();
                     my %allusers;                       my %allusers; 
Line 1264  sub print_userlist { Line 1264  sub print_userlist {
                 }                  }
             }              }
         }          }
         if (keys(%userlist) == 0) {      }
             if ($context eq 'construction_space') {      if (keys(%userlist) == 0) {
                 $r->print(&mt('There are no co-authors to display.')."\n");          if ($context eq 'construction_space') {
             } elsif ($context eq 'domain') {              $r->print(&mt('There are no co-authors to display.')."\n");
                 if ($env{'form.roletype'} eq 'domain') {          } elsif ($context eq 'domain') {
                     $r->print(&mt('There are no users with domain roles to display.')."\n");              if ($env{'form.roletype'} eq 'domain') {
                 } elsif ($env{'form.roletype'} eq 'construction_space') {                  $r->print(&mt('There are no users with domain roles to display.')."\n");
                     $r->print(&mt('There are no authors or co-authors to display.')."\n");              } elsif ($env{'form.roletype'} eq 'construction_space') {
                 } elsif ($env{'form.roletype'} eq 'course') {                  $r->print(&mt('There are no authors or co-authors to display.')."\n");
                     $r->print(&mt('There are no course users to display')."\n");               } elsif ($env{'form.roletype'} eq 'course') {
                 }                  $r->print(&mt('There are no course users to display')."\n"); 
             } elsif ($context eq 'course') {  
                 $r->print(&mt('There are no course users to display.')."\n");  
             }              }
           } elsif ($context eq 'course') {
               $r->print(&mt('There are no course users to display.')."\n");
           }
       } else {
           # Print out the available choices
           if ($env{'form.action'} eq 'modifystudent') {
               &show_users_list($r,$context,'view','modify',
                                $env{'form.Status'},\%userlist,$keylist);
         } else {          } else {
             # Print out the available choices              &show_users_list($r,$context,$env{'form.output'},'aboutme',
             if ($env{'form.action'} eq 'modifystudent') {                               $env{'form.Status'},\%userlist,$keylist);
                 &show_users_list($r,$context,'view','modify',  
                                  $env{'form.Status'},\%userlist,$keylist);  
             } else {  
                 &show_users_list($r,$context,$env{'form.output'},'aboutme',  
                                  $env{'form.Status'},\%userlist,$keylist);  
             }  
         }          }
     }      }
     $r->print('</form>');      $r->print('</form>');
Line 1603  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'};
       my @sortable = ('username','domain','id','fullname','start','end','email','role');
     if ($context eq 'course') {      if ($context eq 'course') {
         if ($sortby !~ /^(username|domain|section|groups|fullname|id|start|end|type)$/) {          push(@sortable,('section','groups','type'));
             $sortby = 'username';  
         }  
     } else {      } else {
         if ($sortby !~ /^(username|domain|id|fullname|start|end|role|email|extent)$/) {          push(@sortable,'extent');
             $sortby = 'username';      }
         }      if (!grep(/^\Q$sortby\E$/,@sortable)) {
           $sortby = 'username';
     }      }
     my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers);      my ($cid,$cdom,$cnum,$classgroups,$displayphotos,$displayclickers);
     if ($context eq 'course') {      if ($context eq 'course') {
Line 1683  END Line 1683  END
     if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) {       if (!($context eq 'domain' && $env{'form.roletype'} eq 'course')) { 
         push(@cols,('start','end'));          push(@cols,('start','end'));
     }      }
     if ($env{'form.showrole'} eq 'Any') {      if ($env{'form.showrole'} eq 'Any' || $env{'form.showrole'} eq 'cr') {
         push(@cols,'role');          push(@cols,'role');
     }      }
     if ($context eq 'domain' && ($env{'form.roletype'} eq 'construction_space' ||      if ($context eq 'domain' && ($env{'form.roletype'} eq 'construction_space' ||
Line 1705  END Line 1705  END
     }      }
     my $results_description = &results_header_row($rolefilter,$statusmode,      my $results_description = &results_header_row($rolefilter,$statusmode,
                                                   $context);                                                    $context);
       $r->print('<b>'.$results_description.'</b><br />');
     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 1988  sub results_header_row { Line 1985  sub results_header_row {
     my ($rolefilter,$statusmode,$context) = @_;      my ($rolefilter,$statusmode,$context) = @_;
     my $description;      my $description;
     if ($context eq 'course') {      if ($context eq 'course') {
         $description = &mt('Course - ').$env{'course.'.env{'request.course.id'}.'.description'}.': ';          $description = &mt('Course - ').$env{'course.'.$env{'request.course.id'}.'.description'}.': ';
         if ($statusmode eq 'Expired') {          if ($statusmode eq 'Expired') {
             $description .= &mt('Users in course with expired [_1] roles',$rolefilter);              $description .= &mt('Users in course with expired [_1] roles',$rolefilter);
         }          }
Removed from v.1.2  
changed lines
  Added in v.1.3

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