--- loncom/interface/lonpickstudent.pm 2002/12/26 15:15:34 1.1 +++ loncom/interface/lonpickstudent.pm 2006/06/02 13:58:31 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.1 2002/12/26 15:15:34 www Exp $ +# $Id: lonpickstudent.pm,v 1.19 2006/06/02 13:58:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,52 +33,162 @@ use Apache::Constants qw(:common); use Apache::loncommon; use Apache::loncoursedata; use Apache::lonnet; +use Apache::lonlocal; +use Apache::longroup; sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - $r->print(< - -The LearningOnline Network with CAPA - -ENDDOCUMENT - -# Is this even in a course? - unless ($ENV{'request.course.id'}) { - $r->print('Not in a course'); + $r->print(&Apache::loncommon::start_page("Selecting a User",undef, + {'no_nav_bar' => 1})); + + + &Apache::loncommon::get_unprocessed_cgi + ($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement', + 'roles']); +# Allowed? + my $allowed; + my $scope = $env{'request.course.id'}; + if (!($allowed = &Apache::lonnet::allowed('srm',$scope))) { + $scope .= '/'.$env{'request.course.sec'}; + $allowed = &Apache::lonnet::allowed('srm',$scope); + if ($allowed) { $allowed = 'section'; } + } + + unless (($env{'form.roles'}) || + (($env{'request.course.id'}) && ($allowed))) { + $r->print(&mt('No context.'). + &Apache::loncommon::end_page()); return OK; } - &Apache::loncommon::get_unprocessed_cgi - ($ENV{'QUERY_STRING'},['filter']); +# See if filter present + + my $filter=$env{'form.filter'}; + $filter=~s/\W//g; + unless ($filter) { $filter='.'; } + + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + my $classlist=&Apache::loncoursedata::get_classlist(); + my %grouplist=&Apache::lonnet::get_group_membership($cdom,$cnum); + my $now = time; + my %allgroups = &Apache::longroup::coursegroups($cdom,$cnum); - my $classlist=&Apache::loncoursedata::DownloadClasslist - ($ENV{'request.course.id'}, - 'Not downloaded',$r->connection); - # --------------------------------------- There is such a user, get environment - $r->print(&Apache::loncommon::bodytag("Selecting a User")); - - my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); - + $r->print(< +function gochoose(uname,udom) { + opener.document.$env{'form.form'}.$env{'form.unameelement'}.value=uname; + var slct=opener.document.$env{'form.form'}.$env{'form.udomelement'}; + var i; + for (i=0;i +ENDSCRIPT + + $r->print('
'); + if ($allowed && (!$env{'form.roles'})) { +# -------------------------------------------------------- Get course personnel + $r->print('

'.$env{'course.'.$env{'request.course.id'}.'.description'}. + '

'); + my %coursepersonnel= + &Apache::lonnet::get_course_adv_roles(); + $r->print(''); + foreach my $role (sort keys %coursepersonnel) { + foreach (split(/\,/,$coursepersonnel{$role})) { + my ($puname,$pudom)=split(/\:/,$_); + $role = &Apache::lonnet::plaintext($role, + &Apache::loncommon::course_type()); + $r->print(''); + } + } + $r->print('
'. + ''.$role.''. + &Apache::loncommon::aboutmewrapper( + &Apache::loncommon::plainname($puname, + $pudom),$puname,$pudom).'

 '); + if ($filter ne '.') { + $r->print('
'.&mt('Name starting with').' "'.$filter.'"
'); + } + $r->print('

'); + # ------------------------------------------------------------------ Students foreach (sort keys %$classlist) { - if ($_=~/^(\w+)\:(\w+)\:studentInformation$/) { + # the following undefs are for 'domain', and 'username' respectively. + my (undef,undef,$end,$start,$id,$section,$fullname,$status)= + @{$classlist->{$_}}; + if ($allowed eq 'section' && $section ne $env{'request.course.sec'}) { + next; + } + if ($_=~/^(\w+)\:(\w+)$/) { my ($uname,$udom)=($1,$2); - $r->print($classlist->{$_}->{'lastname'}.', '. - $classlist->{$_}->{'firstname'}.' '. - $classlist->{$_}->{'middlename'}.' '. - $classlist->{$_}->{'generation'}.'
'); + if (($uname=~/^$filter/) || + ($fullname=~/^$filter/i)) { + my $grouplist = ''; + foreach my $group (sort(keys(%allgroups))) { + if (exists($grouplist{$group.':'.$uname.':'.$udom})) { + my ($end,$start) = split(/:/,$grouplist{$group.':'.$uname.':'.$udom}); + if (($end!=0) && ($end<$now)) { next; } + if (($start!=0) && ($start>$now)) {next; } + $grouplist .= " $group,"; + } + } + $grouplist =~ s/,$//; + $r->print(''. + ''); + } } } - $r->print(''); - return OK; + $r->print('
 usernamedomainNameIDsectionactive group(s)
'. + ''.$uname.' '.$udom. + ''. + &Apache::loncommon::aboutmewrapper( + $fullname, + $uname,$udom).''.$id.''.$section. + ''.$grouplist.'

'); + } else { + $r->print('

'.&mt('Users with Roles Assigned by').' '. + &Apache::loncommon::plainname($env{'user.name'}, + $env{'user.domain'}).'

'); + if ($filter ne '.') { + $r->print('
'.&mt('Name starting with').' "'.$filter.'"
'); + } + $r->print('

'); + my %users=&Apache::lonnet::get_my_roles(); + foreach (sort keys %users) { + if ($_=~/^(\w+)\:(\w+)\:(\w+)$/) { + my ($uname,$udom,$urole)=($1,$2,$3); + my $fullname=&Apache::loncommon::plainname($uname,$udom); + if (($uname=~/^$filter/) || + ($fullname=~/^$filter/i)) { + $r->print(''. + ''); + } + } + } + $r->print('
'. + ''.$uname.''.$udom. + ''. + &Apache::loncommon::aboutmewrapper( + $fullname, + $uname,$udom).''. + &Apache::lonnet::plaintext($urole). + '

'); + } + $r->print('
'.&Apache::loncommon::end_page()); + return OK; } 1;