version 1.40.2.5.2.8, 2012/02/14 01:06:12
|
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 622 sub send_token {
|
Line 622 sub send_token {
|
my $token = &Apache::lonnet::tmpput(\%info,$server,'createaccount'); |
my $token = &Apache::lonnet::tmpput(\%info,$server,'createaccount'); |
if ($token !~ /^error/ && $token ne 'no_such_host') { |
if ($token !~ /^error/ && $token ne 'no_such_host') { |
my $esc_token = &escape($token); |
my $esc_token = &escape($token); |
my $showtime = localtime(time); |
my $mailsubj = &mt('Your Mechanics Online Course Account'); |
my $mailmsg = &mt('A request was submitted on [_1] for creation of a [_2] account.',$showtime,$domdesc)."\n". |
my $msgfrom = &mt('Mechanics Online Course Staff'); |
&mt('To complete this process please open a web browser and enter the following URL in the address/location box: [_1]', |
my $mailmsg = &mt('Greetings.')."\n\n". |
"\n\n".&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token); |
&mt('Thank you for your interest in our Online Mechanics Course.'). |
my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name, |
' '. |
$contact_email); |
&mt('In order to complete the registration process, please open the following link in your web browser:'). |
|
"\n\n". |
|
&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token. |
|
"\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('The course will begin on March 1st, and until that date, a self-test will be available for you to test your level of preparation for our course.'). |
|
' '. |
|
&mt('The self-test is an integral part of the course, and should be completed by the March 1st start date.'). |
|
"\n\n". |
|
&mt('Best Regards,'). |
|
"\n\n". |
|
&mt('RELATE Group')."\n"; |
|
|
|
my $result = &Apache::resetpw::send_mail('MIT',$email,$mailmsg, |
|
$msgfrom,$contact_email, |
|
$mailsubj); |
if ($result eq 'ok') { |
if ($result eq 'ok') { |
$msg .= &mt('A message has been sent to the e-mail address you provided.').'<br />'.&mt('The message includes the web address for the link you will use to complete the sign-up process.').'<br />'.&mt("The link included in the message will be valid for the next [_1]two[_2] hours.",'<b>','</b>'); |
$msg .= &mt('A message has been sent to the e-mail address you provided.').'<br />'.&mt('The message includes the web address for the link you will use to complete the sign-up process.').'<br />'.&mt("The link included in the message will be valid for the next [_1]two[_2] hours.",'<b>','</b>'); |
} else { |
} else { |