--- loncom/interface/lonpickstudent.pm 2006/01/09 20:38:52 1.10 +++ loncom/interface/lonpickstudent.pm 2006/05/30 20:16:59 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.10 2006/01/09 20:38:52 albertel Exp $ +# $Id: lonpickstudent.pm,v 1.18 2006/05/30 20:16:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,7 @@ use Apache::loncommon; use Apache::loncoursedata; use Apache::lonnet; use Apache::lonlocal; +use Apache::longroup; sub handler { my $r = shift; @@ -42,15 +43,8 @@ sub handler { return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - my $html=&Apache::lonxml::xmlbegin(); - $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 @@ -67,7 +61,8 @@ ENDDOCUMENT unless (($env{'form.roles'}) || (($env{'request.course.id'}) && ($allowed))) { - $r->print('No context.'); + $r->print(&mt('No context.'). + &Apache::loncommon::end_page()); return OK; } @@ -77,11 +72,15 @@ ENDDOCUMENT $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); + # --------------------------------------- There is such a user, get environment - $r->print(&Apache::loncommon::bodytag("Selecting a User")); $r->print(< function gochoose(uname,udom) { @@ -107,6 +106,9 @@ ENDSCRIPT foreach my $role (sort keys %coursepersonnel) { foreach (split(/\,/,$coursepersonnel{$role})) { my ($puname,$pudom)=split(/\:/,$_); + if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Group') { + $role = &Apache::loncommon::convert_role($role,'Group'); + } $r->print(''. ''.$role.''. @@ -119,7 +121,7 @@ ENDSCRIPT if ($filter ne '.') { $r->print('
'.&mt('Name starting with').' "'.$filter.'"
'); } - $r->print('

'); + $r->print('

'); # ------------------------------------------------------------------ Students foreach (sort keys %$classlist) { # the following undefs are for 'domain', and 'username' respectively. @@ -132,6 +134,16 @@ ENDSCRIPT 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/,$//; $r->print(''. @@ -140,7 +152,7 @@ ENDSCRIPT &Apache::loncommon::aboutmewrapper( $fullname, $uname,$udom).''); + ''); } } } @@ -176,7 +188,7 @@ ENDSCRIPT } $r->print('
 usernamedomainNameIDsectionactive group(s)
'. ''.$id.''.$section. - '
'.$grouplist.'

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