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

[raeburn]

raeburn		Mon Jan 18 15:53:27 2010 EDT

  Modified files:              
    /loncom/interface	loncoursequeueadmin.pm 
  Log:
  - Name of 'st' role available via self-enrollment needs to accommodate
    course type and/or course configuration (non-standard role names).
  
  
Index: loncom/interface/loncoursequeueadmin.pm
diff -u loncom/interface/loncoursequeueadmin.pm:1.15 loncom/interface/loncoursequeueadmin.pm:1.16
--- loncom/interface/loncoursequeueadmin.pm:1.15	Sat Jan 16 16:15:08 2010
+++ loncom/interface/loncoursequeueadmin.pm	Mon Jan 18 15:53:27 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Utilities to administer domain course requests and course self-enroll requests 
 #
-# $Id: loncoursequeueadmin.pm,v 1.15 2010/01/16 16:15:08 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.16 2010/01/18 15:53:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1149,7 +1149,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 />';
         }
@@ -1164,6 +1163,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');
                     }