[LON-CAPA-cvs] cvs: loncom /interface loncoursequeueadmin.pm

[raeburn]

raeburn		Fri Jan  4 01:56:35 2013 EDT

  Modified files:              
    /loncom/interface	loncoursequeueadmin.pm 
  Log:
  - Coding style $array[index] preferred to @array[index] when index is a 
    single, scalar, value.
  
  
Index: loncom/interface/loncoursequeueadmin.pm
diff -u loncom/interface/loncoursequeueadmin.pm:1.33 loncom/interface/loncoursequeueadmin.pm:1.34
--- loncom/interface/loncoursequeueadmin.pm:1.33	Wed Jan  2 01:15:26 2013
+++ loncom/interface/loncoursequeueadmin.pm	Fri Jan  4 01:56:35 2013
@@ -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 @@
         $firsturl);
     my $count=0;
     while (my @course = &Apache::loncommon::get_env_multiple('form.'.$count.'radioreq')) {
-        if (@course[0] =~ /^\d+:.*/) {
-            push(@approvals, at course[0]);
-        } elsif (@course[0] =~ /^later:.*/) {
+        if ($course[0] =~ /^\d+:.*/) {
+            push(@approvals,$course[0]);
+        } elsif ($course[0] =~ /^later:.*/) {
             #decide later
         } else {
-            push(@rejections, at course[0]);
+            push(@rejections,$course[0]);
         }
         $count+=1;
     }