[LON-CAPA-cvs] cvs: loncom(GCI_3) /interface loncoursequeueadmin.pm

[raeburn]

raeburn		Mon Jan 18 15:54:23 2010 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/interface	loncoursequeueadmin.pm 
  Log:
  - Backport 1.16.
  
  
Index: loncom/interface/loncoursequeueadmin.pm
diff -u loncom/interface/loncoursequeueadmin.pm:1.12.2.6 loncom/interface/loncoursequeueadmin.pm:1.12.2.7
--- loncom/interface/loncoursequeueadmin.pm:1.12.2.6	Fri Jan 15 15:38:10 2010
+++ loncom/interface/loncoursequeueadmin.pm	Mon Jan 18 15:54:23 2010
@@ -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.6 2010/01/15 15:38:10 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
 #
@@ -1096,7 +1096,6 @@
         }
     }
     if (keys(%reqs_by_date)) {
-        my $rolename = &Apache::lonnet::plaintext('st');
         unless ($notitle) {
             $output .= '<b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />';
         }
@@ -1111,6 +1110,7 @@
                 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');
                     }