--- loncom/interface/createaccount.pm	2012/03/02 20:44:25	1.40.2.5.2.13
+++ loncom/interface/createaccount.pm	2012/05/01 16:09:26	1.40.2.5.2.17
@@ -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.13 2012/03/02 20:44:25 raeburn Exp $
+# $Id: createaccount.pm,v 1.40.2.5.2.17 2012/05/01 16:09:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -102,8 +102,9 @@ sub handler {
     my ($js,$courseid,$title);
     if (defined($env{'form.courseid'})) {
         $courseid = &validate_course($env{'form.courseid'});
-        if ($courseid eq 'relate_3H121116c19344ff3relatel1') {
-            $courseid = 'relate_3e100973b27484f2drelatel1';
+        if (($courseid eq 'relate_3H121116c19344ff3relatel1') ||
+            ($courseid eq 'relate_3e100973b27484f2drelatel1')) {
+            $courseid = 'relate_2764113e81b9e4f0crelatel1'; 
         }
     }
     if ($courseid ne '') {
@@ -414,8 +415,10 @@ sub print_username_form {
         type   => 'Type in your log-in ID and password to find out.',
         plse   => 'Please enter a valid e-mail address below.',
         inst   => 'Instructions on how to activate your account will be sent to the e-mail address you provide.',
-        aftr   => 'After completing the activation process you will have access to a "self test" that will help you assess your readiness for the course.',
-        thes   => 'The same account will be used for access to the Mechanics Online course, once it becomes available on March 1, 2012.',
+        aftr   => 'After completing the activation process you will be directed to the course.',
+        ther   => 'There you will have access to a "self test" that will help you assess your readiness for the course.',
+        ywil   => 'You will also have access to introductory material and to the course schedule and policies.',
+        yous   => 'Your user id for the course is your email address.',
     );
     my $output;
     if (ref($cancreate) eq 'ARRAY') {
@@ -436,8 +439,9 @@ sub print_username_form {
                         &mt('You are about to sign-up for the [_1]Mechanics Online[_2] course.','<em>','</em>').'<br />'.
                         $lt{'plse'}.'</p><ul>'.
                         '<li>'.$lt{'inst'}.'</li>'.
-                        '<li>'.$lt{'aftr'}.'</li>'.
-                        '<li>'.$lt{'thes'}.'</li></ul>';
+                        '<li>'.$lt{'aftr'}.'<br />'.$lt{'ther'}.'<br />'.
+                               $lt{'ywil'}.'</li>'.
+                        '<li>'.$lt{'yous'}.'</li></ul>';
             my $captchaform = &create_recaptcha($pubkey);
             if ($captchaform) {
                 my $submit_text = &mt('Sign-up');
@@ -693,7 +697,7 @@ sub process_mailtoken {
                     }
                     my %form = &start_session($r,$data{'username'},$domain, 
                                               $lonhost,$data{'courseid'},
-                                              $token);
+                                              $token,'new');
                     $nostart = 1;
                     $noend = 1;
                 } else {
@@ -720,7 +724,7 @@ sub process_mailtoken {
 }
 
 sub start_session {
-    my ($r,$username,$domain,$lonhost,$courseid,$token) = @_;
+    my ($r,$username,$domain,$lonhost,$courseid,$token,$usertype) = @_;
     my %form = (
                 uname => $username,
                 udom  => $domain,
@@ -731,6 +735,9 @@ sub start_session {
         if ($courseid ne '') {
             $form{'courseid'} = $courseid;
             $firsturl = '/adm/selfenroll?courseid='.$courseid;
+            if ($usertype) {
+                $firsturl .= '&usertype='.$usertype;
+            }
         }
     }
     if ($r->dir_config('lonBalancer') eq 'yes') {
@@ -1140,7 +1147,7 @@ sub username_activation {
         if ($result eq 'ok') {
             my $delete = &Apache::lonnet::tmpdel($env{'form.authtoken'});
             $output = &mt('A LON-CAPA account has been created for username: [_1] in domain: [_2].',$username,$domain);
-            my %form = &start_session($r,$username,$domain,$lonhost,$courseid);
+            my %form = &start_session($r,$username,$domain,$lonhost,$courseid,undef,'new');
             my $nostart = 1;
             return ('ok',$output,$nostart);
         } else {