[LON-CAPA-cvs] cvs: loncom(GCI_3) /interface loncoursequeueadmin.pm
raeburn
raeburn@source.lon-capa.org
Sun, 20 Dec 2009 02:05:57 -0000
raeburn Sun Dec 20 02:05:57 2009 EDT
Modified files: (Branch: GCI_3)
/loncom/interface loncoursequeueadmin.pm
Log:
- Customization for GCI_3.
- Include firstres in items set during creation of Concept Test.
Index: loncom/interface/loncoursequeueadmin.pm
diff -u loncom/interface/loncoursequeueadmin.pm:1.12.2.2 loncom/interface/loncoursequeueadmin.pm:1.12.2.3
--- loncom/interface/loncoursequeueadmin.pm:1.12.2.2 Mon Dec 7 04:48:04 2009
+++ loncom/interface/loncoursequeueadmin.pm Sun Dec 20 02:05:57 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Utilities to administer domain course requests and course self-enroll requests
#
-# $Id: loncoursequeueadmin.pm,v 1.12.2.2 2009/12/07 04:48:04 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.12.2.3 2009/12/20 02:05:57 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -981,6 +981,9 @@
my ($dom,$context,$details,$owneremail,$domdefs) = @_;
my %batchhash;
my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users};
+ if ($dom eq 'gcitest') {
+ push(@items,'firstres');
+ }
if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {
my $emailenc = &Apache::lonnet::escape($owneremail);
my $owner = $details->{'owner'}.':'.$details->{'domain'};