--- loncom/interface/lonpreferences.pm 2003/04/19 01:42:34 1.20 +++ loncom/interface/lonpreferences.pm 2003/04/30 15:12:29 1.22 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.20 2003/04/19 01:42:34 www Exp $ +# $Id: lonpreferences.pm,v 1.22 2003/04/30 15:12:29 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -272,7 +272,8 @@ ENDVCMSG sub colorschanger { my $r = shift; my $bodytag=&Apache::loncommon::bodytag( - 'Change Color Scheme for Current Role Type'); + 'Change Color Scheme for Current Role Type','', + 'onUnload="pclose();"'); # figure out colors my $function='student'; if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { @@ -294,14 +295,14 @@ sub colorschanger { 'vlink' => 'Visited Link', 'alink' => 'Active Link'); my $chtable=''; - foreach my $item (keys %colortypes) { + foreach my $item (sort(keys(%colortypes))) { my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain); $chtable.='