--- loncom/interface/lonpickstudent.pm 2020/02/12 16:25:47 1.33
+++ loncom/interface/lonpickstudent.pm 2023/09/28 15:56:48 1.34
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a student from the classlist
#
-# $Id: lonpickstudent.pm,v 1.33 2020/02/12 16:25:47 raeburn Exp $
+# $Id: lonpickstudent.pm,v 1.34 2023/09/28 15:56:48 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,7 +50,7 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement',
- 'roles','courseadv','clicker']);
+ 'roles','courseadv','clicker','identelement']);
# Allowed?
my $allowed;
if ($env{'request.course.id'}) {
@@ -79,7 +79,7 @@ sub handler {
FILTER
- foreach my $name ('form','unameelement','udomelement','roles','courseadv','clicker') {
+ foreach my $name ('form','unameelement','udomelement','roles','courseadv','clicker','identelement') {
my $value = &HTML::Entities::encode($env{"form.$name"},'<>&"');
$filterbutton .= <
@@ -106,11 +106,38 @@ HIDDEN
$r->print(<
function gochoose(uname,udom) {
- opener.document.$env{'form.form'}.elements['$env{'form.unameelement'}'].value=uname;
- var slct=opener.document.$env{'form.form'}.elements['$env{'form.udomelement'}'];
- var i;
- for (i=0;i 0) {
+ var j;
+ for (j=0; j