[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'};