loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.236, 2005/06/28 15:56:35	version 1.237, 2005/06/28 16:28:16
Line 2180 sub listdata {	Line 2180 sub listdata {
if ($sortorder eq 'realmstudent') {	if ($sortorder eq 'realmstudent') {
my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);	my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
my ($bstudent,$brealm)=($b=~/^$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);	($arealm cmp $brealm) \|\| ($astudent cmp $bstudent);
} else {	} else {
$a cmp $b;	$a cmp $b;