--- loncom/interface/loncoursequeueadmin.pm	2012/08/15 14:37:13	1.31
+++ 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.31 2012/08/15 14:37:13 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 '') {
@@ -1556,7 +1556,7 @@ sub queued_selfenrollment {
     }
     if (keys(%reqs_by_date)) {
         unless ($notitle) {
-            $output .= '<b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />';
+            $output .= '<br /><b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />';
         }
         $output .= &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row().
@@ -1804,10 +1804,8 @@ sub author_prompt {
     my ($is_active_author,$offer_author);
     if ($env{'environment.canrequest.author'}) {
         unless (&is_active_author()) {
-            if ($env{'environment.canrequest.author'}) {
-                unless (&reqauthor_check() =~ /^approval:\d+$/) {
-                    $offer_author = 1;
-                }
+            unless (&reqauthor_check() =~ /^approval:\d+$/) {
+                $offer_author = 1;
             }
         }
     }