version 1.18, 2003/03/24 14:45:09
|
version 1.20, 2003/04/22 21:00:42
|
Line 231 ENDENHEAD
|
Line 231 ENDENHEAD
|
$envflag=1; |
$envflag=1; |
$cenv{'question.email'}=$ccuname.':'.$ccdomain; |
$cenv{'question.email'}=$ccuname.':'.$ccdomain; |
} |
} |
if ($ENV{'form.keys'}) { |
|
$envflag=1; |
|
$cenv{'question.email'}=$ccuname.':'.$ccdomain; |
|
} |
|
} |
} |
if ($ENV{'form.setkeys'}) { |
if ($ENV{'form.setkeys'}) { |
$envflag=1; |
$envflag=1; |
Line 297 ENDENHEAD
|
Line 293 ENDENHEAD
|
$ccuname.' at '.$ccdomain.': '. |
$ccuname.' at '.$ccdomain.': '. |
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>'); |
&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'<p>'); |
} |
} |
$r->print('Roles will be active at next login.</body></html>'); |
if ($ENV{'form.setkeys'}) { |
|
$r->print( |
|
'<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">Manage Access Keys</a></p>'); |
|
} |
|
$r->print('<p>Roles will be active at next login.</p></body></html>'); |
} |
} |
|
|
# ===================================================================== Handler |
# ===================================================================== Handler |