--- loncom/interface/lonrequestcourse.pm	2014/05/06 18:09:40	1.79
+++ loncom/interface/lonrequestcourse.pm	2014/05/06 20:42:27	1.80
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.79 2014/05/06 18:09:40 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.80 2014/05/06 20:42:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3741,15 +3741,9 @@ sub process_request {
                 }
                 if (ref($postprocess) eq 'HASH') {
                     if (ref($postprocess->{'createdactions'}) eq 'HASH') {
-                        if (ref($postprocess->{'createdactions'}{'environment'} eq 'HASH') {
-                            my %newcrsenv;
-                            foreach my $key (%{$postprocess->{'createdactions'}{'environment'}}) {
-                                $newcrsenv{$key} = $postprocess->{'createdactions'}{'environment'}{$key};
-                            }
-                            if (keys(%newcrsenv)) {
-                                my $putresult = &Apache::lonnet::put('environment',\%newcrsenv,$dom,$cnum);
-
-                            }
+                        if (ref($postprocess->{'createdactions'}{'environment'}) eq 'HASH') {
+                            &Apache::loncoursequeueadmin::postprocess_crsenv($dom,$cnum,
+                                                                             $postprocess->{'createdactions'}{'environment'});
                         }
                     }
                 }