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.'). |
' '. |
' '. |