--- 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'); }