--- loncom/interface/loncoursequeueadmin.pm 2011/08/26 15:57:56 1.28
+++ loncom/interface/loncoursequeueadmin.pm 2011/11/30 12:31:00 1.29
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Utilities to administer domain course requests and course self-enroll requests
#
-# $Id: loncoursequeueadmin.pm,v 1.28 2011/08/26 15:57:56 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.29 2011/11/30 12:31:00 goltermann Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -424,9 +424,11 @@ sub build_queue_display {
}
unless ($context eq 'pending') {
$row = '
'.
+ ''.&mt('Approve').''.
'
| ';
+ ''.&mt('Reject').''.
+ ''.&mt('Decide Later').
+ '
';
}
$row .= ''.$namelink.' | '."\n";
if ($context eq 'course') {
@@ -461,8 +463,19 @@ sub update_request_queue {
@processing_errors,@warn_approves,@warn_rejects,@approvals,@warn_dels,
@rejections,@rejectionerrors,@nopermissions,%courseroles,
%communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,$firsturl);
- @approvals = &Apache::loncommon::get_env_multiple('form.approvereq');
- @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');
+ 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:.*/) {
+ #decide later
+ } else {
+ push(@rejections,@course[0]);
+ }
+ $count+=1;
+ }
+
+
$now = time;
$sender = $env{'user.name'}.':'.$env{'user.domain'};
if ($context eq 'course') {