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

[www]

www		Sat May 10 19:01:57 2003 EDT

  Modified files:              
    /loncom/interface	lonpickstudent.pm lonsyllabus.pm 
  Log:
  Fix display of course faculty and staff
  
  
Index: loncom/interface/lonpickstudent.pm
diff -u loncom/interface/lonpickstudent.pm:1.4 loncom/interface/lonpickstudent.pm:1.5
--- loncom/interface/lonpickstudent.pm:1.4	Thu Mar 27 20:53:55 2003
+++ loncom/interface/lonpickstudent.pm	Sat May 10 19:01:56 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a student from the classlist
 #
-# $Id: lonpickstudent.pm,v 1.4 2003/03/28 01:53:55 www Exp $
+# $Id: lonpickstudent.pm,v 1.5 2003/05/10 23:01:56 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,7 +92,7 @@
     my %coursepersonnel=
        &Apache::lonnet::get_course_adv_roles();
     $r->print('<table border="2">');
-    foreach my $role (keys %coursepersonnel) {
+    foreach my $role (sort keys %coursepersonnel) {
        foreach (split(/\,/,$coursepersonnel{$role})) {
 	   my ($puname,$pudom)=split(/\:/,$_);
 	   $r->print('<tr><td>'.
Index: loncom/interface/lonsyllabus.pm
diff -u loncom/interface/lonsyllabus.pm:1.17 loncom/interface/lonsyllabus.pm:1.18
--- loncom/interface/lonsyllabus.pm:1.17	Tue Mar 25 14:18:40 2003
+++ loncom/interface/lonsyllabus.pm	Sat May 10 19:01:56 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.17 2003/03/25 19:18:40 www Exp $
+# $Id: lonsyllabus.pm,v 1.18 2003/05/10 23:01:56 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -96,7 +96,7 @@
 # -------------------------------------------------------- Get course personnel
     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
     $r->print('<table border="2">');
-    foreach (keys %coursepersonnel) {
+    foreach (sort keys %coursepersonnel) {
 	$r->print('<tr><td>'.$_.'</td><td>');
         foreach (split(/\,/,$coursepersonnel{$_})) {
 	    my ($puname,$pudom)=split(/\:/,$_);