version 1.1, 2002/12/26 15:15:34
|
version 1.2, 2002/12/30 14:10:58
|
Line 53 ENDDOCUMENT
|
Line 53 ENDDOCUMENT
|
$r->print('<body>Not in a course</body>'); |
$r->print('<body>Not in a course</body>'); |
return OK; |
return OK; |
} |
} |
|
|
|
unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { |
|
$r->print('<body>No course listing</body>'); |
|
return OK; |
|
} |
|
|
|
|
|
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['filter']); |
($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement']); |
|
my $filter=$ENV{'form.filter'}; |
|
$filter=~s/\W//g; |
|
unless ($filter) { $filter='.'; } |
|
|
my $classlist=&Apache::loncoursedata::DownloadClasslist |
my $classlist=&Apache::loncoursedata::DownloadClasslist |
($ENV{'request.course.id'}, |
($ENV{'request.course.id'}, |
Line 64 ENDDOCUMENT
|
Line 74 ENDDOCUMENT
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
|
|
$r->print(&Apache::loncommon::bodytag("Selecting a User")); |
$r->print(&Apache::loncommon::bodytag("Selecting a User")); |
|
$r->print(<<ENDSCRIPT); |
my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); |
<script> |
|
function gochoose(uname,udom) { |
|
opener.document.$ENV{'form.form'}.$ENV{'form.unameelement'}.value=uname; |
|
var slct=opener.document.$ENV{'form.form'}.$ENV{'form.udomelement'}; |
|
var i; |
|
for (i=0;i<slct.length;i++) { |
|
if (slct[i]==udom) { slct.selectedIndex=i; } |
|
} |
|
self.close(); |
|
} |
|
</script> |
|
ENDSCRIPT |
|
|
|
$r->print('<h3>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. |
|
'</h3>'); |
|
if ($filter ne '.') { |
|
$r->print('Name starting with "'.$filter.'"<br />'); |
|
} |
|
$r->print('<form><table>'); |
foreach (sort keys %$classlist) { |
foreach (sort keys %$classlist) { |
if ($_=~/^(\w+)\:(\w+)\:studentInformation$/) { |
if ($_=~/^(\w+)\:(\w+)\:studentInformation$/) { |
my ($uname,$udom)=($1,$2); |
my ($uname,$udom)=($1,$2); |
$r->print($classlist->{$_}->{'lastname'}.', '. |
if (($uname=~/^$filter/) || |
$classlist->{$_}->{'firstname'}.' '. |
($classlist->{$_}->{'lastname'}=~/^$filter/i)) { |
$classlist->{$_}->{'middlename'}.' '. |
$r->print('<tr><td>'. |
$classlist->{$_}->{'generation'}.'<br>'); |
'<input type="button" value="Select" onClick="gochoose('. |
|
"'".$uname."','".$udom."')".'" /></td>'. |
|
'<td><tt>'.$uname.'</tt></td><td><tt>'.$udom. |
|
'</tt></td><td>'. |
|
&Apache::loncommon::aboutmewrapper( |
|
$classlist->{$_}->{'lastname'}.', '. |
|
$classlist->{$_}->{'firstname'}.' '. |
|
$classlist->{$_}->{'middlename'}.' '. |
|
$classlist->{$_}->{'generation'}, |
|
$uname,$udom).'</td></tr>'); |
|
} |
} |
} |
} |
} |
|
|
$r->print('</body></html>'); |
$r->print('</table></form></body></html>'); |
return OK; |
return OK; |
} |
} |
|
|