--- loncom/interface/loncoursequeueadmin.pm	2012/08/16 17:02:55	1.32
+++ loncom/interface/loncoursequeueadmin.pm	2013/07/24 18:21:39	1.36
@@ -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.36 2013/07/24 18:21:39 bisitz 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;
     }
@@ -1256,7 +1256,7 @@ sub update_request_queue {
             }
             $output .= '</ul></p>';
         } else {
-            $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests for the following from the pending queue:").'<ul>';
+            $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests from the pending queue:").'<ul>';
             foreach my $cnum (@warn_dels) {
                 my $showcourse;
                 if (ref($requesthash{$cnum.'_'.$queue})) {
@@ -1352,6 +1352,9 @@ sub build_batchcreatehash {
         }
         $batchhash{'title'} = $details->{'cdescr'};
         $batchhash{'coursecode'} = $details->{'instcode'};
+        if ($domdefs->{'officialcredits'} || $domdefs->{'unofficialcredits'}) {
+            $batchhash{'defaultcredits'} = $details->{'defaultcredits'};
+        }
         $batchhash{'emailenc'} = $emailenc;
         $batchhash{'adds'} = $details->{'autoadds'};
         $batchhash{'drops'} = $details->{'autodrops'};
@@ -1470,7 +1473,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 '') {