loncom/interface/selfenroll.pm - diff

Return to selfenroll.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34, 2016/08/07 01:39:49	version 1.35, 2018/12/27 18:14:25
Line 664 sub pending_selfenrollment_form {	Line 664 sub pending_selfenrollment_form {
if ($buttontext eq '') {	if ($buttontext eq '') {
$buttontext = &mt('Complete my enrollment');	$buttontext = &mt('Complete my enrollment');
}	}
	my $hostname = &Apache::lonnet::hostname($lonhost);
my $protocol = $Apache::lonnet::protocol{$lonhost};	my $protocol = $Apache::lonnet::protocol{$lonhost};
$protocol = 'http' if ($protocol ne 'https');	$protocol = 'http' if ($protocol ne 'https');
my $enroller = $protocol.'://'.&Apache::lonnet::hostname($lonhost).'/cgi-bin/enrollqueued.pl';	my $enroller = $protocol.'://'.$hostname.'/cgi-bin/enrollqueued.pl';
$output .= '<input type="hidden" name="enroller" value="'.$enroller.'" />'."\n".	$output .= '<input type="hidden" name="enroller" value="'.$enroller.'" />'."\n".
'<input type="hidden" name="token" value="'.$token.'" />'."\n".	'<input type="hidden" name="token" value="'.$token.'" />'."\n".
'<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".	'<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".