--- loncom/interface/lonrequestcourse.pm	2014/04/16 14:40:17	1.78
+++ loncom/interface/lonrequestcourse.pm	2014/05/06 18:09:40	1.79
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.78 2014/04/16 14:40:17 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.79 2014/05/06 18:09:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3739,6 +3739,20 @@ sub process_request {
                 if ($code) {
                     $reqhash{'code'} = $code;
                 }
+                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);
+
+                            }
+                        }
+                    }
+                }
                 $output .= '<br />'.$role_result.'</p>';
                 $creationresult = 'created';
             } else {
@@ -4390,7 +4404,7 @@ sub print_textbook_form {
 #
 #  Retrieve list of textbook courses cloneable by user
 #
-    my $numbook;
+    my $numbook = 0;
     if (ref($settings) eq 'HASH') {
         $bookshash = $settings->{'textbooks'};
         if (ref($bookshash) eq 'HASH') {