loncom/interface/createaccount.pm - diff

Return to createaccount.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40.2.5.2.9, 2012/02/14 16:04:22	version 1.40.2.5.2.10, 2012/02/14 16:15:30
Line 611 sub call_rulecheck {	Line 611 sub call_rulecheck {
sub send_token {	sub send_token {
my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;	my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;
my $msg = '<h3>'.&mt('Account creation status').'</h3>'.	my $msg = '<h3>'.&mt('Account creation status').'</h3>'.
&mt('Thank you for your request to create a new LON-CAPA account.').	&mt('Thank you for your request to create a new Mechanics Online account.').
'<br /><br />';	'<br /><br />';
my $now = time;	my $now = time;
my %info = ('ip' => $ENV{'REMOTE_ADDR'},	my %info = ('ip' => $ENV{'REMOTE_ADDR'},
Line 629 sub send_token {	Line 629 sub send_token {
' '.	' '.
&mt('In order to complete the registration process, please open the following link in your web browser:').	&mt('In order to complete the registration process, please open the following link in your web browser:').
"\n\n".	"\n\n".
&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token).	&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token.
"\n\n".	"\n\n".
&mt('This link will take you to a sign-up page where you will be asked to provide some general information and finalize the registration process.').	&mt('This link will take you to a sign-up page where you will be asked to provide some general information and finalize the registration process.').
' '.	' '.