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

[albertel]

albertel		Tue Jun 28 12:28:17 2005 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - the 'All Student' 'All Resources' relam was un ordered
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.236 loncom/interface/lonparmset.pm:1.237
--- loncom/interface/lonparmset.pm:1.236	Tue Jun 28 11:56:35 2005
+++ loncom/interface/lonparmset.pm	Tue Jun 28 12:28:16 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.236 2005/06/28 15:56:35 albertel Exp $
+# $Id: lonparmset.pm,v 1.237 2005/06/28 16:28:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2180,6 +2180,11 @@
 	if ($sortorder eq 'realmstudent') {
 	    my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
 	    my ($bstudent,$brealm)=($b=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
+	    if (!defined($astudent) && !defined($bstudent) &&
+		!defined($arealm) && !defined($brealm)) {
+		($arealm)=($a=~/^$env{'request.course.id'}\.(.+)\.[^\.]+$/);
+		($brealm)=($b=~/^$env{'request.course.id'}\.(.+)\.[^\.]+$/);
+	    }
             ($arealm cmp $brealm) || ($astudent cmp $bstudent);
 	} else {
 	    $a cmp $b;