--- loncom/interface/loncoursequeueadmin.pm 2013/01/04 01:56:35 1.34
+++ loncom/interface/loncoursequeueadmin.pm 2013/08/17 00:34:29 1.37
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Utilities to administer domain course requests and course self-enroll requests
#
-# $Id: loncoursequeueadmin.pm,v 1.34 2013/01/04 01:56:35 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.37 2013/08/17 00:34:29 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1256,7 +1256,7 @@ sub update_request_queue {
}
$output .= '
';
} else {
- $output .= ''.&mt("For the following course/community requests an error occurred when removing requests for the following from the pending queue:").'
';
+ $output .= ''.&mt("For the following course/community requests an error occurred when removing requests from the pending queue:").'
';
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'};
@@ -1840,7 +1843,7 @@ sub process_reqauthor {
unless ($env{'environment.canrequest.author'}) {
return ''.
&mt('You do not currently have rights to request an authoring space.').'
'.
- &mt('Please contact the [_1]helpdesk[_2].','',
+ &mt('Please contact the [_1]helpdesk[_2] for assistance.','',
'').'';
}
my $queued = &reqauthor_check();