version 1.6, 2003/08/13 20:40:31
|
version 1.7, 2003/09/22 00:48:32
|
Line 33 use Apache::Constants qw(:common);
|
Line 33 use Apache::Constants qw(:common);
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
Line 110 ENDSCRIPT
|
Line 111 ENDSCRIPT
|
} |
} |
$r->print('</table><p> '); |
$r->print('</table><p> '); |
if ($filter ne '.') { |
if ($filter ne '.') { |
$r->print('<br/ >Name starting with "'.$filter.'"<br />'); |
$r->print('<br/ >'.&mt('Name starting with').' "'.$filter.'"<br />'); |
} |
} |
$r->print('</p><p><table>'); |
$r->print('</p><p><table>'); |
# ------------------------------------------------------------------ Students |
# ------------------------------------------------------------------ Students |
Line 123 ENDSCRIPT
|
Line 124 ENDSCRIPT
|
if (($uname=~/^$filter/) || |
if (($uname=~/^$filter/) || |
($fullname=~/^$filter/i)) { |
($fullname=~/^$filter/i)) { |
$r->print('<tr><td>'. |
$r->print('<tr><td>'. |
'<input type="button" value="Select" onClick="gochoose('. |
'<input type="button" value="'.&mt('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>'. |
Line 137 ENDSCRIPT
|
Line 138 ENDSCRIPT
|
|
|
$r->print('</table></p>'); |
$r->print('</table></p>'); |
} else { |
} else { |
$r->print('<h3>Users with Roles Assigned by '. |
$r->print('<h3>'.&mt('Users with Roles Assigned by').' '. |
&Apache::loncommon::plainname($ENV{'user.name'}, |
&Apache::loncommon::plainname($ENV{'user.name'}, |
$ENV{'user.domain'}).'</h3>'); |
$ENV{'user.domain'}).'</h3>'); |
if ($filter ne '.') { |
if ($filter ne '.') { |
$r->print('<br/ >Name starting with "'.$filter.'"<br />'); |
$r->print('<br/ >'.&mt('Name starting with').' "'.$filter.'"<br />'); |
} |
} |
$r->print('<p><table>'); |
$r->print('<p><table>'); |
my %users=&Apache::lonnet::get_my_roles(); |
my %users=&Apache::lonnet::get_my_roles(); |