--- loncom/interface/lonpreferences.pm 2003/04/19 01:42:34 1.20 +++ loncom/interface/lonpreferences.pm 2003/05/21 00:48:27 1.24 @@ -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.24 2003/05/21 00:48:27 www 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.=''.$colortypes{$item}.'      Select'; + .$item."','parmform.pres','psub'".');">Select'; } + my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); $r->print(< $bodytag - +
+ + + +
$chtable
- + +
@@ -385,18 +377,19 @@ sub verify_and_change_colors { 'alink' => 'Active Link'); my $message=''; -# my $newscreen=''; -# $newscreen=~s/\,$//; -# if ($newscreen) { -# &Apache::lonnet::put('environment',{'msgforward' => $newscreen}); -# &Apache::lonnet::appenv('environment.msgforward' => $newscreen); -# $message.='Set new message forwarding to '.$newscreen.'
'; -# } else { -# &Apache::lonnet::del('environment',['msgforward']); -# &Apache::lonnet::delenv('environment\.msgforward'); -# $message.='Reset message forwarding
'; -# } - + foreach my $item (keys %colortypes) { + my $color=$ENV{'form.'.$item}; + my $entry='color.'.$function.'.'.$item; + if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$ENV{'form.resetall'})) { + &Apache::lonnet::put('environment',{$entry => $color}); + &Apache::lonnet::appenv('environment.'.$entry => $color); + $message.='Set '.$colortypes{$item}.' to '.$color.'
'; + } else { + &Apache::lonnet::del('environment',[$entry]); + &Apache::lonnet::delenv('environment\.'.$entry); + $message.='Reset '.$colortypes{$item}.'
'; + } + } my $bodytag=&Apache::loncommon::bodytag( 'Change Color Scheme for Current Role Type'); $r->print(< $message +
+ + +
ENDVCCOL } @@ -654,7 +651,9 @@ sub handler { } elsif ($ENV{'form.action'} eq 'verify_and_change_colors') { &verify_and_change_colors($r); } elsif ($ENV{'form.action'} eq 'debugtoggle') { - if ($ENV{'user.name'} eq 'albertel' ) { + if (($ENV{'user.name'} eq 'albertel' ) || + ($ENV{'user.name'} eq 'kortemey' ) || + ($ENV{'user.name'} eq 'korte')) { if ($ENV{'user.debug'}) { &Apache::lonnet::delenv('user\.debug'); } else { @@ -709,7 +708,9 @@ ENDABOUTME ENDCOLORFORM - if ($ENV{'user.name'} eq 'albertel') { + if (($ENV{'user.name'} eq 'albertel' ) || + ($ENV{'user.name'} eq 'kortemey' ) || + ($ENV{'user.name'} eq 'korte')) { $r->print(<