loncom/interface/createaccount.pm - diff

Return to createaccount.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/createaccount.pm between versions 1.31 and 1.32

version 1.31, 2009/03/12 14:13:34	version 1.32, 2009/03/14 02:04:22
Line 313 sub validate_course {	Line 313 sub validate_course {
sub javascript_setforms {	sub javascript_setforms {
my ($now) = @_;	my ($now) = @_;
my $js = <<ENDSCRIPT;	my $js = <<ENDSCRIPT;
<script language="JavaScript">	<script type="text/javascript" language="JavaScript">
function send() {	function send() {
this.document.server.elements.uname.value = this.document.client.elements.uname.value;	this.document.server.elements.uname.value = this.document.client.elements.uname.value;
	this.document.server.elements.udom.value = this.document.client.elements.udom.value;
uextkey=this.document.client.elements.uextkey.value;	uextkey=this.document.client.elements.uextkey.value;
lextkey=this.document.client.elements.lextkey.value;	lextkey=this.document.client.elements.lextkey.value;
initkeys();	initkeys();
Line 346 sub javascript_checkpass {	Line 347 sub javascript_checkpass {
var upasscheck = this.document.client.elements.upasscheck$now.value;	var upasscheck = this.document.client.elements.upasscheck$now.value;
if (upass == '') {	if (upass == '') {
alert("$nopass");	alert("$nopass");
return;	return false;
}	}
if (upass == upasscheck) {	if (upass == upasscheck) {
this.document.client.elements.upasscheck$now.value='';	this.document.client.elements.upasscheck$now.value='';
send();	send();
return;	return false;
} else {	} else {
alert("$mismatchpass");	alert("$mismatchpass");
return;	return false;
}	}
}	}
</script>	</script>
ENDSCRIPT	ENDSCRIPT
Line 425 sub print_username_form {	Line 426 sub print_username_form {
if ($courseid ne '') {	if ($courseid ne '') {
$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";	$output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";
}	}
$output .= '<input type="submit" name="create_with_email" value="'.	$output .= &Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title().'<br />'.
	'<input type="submit" name="create_with_email" value="'.
$submit_text.'" />'.	$submit_text.'" />'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::end_pick_box().'<br /><br />';	&Apache::lonhtmlcommon::end_pick_box().'<br /><br />';
Line 463 sub login_box {	Line 466 sub login_box {
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',	my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',
$lonhost);	$lonhost);
$output = &serverform($logtoken,$lonhost,undef,$courseid,$context);	$output = &serverform($logtoken,$lonhost,undef,$courseid,$context);
my $unameform = '<input type="text" name="uname" size="10" value="" />';	my $unameform = '<input type="text" name="uname" size="20" value="" />';
my $upassform = '<input type="password" name="upass'.$now.'" size="10" />';	my $upassform = '<input type="password" name="upass'.$now.'" size="20" />';
$output .= '<form name="client" method="post" action="/adm/createaccount">'."\n".	$output .= '<form name="client" method="post" onsubmit="return(send());">'."\n".
&Apache::lonhtmlcommon::start_pick_box()."\n";	&Apache::lonhtmlcommon::start_pick_box()."\n".
$output .= &Apache::lonhtmlcommon::row_title($titles{$context},	&Apache::lonhtmlcommon::row_title($titles{$context},
'LC_pick_box_title')."\n".	'LC_pick_box_title')."\n".
$unameform."\n".	$unameform."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
Line 475 sub login_box {	Line 478 sub login_box {
'LC_pick_box_title')."\n".	'LC_pick_box_title')."\n".
$upassform;	$upassform;
if ($context eq 'selfenroll') {	if ($context eq 'selfenroll') {
my $udomform = '<input type="text" name="udom" size="10" value="'.	my $udomform = '<input type="text" name="udom" size="10" value="'.
$domain.'" />';	$domain.'" />';
$output .= &Apache::lonhtmlcommon::row_closure(1)."\n".	$output .= &Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Domain'),	&Apache::lonhtmlcommon::row_title(&mt('Domain'),
'LC_pick_box_title')."\n".	'LC_pick_box_title')."\n".
$udomform."\n";	$udomform."\n";
	} else {
	$output .= '<input type="hidden" name="udom" value="'.$domain.'" />';
}	}
	$output .= &Apache::lonhtmlcommon::row_closure(1).
$output .= &Apache::lonhtmlcommon::row_closure(0).
&Apache::lonhtmlcommon::row_title().	&Apache::lonhtmlcommon::row_title().
'<input type="button" name="username_validation" value="'.	'<br /><input type="submit" name="username_validation" value="'.
$submit_text.'" onclick="javascript:send()" />'."\n".	$submit_text.'" />'."\n";
&Apache::lonhtmlcommon::row_closure(1)."\n".	if ($context eq 'selfenroll') {
&Apache::lonhtmlcommon::end_pick_box();	$output .= '<br /><br /><table width="100%"><tr><td align="right">'.
$output .= '<p>'.	'<span class="LC_fontsize_medium">'.
'<a href="/adm/resetpw">'.&mt('Forgot password?').'</a>'.	'<a href="/adm/resetpw">'.&mt('Forgot password?').'</a>'.
'</p>'."\n";	'</span></td></tr></table>'."\n";
	}
	$output .= &Apache::lonhtmlcommon::row_closure(1)."\n".
	&Apache::lonhtmlcommon::end_pick_box().'<br />'."\n";
$output .= '<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\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>';
Line 720 sub print_dataentry_form {	Line 727 sub print_dataentry_form {
my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);	my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);
my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',	my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',
$lonhost);	$lonhost);
my @userinfo = ('firstname','middlename','lastname','generation','id',	my $formtag = '<form name="server" method="post" target="_top" action="/adm/createaccount">';
'permanentemail');	my ($datatable,$rowcount) =
my %lt=&Apache::lonlocal::texthash(	&Apache::loncreateuser::personal_data_display($username,$domain,
'pd' => "Personal Data",	'email','selfcreate');
'firstname' => "First Name",	if ($rowcount) {
'middlename' => "Middle Name",	$output .= '<div class="LC_left_float">'.$formtag.$datatable;
'lastname' => "Last Name",	} else {
'generation' => "Generation",	$output .= $formtag;
'permanentemail' => "Permanent e-mail address",
'id' => "Student/Employee ID",
'lg' => "Login Data"
);
my %textboxsize = (
firstname => '15',
middlename => '15',
lastname => '15',
generation => '5',
id => '15',
);
my $genhelp=&Apache::loncommon::help_open_topic('Generation');
$output .= '<div class="LC_left_float"><h3>'.$lt{'pd'}.'</h3>'.
'<form name="server" method="post" target="_top" action="/adm/createaccount">'.
&Apache::lonhtmlcommon::start_pick_box();
foreach my $item (@userinfo) {
my $rowtitle = $lt{$item};
if ($item eq 'generation') {
$rowtitle = $genhelp.$rowtitle;
}
$output .= &Apache::lonhtmlcommon::row_title($rowtitle,undef,'LC_oddrow_value')."\n";
if ($item eq 'permanentemail') {
$output .= $username;
} else {
$output .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />';
}
$output .= &Apache::lonhtmlcommon::row_closure(1);
}	}
$output .= &Apache::lonhtmlcommon::end_pick_box();
$output .= <<"ENDSERVERFORM";	$output .= <<"ENDSERVERFORM";
<input type="hidden" name="logtoken" value="$logtoken" />	<input type="hidden" name="logtoken" value="$logtoken" />
<input type="hidden" name="token" value="$mailtoken" />	<input type="hidden" name="token" value="$mailtoken" />
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />
<input type="hidden" name="upass" value="" />	<input type="hidden" name="upass" value="" />
	<input type="hidden" name="udom" value="" />
<input type="hidden" name="phase" value="createaccount" />	<input type="hidden" name="phase" value="createaccount" />
</form></div>	</form>
ENDSERVERFORM	ENDSERVERFORM
	if ($rowcount) {
	$output .= '</div>'.
	'<div class="LC_left_float">';
	}
my $upassone = '<input type="password" name="upass'.$now.'" size="10" />';	my $upassone = '<input type="password" name="upass'.$now.'" size="10" />';
my $upasstwo = '<input type="password" name="upasscheck'.$now.'" size="10" />';	my $upasstwo = '<input type="password" name="upasscheck'.$now.'" size="10" />';
my $submit_text = &mt('Create LON-CAPA account');	my $submit_text = &mt('Create LON-CAPA account');
$output .= '<div class="LC_left_float"><h3>'.$lt{'lg'}.'</h3>'."\n".	$output .= '<h3>'.&mt('Login Data').'</h3>'."\n".
'<form name="client" method="post" />'."\n".	'<form name="client" method="post" '.
	'onsubmit="return checkpass();">'."\n".
&Apache::lonhtmlcommon::start_pick_box()."\n".	&Apache::lonhtmlcommon::start_pick_box()."\n".
&Apache::lonhtmlcommon::row_title(&mt('Username'),	&Apache::lonhtmlcommon::row_title(&mt('Username'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
	'LC_oddrow_value')."\n".
$username."\n".	$username."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Password'),	&Apache::lonhtmlcommon::row_title(&mt('Password'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
	'LC_oddrow_value')."\n".
$upassone."\n".	$upassone."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::row_title(&mt('Confirm password'),	&Apache::lonhtmlcommon::row_title(&mt('Confirm password'),
'LC_pick_box_title')."\n".	'LC_pick_box_title',
$upasstwo."\n".	'LC_oddrow_value')."\n".
	$upasstwo.
	&Apache::lonhtmlcommon::row_closure(1)."\n".
	&Apache::lonhtmlcommon::row_title()."\n".
	'<br /><input type="submit" name="createaccount" value="'.
	$submit_text.'" />'.
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::end_pick_box()."\n".	&Apache::lonhtmlcommon::end_pick_box()."\n".
'<input type="hidden" name="uname" value="'.$username.'">'."\n".	'<input type="hidden" name="uname" value="'.$username.'" />'."\n".
'<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".	'<input type="hidden" name="udom" value="'.$domain.'" />'."\n".
'<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".	'<input type="hidden" name="lextkey" value="'.$lextkey.'" />'."\n".
'</form></div>'."\n".	'<input type="hidden" name="uextkey" value="'.$uextkey.'" />'."\n".
'<div class="LC_clear_float_footer"><br /><br />'."\n".	'</form>';
'<form name="buttonform">'."\n".	if ($rowcount) {
'<input type="button" name="createaccount" value="'.	$output .= '</div>'."\n".
$submit_text.'" onclick="javascript:checkpass();" /></form></div>';	'<div class="LC_clear_float_footer"></div>'."\n";
	}
} else {	} else {
$output = &mt('Could not load javascript file [_1]','<tt>londes.js</tt>');	$output = &mt('Could not load javascript file [_1]','<tt>londes.js</tt>');
}	}
Line 1193 sub serverform {	Line 1186 sub serverform {
<input type="hidden" name="serverid" value="$lonhost" />	<input type="hidden" name="serverid" value="$lonhost" />
<input type="hidden" name="uname" value="" />	<input type="hidden" name="uname" value="" />
<input type="hidden" name="upass" value="" />	<input type="hidden" name="upass" value="" />
	<input type="hidden" name="udom" value="" />
<input type="hidden" name="phase" value="$phase" />	<input type="hidden" name="phase" value="$phase" />
<input type="hidden" name="courseid" value="$courseid" />	<input type="hidden" name="courseid" value="$courseid" />
$catalog_elements	$catalog_elements

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.31
changed lines
	Added in v.1.32