[LON-CAPA-cvs] cvs: loncom /interface loncoursequeueadmin.pm

[raeburn]

raeburn		Fri Feb 26 23:01:20 2010 EDT

  Modified files:              
    /loncom/interface	loncoursequeueadmin.pm 
  Log:
  $newusermsg,$addresult,$enrollcount,$output and $keysmsg 
   - all passed to &course_creation as refs to scalars
   - can be passed directly to &batchcreatecourse::build_course().
  
  
Index: loncom/interface/loncoursequeueadmin.pm
diff -u loncom/interface/loncoursequeueadmin.pm:1.21 loncom/interface/loncoursequeueadmin.pm:1.22
--- loncom/interface/loncoursequeueadmin.pm:1.21	Fri Feb 26 22:56:01 2010
+++ loncom/interface/loncoursequeueadmin.pm	Fri Feb 26 23:01:20 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Utilities to administer domain course requests and course self-enroll requests
 #
-# $Id: loncoursequeueadmin.pm,v 1.21 2010/02/26 22:56:01 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.22 2010/02/26 23:01:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -960,8 +960,8 @@
     }
     my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs);
     my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',
-                  \%reqdetails,$longroles,$logmsg,\$newusermsg,\$addresult,
-                  \$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype);
+                  \%reqdetails,$longroles,$logmsg,$newusermsg,$addresult,
+                  $enrollcount,$output,$keysmsg,$ownerdom,$ownername,$cnum,$crstype);
     if ($cid eq "/$dom/$cnum") {
         $result = 'created';
     } else {