loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1075.2.161.2.13, 2023/01/20 19:17:23	version 1.1075.2.161.2.15, 2023/01/23 22:50:32
Line 15752 sub commit_studentrole {	Line 15752 sub commit_studentrole {
}	}
$oldsecurl = $uurl;	$oldsecurl = $uurl;
$expire_role_result =	$expire_role_result =
&Apache::lonnet::assignrole($udom,$uname,$uurl,'st',$now,'','',$context);	&Apache::lonnet::assignrole($udom,$uname,$uurl,'st',$now,'','','',$context);
if ($env{'request.course.sec'} ne '') {	if ($env{'request.course.sec'} ne '') {
if ($expire_role_result eq 'refused') {	if ($expire_role_result eq 'refused') {
my @roles = ('st');	my @roles = ('st');
Line 18109 sub create_captcha {	Line 18109 sub create_captcha {
$output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".	$output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".
'<span class="LC_nobreak">'.	'<span class="LC_nobreak">'.
&mt('Type in the letters/numbers shown below').' '.	&mt('Type in the letters/numbers shown below').' '.
'<input type="text" size="5" name="code" value="" autocomplete="off" />'.	'<input type="text" size="5" name="code" value="" autocomplete="new-password" />'.
'</span><br />'.	'</span><br />'.
'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" alt="captcha" />';	'<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png" alt="captcha" />';
last;	last;