--- loncom/interface/lonrequestcourse.pm 2010/07/30 23:51:41 1.54.2.1 +++ loncom/interface/lonrequestcourse.pm 2010/08/10 17:20:02 1.54.2.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Request a course # -# $Id: lonrequestcourse.pm,v 1.54.2.1 2010/07/30 23:51:41 raeburn Exp $ +# $Id: lonrequestcourse.pm,v 1.54.2.2 2010/08/10 17:20:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3593,6 +3593,9 @@ sub retrieve_settings { } $env{'form.clonecrs'} = $reqinfo{'clonecrs'}; $env{'form.clonedom'} = $reqinfo{'clonedom'}; + if (($reqinfo{'clonecrs'} ne '') && ($reqinfo{'clonedom'} ne '')) { + $env{'form.cloning'} = 1; + } $env{'form.datemode'} = $reqinfo{'datemode'}; $env{'form.dateshift'} = $reqinfo{'dateshift'}; if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) {