--- loncom/interface/selfenroll.pm	2010/01/15 03:37:13	1.24
+++ loncom/interface/selfenroll.pm	2012/05/01 16:09:26	1.25.6.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Allow users to self-enroll in a course
 #
-# $Id: selfenroll.pm,v 1.24 2010/01/15 03:37:13 raeburn Exp $
+# $Id: selfenroll.pm,v 1.25.6.1 2012/05/01 16:09:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -52,7 +52,7 @@ sub handler {
     }
     &Apache::lonacc::get_posted_cgi($r);
     &Apache::lonlocal::get_language_handle($r);
-    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['courseid']);
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['courseid','usertype']);
     my $js = &Apache::createaccount::catreturn_js();
     my ($coursechk,$courseid) = &validate_course_id($env{'form.courseid'});
     if ($coursechk ne 'ok') {
@@ -442,6 +442,9 @@ sub process_self_enroll {
         if ($selfenroll_section eq 'none') {
             $usec = '';
         }
+        unless (($usec ne '') && ($env{'form.usertype'} eq 'new')) {
+            $usec = 'sp12';
+        }
         if ($selfenroll_registered) {
             my ($registered,$instsec,$message) = &check_registered($cdom,$cnum);
             $usec = $instsec;
@@ -577,7 +580,7 @@ sub store_selfenroll_request {
                 $output .= '<span class="LC_warning">'.$warning.'</span><br />';
             }
 
-            $output .= &Apache::loncommon::queued_selfenrollment();
+            $output .= &Apache::loncoursequeueadmin::queued_selfenrollment();
 
             if ($selfenroll_notifylist) {
                 my $fullname = &Apache::loncommon::plainname($uname,$udom);