[LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface createaccount.pm

raeburn raeburn at source.lon-capa.org
Tue Feb 14 11:04:22 EST 2012


raeburn		Tue Feb 14 16:04:22 2012 EDT

  Modified files:              (Branch: loncapaMITrelate_1)
    /loncom/interface	createaccount.pm 
  Log:
  - Customization for MITrelate.
    - Customized text in e-mail sent containing link used to complete sign-up
       process. 
  
  
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.40.2.5.2.8 loncom/interface/createaccount.pm:1.40.2.5.2.9
--- loncom/interface/createaccount.pm:1.40.2.5.2.8	Tue Feb 14 01:06:12 2012
+++ loncom/interface/createaccount.pm	Tue Feb 14 16:04:22 2012
@@ -3,7 +3,7 @@
 # institutional log-in ID (institutional authentication required - localauth
 #  or kerberos) or an e-mail address.
 #
-# $Id: createaccount.pm,v 1.40.2.5.2.8 2012/02/14 01:06:12 raeburn Exp $
+# $Id: createaccount.pm,v 1.40.2.5.2.9 2012/02/14 16:04:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -622,12 +622,28 @@
     my $token = &Apache::lonnet::tmpput(\%info,$server,'createaccount');
     if ($token !~ /^error/ && $token ne 'no_such_host') {
         my $esc_token = &escape($token);
-        my $showtime = localtime(time);
-        my $mailmsg = &mt('A request was submitted on [_1] for creation of a [_2] account.',$showtime,$domdesc)."\n".
-             &mt('To complete this process please open a web browser and enter the following URL in the address/location box: [_1]',
-                 "\n\n".&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token);
-        my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name,
-                                                 $contact_email);
+        my $mailsubj = &mt('Your Mechanics Online Course Account');
+        my $msgfrom  = &mt('Mechanics Online Course Staff');
+        my $mailmsg =  &mt('Greetings.')."\n\n".
+                       &mt('Thank you for your interest in our Online Mechanics Course.').
+                       ' '.
+                       &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') {
             $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 {




More information about the LON-CAPA-cvs mailing list