--- loncom/interface/loncoursequeueadmin.pm	2014/02/12 20:47:40	1.43
+++ loncom/interface/loncoursequeueadmin.pm	2014/03/03 17:11:41	1.44
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Utilities to administer domain course requests and course self-enroll requests
 #
-# $Id: loncoursequeueadmin.pm,v 1.43 2014/02/12 20:47:40 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.44 2014/03/03 17:11:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -876,7 +876,7 @@ sub update_request_queue {
             
             if (ref($curr{$uname}) eq 'HASH') {
                 my ($username,$logtoken,$serverid,$encpass,$courseid,$id,$firstname,
-                    $middlename,$lastname,$generation);
+                    $middlename,$lastname,$generation,$inststatus);
                 $curr{$uname}{'timestamp'} = $now;
                 $curr{$uname}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'};
                 $courseid   = $curr{$uname}{'courseid'};
@@ -885,6 +885,7 @@ sub update_request_queue {
                 $middlename = $curr{$uname}{'middlename'};
                 $lastname   = $curr{$uname}{'lastname'};
                 $generation = $curr{$uname}{'generation'};
+                $inststatus = $curr{$uname}{'usertype'};
 
                 my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'});
                 if ($caller eq 'createaccount') {
@@ -901,6 +902,9 @@ sub update_request_queue {
                         if ($uhome eq 'no_host') {
                             push(@warn_approves,$uname);
                         } else {
+                            unless (($inststatus eq 'default') || ($inststatus eq '')) {
+                                &Apache::lonnet::put('environment',{inststatus => $inststatus},$cdom,$uname);
+                            }
                             &send_selfserve_notification($uname.':'.$cdom,
                                                          $approvedmsg,undef,undef,$now,
                                                          $beneficiary,$sender);