[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Thu Apr  6 14:04:23 2006 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Removing obsolete code. &sort_course_groups() sorts. 
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.724 loncom/lonnet/perl/lonnet.pm:1.725
--- loncom/lonnet/perl/lonnet.pm:1.724	Wed Mar 29 14:56:36 2006
+++ loncom/lonnet/perl/lonnet.pm	Thu Apr  6 14:04:23 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.724 2006/03/29 19:56:36 raeburn Exp $
+# $Id: lonnet.pm,v 1.725 2006/04/06 18:04:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5114,9 +5114,6 @@
 		($env{'user.domain'} eq $udom)) {
 		$section=$env{'request.course.sec'};
                 @groups=&sort_course_groups($env{'request.course.groups'},$courseid); 
-                if (@groups > 0) {
-                    @groups = sort(@groups);
-                }
 	    } else {
 		if (! defined($usection)) {
 		    $section=&getsection($udom,$uname,$courseid);