--- loncom/interface/lonpickstudent.pm 2006/03/15 22:11:04 1.11
+++ loncom/interface/lonpickstudent.pm 2006/05/09 14:38:10 1.16
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a student from the classlist
#
-# $Id: lonpickstudent.pm,v 1.11 2006/03/15 22:11:04 albertel Exp $
+# $Id: lonpickstudent.pm,v 1.16 2006/05/09 14:38:10 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -42,7 +42,8 @@ sub handler {
return OK if $r->header_only;
# ------------------------------------------------------------ Print the screen
- $r->print(&Apache::loncommon::start_page("Selecting a User"));
+ $r->print(&Apache::loncommon::start_page("Selecting a User",undef,
+ {'no_nav_bar' => 1}));
&Apache::loncommon::get_unprocessed_cgi
@@ -70,8 +71,13 @@ sub handler {
$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::loncommon::coursegroups($cdom,$cnum);
+
# --------------------------------------- There is such a user, get environment
$r->print(<
'.&mt('Name starting with').' "'.$filter.'"
');
}
- $r->print('
username | domain | Name | ID | section | active group(s) | |
---|---|---|---|---|---|---|
'. ' | '. @@ -132,7 +148,7 @@ ENDSCRIPT &Apache::loncommon::aboutmewrapper( $fullname, $uname,$udom).''.$id.' | '.$section. - ' | '.$grouplist.' | '); } } }