loncom/interface/createaccount.pm - diff

Return to createaccount.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.28, 2009/02/07 00:59:17	version 1.30, 2009/03/12 13:59:49
Line 86 sub handler {	Line 86 sub handler {
my $start_page;	my $start_page;

my $handle = &Apache::lonnet::check_for_valid_session($r);	my $handle = &Apache::lonnet::check_for_valid_session($r);
if ($handle ne '') {	if (($handle ne '') && ($handle !~ /^publicuser_\d+$/)) {
$start_page =	$start_page =
&Apache::loncommon::start_page('Already logged in');	&Apache::loncommon::start_page('Already logged in');
my $end_page =	my $end_page =
Line 486 sub login_box {	Line 486 sub login_box {
'<input type="button" name="username_validation" value="'.	'<input type="button" name="username_validation" value="'.
$submit_text.'" onclick="javascript:send()" />'."\n".	$submit_text.'" onclick="javascript:send()" />'."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::end_pick_box().'<br /><br />'."\n".	&Apache::lonhtmlcommon::end_pick_box();
'<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".	$output .= '<p>'.
	'<a href="/adm/resetpw">'.&mt('Forgot password?').'</a>'.
	'</p>'."\n";
	$output .= '<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".
'<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".	'<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".
'</form>';	'</form>';
return $output;	return $output;