--- loncom/interface/lonpreferences.pm 2003/04/19 01:42:34 1.20 +++ loncom/interface/lonpreferences.pm 2003/04/30 15:49:45 1.23 @@ -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.23 2003/04/30 15:49:45 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -50,6 +50,7 @@ use Apache::File; use Crypt::DES; use DynaLoader; # for Crypt::DES version use Apache::loncommon(); +use Apache::lonhtmlcommon(); # # Write lonnet::passwd to do the call below. @@ -272,7 +273,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,15 +296,16 @@ 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.='