--- loncom/interface/lonpickstudent.pm 2006/05/18 01:08:50 1.17
+++ loncom/interface/lonpickstudent.pm 2007/08/10 23:20:09 1.23
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a student from the classlist
#
-# $Id: lonpickstudent.pm,v 1.17 2006/05/18 01:08:50 raeburn Exp $
+# $Id: lonpickstudent.pm,v 1.23 2007/08/10 23:20:09 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -35,6 +35,7 @@ use Apache::loncoursedata;
use Apache::lonnet;
use Apache::lonlocal;
use Apache::longroup;
+use LONCAPA;
sub handler {
my $r = shift;
@@ -67,10 +68,27 @@ sub handler {
}
# See if filter present
-
my $filter=$env{'form.filter'};
- $filter=~s/\W//g;
- unless ($filter) { $filter='.'; }
+ my $filtermsg;
+ my $encoded_filter = &HTML::Entities::encode($filter,'<>&"');
+ $filter = quotemeta($filter);
+ my $change = &mt('Change');
+ my $filterbutton =<
'.
+ &mt('Showing users with a name starting with [_1]',
+ $filterbutton).'
';
+ if ($filter eq '') {
+ $filter = '.'
+ }
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
@@ -82,7 +100,7 @@ sub handler {
# --------------------------------------- There is such a user, get environment
$r->print(<
'. - ' | '. - ''.$uname.' | '.$udom. - ' | '. - &Apache::loncommon::aboutmewrapper( - $fullname, - $uname,$udom).' | '. - &Apache::lonnet::plaintext($urole). - ' |