--- loncom/interface/loncoursequeueadmin.pm 2010/02/21 23:38:51 1.19 +++ loncom/interface/loncoursequeueadmin.pm 2010/02/26 22:56:01 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network # Utilities to administer domain course requests and course self-enroll requests # -# $Id: loncoursequeueadmin.pm,v 1.19 2010/02/21 23:38:51 raeburn Exp $ +# $Id: loncoursequeueadmin.pm,v 1.21 2010/02/26 22:56:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -960,7 +960,7 @@ sub course_creation { } my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs); my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses', - \%reqdetails,$longroles,\$logmsg,\$newusermsg,\$addresult, + \%reqdetails,$longroles,$logmsg,\$newusermsg,\$addresult, \$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype); if ($cid eq "/$dom/$cnum") { $result = 'created'; @@ -1060,7 +1060,7 @@ sub can_clone_course { } unless ($canclone) { if (&Apache::lonnet::is_course_owner($clonedom,$clonecrs,$uname,$udom)) { - $can_clone = 1; + $canclone = 1; } } }