[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface loncoursequeueadmin.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2010-02-26 23:01:20
Message-ID: cvsraeburn1267225280 () cvsserver
[Download RAW message or body]
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 {
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic