--- loncom/interface/lonparmset.pm 2005/06/28 15:56:35 1.236 +++ loncom/interface/lonparmset.pm 2005/06/28 16:28:16 1.237 @@ -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 @@ sub listdata { 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;