version 1.6, 2003/08/13 20:40:31
|
version 1.8, 2005/02/17 08:29:43
|
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; |
|
|
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
$html |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
</head> |
</head> |
Line 110 ENDSCRIPT
|
Line 112 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 125 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 139 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(); |