--- loncom/interface/loncoursequeueadmin.pm 2012/08/16 17:02:55 1.32 +++ 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.32 2012/08/16 17:02:55 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; } @@ -1470,7 +1470,7 @@ sub get_processtype { } else { my %alltasks; if (($isadv) && ($settings{'_LC_adv'} ne '')) { - $val = $settings{$crstype}{'_LC_adv'}; + $val = $settings{'_LC_adv'}; @{$inststatuses} = ('_LC_adv_'); } else { if ($userenv{'inststatus'} ne '') {