--- loncom/interface/lonrequestcourse.pm 2014/04/16 14:40:17 1.78 +++ 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.78 2014/04/16 14:40:17 raeburn Exp $ +# $Id: lonrequestcourse.pm,v 1.80 2014/05/06 20:42:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3739,6 +3739,14 @@ 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') { + &Apache::loncoursequeueadmin::postprocess_crsenv($dom,$cnum, + $postprocess->{'createdactions'}{'environment'}); + } + } + } $output .= '
'.$role_result.'

'; $creationresult = 'created'; } else { @@ -4390,7 +4398,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') {