version 1.8, 2005/02/17 08:29:43
|
version 1.9, 2005/04/07 06:56:23
|
Line 58 ENDDOCUMENT
|
Line 58 ENDDOCUMENT
|
'roles']); |
'roles']); |
# Allowed? |
# Allowed? |
|
|
unless (($ENV{'form.roles'}) || |
unless (($env{'form.roles'}) || |
(($ENV{'request.course.id'}) && |
(($env{'request.course.id'}) && |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})))) { |
(&Apache::lonnet::allowed('srm',$env{'request.course.id'})))) { |
$r->print('<body>No context.</body>'); |
$r->print('<body>No context.</body>'); |
return OK; |
return OK; |
} |
} |
|
|
# See if filter present |
# See if filter present |
|
|
my $filter=$ENV{'form.filter'}; |
my $filter=$env{'form.filter'}; |
$filter=~s/\W//g; |
$filter=~s/\W//g; |
unless ($filter) { $filter='.'; } |
unless ($filter) { $filter='.'; } |
|
|
Line 79 ENDDOCUMENT
|
Line 79 ENDDOCUMENT
|
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script> |
<script> |
function gochoose(uname,udom) { |
function gochoose(uname,udom) { |
opener.document.$ENV{'form.form'}.$ENV{'form.unameelement'}.value=uname; |
opener.document.$env{'form.form'}.$env{'form.unameelement'}.value=uname; |
var slct=opener.document.$ENV{'form.form'}.$ENV{'form.udomelement'}; |
var slct=opener.document.$env{'form.form'}.$env{'form.udomelement'}; |
var i; |
var i; |
for (i=0;i<slct.length;i++) { |
for (i=0;i<slct.length;i++) { |
if (slct.options[i].value==udom) { slct.selectedIndex=i; } |
if (slct.options[i].value==udom) { slct.selectedIndex=i; } |
Line 91 function gochoose(uname,udom) {
|
Line 91 function gochoose(uname,udom) {
|
ENDSCRIPT |
ENDSCRIPT |
|
|
$r->print('<form>'); |
$r->print('<form>'); |
if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) && |
if ((&Apache::lonnet::allowed('srm',$env{'request.course.id'})) && |
(!$ENV{'form.roles'})) { |
(!$env{'form.roles'})) { |
# -------------------------------------------------------- Get course personnel |
# -------------------------------------------------------- Get course personnel |
$r->print('<h3>'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. |
$r->print('<h3>'.$env{'course.'.$env{'request.course.id'}.'.description'}. |
'</h3>'); |
'</h3>'); |
my %coursepersonnel= |
my %coursepersonnel= |
&Apache::lonnet::get_course_adv_roles(); |
&Apache::lonnet::get_course_adv_roles(); |
Line 140 ENDSCRIPT
|
Line 140 ENDSCRIPT
|
$r->print('</table></p>'); |
$r->print('</table></p>'); |
} else { |
} else { |
$r->print('<h3>'.&mt('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/ >'.&mt('Name starting with').' "'.$filter.'"<br />'); |
$r->print('<br/ >'.&mt('Name starting with').' "'.$filter.'"<br />'); |
} |
} |