--- loncom/interface/lonpickstudent.pm 2003/08/13 20:40:31 1.6 +++ loncom/interface/lonpickstudent.pm 2011/01/23 01:04:26 1.29 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.6 2003/08/13 20:40:31 www Exp $ +# $Id: lonpickstudent.pm,v 1.29 2011/01/23 01:04:26 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,52 +33,72 @@ use Apache::Constants qw(:common); use Apache::loncommon; use Apache::loncoursedata; use Apache::lonnet; +use Apache::lonlocal; +use Apache::longroup; +use LONCAPA; 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 - - + $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']); + 'roles','courseadvonly','clicker']); # 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'}) && - (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})))) { - $r->print('No context.'); + unless (($env{'form.roles'}) || + (($env{'request.course.id'}) && ($allowed))) { + $r->print(&mt('No context.'). + &Apache::loncommon::end_page()); return OK; } # See if filter present + my $filter=$env{'form.filter'}; + my $filtermsg; + my $encoded_filter = &HTML::Entities::encode($filter,'<>&"'); + $filter = quotemeta($filter); + my $change = &mt('Change'); + my $filterbutton =< + +FILTER + foreach my $name ('form','unameelement','udomelement','roles') { + my $value = &HTML::Entities::encode($env{"form.$name"},'<>&"'); + $filterbutton .= < +HIDDEN + } + unless ($env{'form.courseadvonly'}) { + $filtermsg = '
'. + &mt('Showing users with a name starting with [_1]', + $filterbutton).'
'; + } + if ($filter eq '') { + $filter = '.' + } - my $filter=$ENV{'form.filter'}; - $filter=~s/\W//g; - unless ($filter) { $filter='.'; } - - my $classlist=&Apache::loncoursedata::get_classlist(); - # --------------------------------------- There is such a user, get environment - $r->print(&Apache::loncommon::bodytag("Selecting a User")); $r->print(< + ENDSCRIPT - - $r->print('
'); - if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) && - (!$ENV{'form.roles'})) { + + $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(/\:/,$_); - $r->print(''); + $r->print('

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

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

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

'); - # ------------------------------------------------------------------ Students - foreach (sort keys %$classlist) { - # the following undefs are for 'domain', and 'username' respectively. - my (undef,undef,$end,$start,$id,$section,$fullname,$status)= - @{$classlist->{$_}}; - if ($_=~/^(\w+)\:(\w+)$/) { - my ($uname,$udom)=($1,$2); - if (($uname=~/^$filter/) || - ($fullname=~/^$filter/i)) { - $r->print(''. - ''); - } - } - } + $r->print(&Apache::loncommon::end_data_table().'

 '); + + $r->print($filtermsg); + + $r->print('

'); + + unless ($env{'form.courseadvonly'}) { - $r->print('
'. - ''.$uname.' '.$udom. - ''. - &Apache::loncommon::aboutmewrapper( - $fullname, - $uname,$udom).''.$id.''.$section. - '

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

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

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

'); - my %users=&Apache::lonnet::get_my_roles(); - foreach (sort keys %users) { - if ($_=~/^(\w+)\:(\w+)\:(\w+)$/) { +# ------------------------------------------------------------------ Students + +# Do we have a clicker? + + my $clicker=$env{'form.clicker'}; + my @fragments=(); + if ($clicker) { + $r->print('

'.&mt('Clicker: [_1]',$clicker).'

'); + my $clicklength=length($clicker); + my $maxlength=$clicklength-1; + if ($maxlength>2) { + my $minlength=$maxlength-2; + if ($minlength<2) { $minlength=2; } + for (my $length=$maxlength;$length>=$minlength;$length--) { + for (my $startidx=0; $startidx<=$clicklength-$length; $startidx++) { + push(@fragments,substr($clicker,$startidx,$length)); + } + } + } + } + + my $result; + 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); + + foreach my $user (sort(keys(%$classlist))) { + # the following undefs are for 'domain', and 'username' respectively. + my (undef,undef,$end,$start,$id,$section,$fullname,$status)= + @{$classlist->{$user}}; + if ($allowed eq 'section' && $section ne $env{'request.course.sec'}) { + next; + } + if ($user=~/^($LONCAPA::username_re)\:($LONCAPA::domain_re)$/) { + my ($uname,$udom)=($1,$2); + 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/,$//; + my $markedupclicker; + if ($clicker) { + $markedupclicker=(&Apache::lonnet::userenvironment($udom,$uname,'clickers'))[1]; + if ($markedupclicker!~/\w/) { + $markedupclicker='-'; + } else { + foreach my $frag (@fragments) { + if ($markedupclicker=~/\Q$frag\E/is) { + $markedupclicker=~s/(\Q$frag\E)/$1<\/b><\/font>/gis; + last; + } + } + } + } + $result .=&Apache::loncommon::start_data_table_row(). + ''. + ''. + ($clicker?'':''). + &Apache::loncommon::end_data_table_row(); + } + } + } + if (!$result) { + $r->print('

'.&mt('No students found.').'

'); + } else { + $r->print(&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row(). + &Apache::loncommon::end_data_table_header_row(). + ''. + ''. + ''. + ''. + ''. + ''. + ''. + ($clicker?'':''). + &Apache::loncommon::end_data_table_header_row(). + $result. + &Apache::loncommon::end_data_table()); + } + } + } else { + $r->print('

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

'); + $r->print($filtermsg); + + $r->print('

'.&Apache::loncommon::start_data_table()); + my %user_role=&Apache::lonnet::get_my_roles(); + my %users; + foreach my $user_role (keys(%user_role)) { + next if ($user_role !~ + /^($LONCAPA::username_re):($LONCAPA::domain_re):(\w+)$/); my ($uname,$udom,$urole)=($1,$2,$3); my $fullname=&Apache::loncommon::plainname($uname,$udom); - if (($uname=~/^$filter/) || - ($fullname=~/^$filter/i)) { - $r->print('

'. - ''); - } - } + next if (($uname!~/^$filter/i) && ($fullname !~/^$filter/i)); + + if (!exists($users{"$uname:$udom"})) { + $users{"$uname:$udom"} = {'fullname' => $fullname }; + } + push(@{$users{"$uname:$udom"}{'roles'}},$urole); + } + foreach my $user (sort {lc($a) cmp lc($b)} (keys(%users))) { + my ($uname,$udom) = split(':',$user); + $r->print(&Apache::loncommon::start_data_table_row(). + ''. + ''. + ''. + ''. + &Apache::loncommon::end_data_table_row()); + } + $r->print(&Apache::loncommon::end_data_table().'

'); } - $r->print('
'. + ''.$uname.' '.$udom. + ''. + &Apache::loncommon::aboutmewrapper($fullname, + $uname,$udom). + ''.$id.''.$section. + ''.$grouplist.''.$markedupclicker.' '.&mt('username').''.&mt('domain').''.&mt('Name').''.&mt('ID').''.&mt('section').''.&mt('active group(s)').''.&mt('clicker').'
'. - ''.$uname.''.$udom. - ''. - &Apache::loncommon::aboutmewrapper( - $fullname, - $uname,$udom).''. - &Apache::lonnet::plaintext($urole). - '
'. + ''.$uname.''.$udom.''. + &Apache::loncommon::aboutmewrapper($users{$user}{'fullname'}, + $uname,$udom).''. + join(', ',sort(map {&Apache::lonnet::plaintext($_)} + (@{$users{$user}{'roles'}}))). + '

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