--- loncom/interface/loncoursequeueadmin.pm	2010/02/26 23:39:01	1.12.2.8
+++ loncom/interface/loncoursequeueadmin.pm	2010/09/03 19:20:47	1.12.2.9
@@ -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.8 2010/02/26 23:39:01 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.12.2.9 2010/09/03 19:20:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -466,8 +466,10 @@ 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($udom,$uname,
-                                                   $access_end,$access_start);
+                        foreach my $crs ('1H96711d710194bfegcil1','5422913620b814c90gcil1') {
+                            my $enresult = &enable_additional_roles($cdom,$crs,$udom,$uname,
+                                                                    $access_end,$access_start);
+                        }
                     }
                     if (exists($classlist->{$uname.':'.$udom})) {
                         if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {
@@ -917,10 +919,8 @@ sub update_request_queue {
     return $output;
 }
 
-sub enable_gci_submission {
-    my ($udom,$uname,$access_end,$access_start) = @_;
-    my $cdom = 'gci';
-    my $cnum = '1H96711d710194bfegcil1';
+sub enable_additional_roles {
+    my ($cdom,$cnum,$udom,$uname,$access_end,$access_start) = @_;
     my ($stucounts,$idx,$classlist) = &get_student_counts($cdom,$cnum);
     if (exists($classlist->{$uname.':'.$udom})) {
         if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {