--- loncom/interface/loncoursequeueadmin.pm 2010/01/15 05:26:51 1.12.2.5
+++ loncom/interface/loncoursequeueadmin.pm 2010/01/18 15:54:23 1.12.2.7
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Utilities to administer domain course requests and course self-enroll requests
#
-# $Id: loncoursequeueadmin.pm,v 1.12.2.5 2010/01/15 05:26:51 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.12.2.7 2010/01/18 15:54:23 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -67,7 +67,6 @@ described at http://www.lon-capa.org.
package Apache::loncoursequeueadmin;
use strict;
-use Apache::Constants qw(:common :http);
use Apache::lonnet;
use Apache::loncommon;
use Apache::lonmsg;
@@ -1097,7 +1096,6 @@ sub queued_selfenrollment {
}
}
if (keys(%reqs_by_date)) {
- my $rolename = &Apache::lonnet::plaintext('st');
unless ($notitle) {
$output .= ''.&mt('Enrollment requests pending Course Coordinator approval').'
';
}
@@ -1112,6 +1110,7 @@ sub queued_selfenrollment {
foreach my $crs (@{$reqs_by_date{$item}}) {
my %courseinfo = &Apache::lonnet::coursedescription($crs);
my $usec = $selfenrollrequests{$crs}{'section'};
+ my $rolename = &Apache::lonnet::plaintext('st',$courseinfo{'type'},$crs);
if ($usec eq '') {
$usec = &mt('No section');
}