--- loncom/interface/loncoursequeueadmin.pm 2009/12/07 04:48:04 1.12.2.2 +++ loncom/interface/loncoursequeueadmin.pm 2010/01/07 17:07:45 1.12.2.4 @@ -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.4 2010/01/07 17:07:45 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -457,8 +457,8 @@ sub update_request_queue { if ($uhome ne 'no_host') { if (exists($requesthash{$uname.':'.$udom})) { if ($cdom eq 'gci' && $cnum eq '9615072b469884921gcil1') { - my $enresult = &enable_gci_submission($uname,$udom, - $access_start,$access_end); + my $enresult = &enable_gci_submission($udom,$uname, + $access_end,$access_start); } if (exists($classlist->{$uname.':'.$udom})) { if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') { @@ -981,6 +981,9 @@ sub build_batchcreatehash { 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'};