--- loncom/interface/createaccount.pm	2012/05/01 13:58:27	1.40.2.5.2.15
+++ 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.15 2012/05/01 13:58:27 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
 #
@@ -415,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 be directed to the course, where you will have access to a "self test" that will help you assess your readiness for the course.  You will also have access to some introductory material and to the course schedule and policies.',
-        yous => 'Your user id for the course is your email address.',
+        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') {
@@ -437,7 +439,8 @@ 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{'aftr'}.'<br />'.$lt{'ther'}.'<br />'.
+                               $lt{'ywil'}.'</li>'.
                         '<li>'.$lt{'yous'}.'</li></ul>';
             my $captchaform = &create_recaptcha($pubkey);
             if ($captchaform) {
@@ -694,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 {
@@ -721,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,
@@ -732,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') {
@@ -1141,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 {