--- loncom/interface/loncoursequeueadmin.pm 2013/01/02 01:15:26 1.33 +++ loncom/interface/loncoursequeueadmin.pm 2013/01/04 01:56:35 1.34 @@ -1,7 +1,7 @@ # The LearningOnline Network # Utilities to administer domain course requests and course self-enroll requests # -# $Id: loncoursequeueadmin.pm,v 1.33 2013/01/02 01:15:26 raeburn Exp $ +# $Id: loncoursequeueadmin.pm,v 1.34 2013/01/04 01:56:35 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -536,12 +536,12 @@ sub update_request_queue { $firsturl); my $count=0; while (my @course = &Apache::loncommon::get_env_multiple('form.'.$count.'radioreq')) { - if (@course[0] =~ /^\d+:.*/) { - push(@approvals,@course[0]); - } elsif (@course[0] =~ /^later:.*/) { + if ($course[0] =~ /^\d+:.*/) { + push(@approvals,$course[0]); + } elsif ($course[0] =~ /^later:.*/) { #decide later } else { - push(@rejections,@course[0]); + push(@rejections,$course[0]); } $count+=1; }