version 1.2, 2002/12/30 14:10:58
|
version 1.3, 2003/01/06 13:53:26
|
Line 67 ENDDOCUMENT
|
Line 67 ENDDOCUMENT
|
$filter=~s/\W//g; |
$filter=~s/\W//g; |
unless ($filter) { $filter='.'; } |
unless ($filter) { $filter='.'; } |
|
|
my $classlist=&Apache::loncoursedata::DownloadClasslist |
my $classlist=&Apache::loncoursedata::get_classlist(); |
($ENV{'request.course.id'}, |
|
'Not downloaded',$r->connection); |
|
|
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
|
|
Line 95 ENDSCRIPT
|
Line 93 ENDSCRIPT
|
} |
} |
$r->print('<form><table>'); |
$r->print('<form><table>'); |
foreach (sort keys %$classlist) { |
foreach (sort keys %$classlist) { |
if ($_=~/^(\w+)\:(\w+)\:studentInformation$/) { |
# the following undefs are for 'domain', and 'username' respectively. |
|
my (undef,undef,$end,$start,$id,$section,$fullname,$status)= |
|
@{$classlist->{$_}}; |
|
if ($_=~/^(\w+)\:(\w+)$/) { |
my ($uname,$udom)=($1,$2); |
my ($uname,$udom)=($1,$2); |
if (($uname=~/^$filter/) || |
if (($uname=~/^$filter/) || |
($classlist->{$_}->{'lastname'}=~/^$filter/i)) { |
($fullname=~/^$filter/i)) { |
$r->print('<tr><td>'. |
$r->print('<tr><td>'. |
'<input type="button" value="Select" onClick="gochoose('. |
'<input type="button" value="Select" onClick="gochoose('. |
"'".$uname."','".$udom."')".'" /></td>'. |
"'".$uname."','".$udom."')".'" /></td>'. |
'<td><tt>'.$uname.'</tt></td><td><tt>'.$udom. |
'<td><tt>'.$uname.'</tt></td><td><tt>'.$udom. |
'</tt></td><td>'. |
'</tt></td><td>'. |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::aboutmewrapper( |
$classlist->{$_}->{'lastname'}.', '. |
$fullname, |
$classlist->{$_}->{'firstname'}.' '. |
$uname,$udom).'</td><td>'.$id.'</td><td>'.$section. |
$classlist->{$_}->{'middlename'}.' '. |
'</td></tr>'); |
$classlist->{$_}->{'generation'}, |
|
$uname,$udom).'</td></tr>'); |
|
} |
} |
} |
} |
} |
} |