--- loncom/interface/lonpreferences.pm 2002/10/14 20:41:07 1.15 +++ loncom/interface/lonpreferences.pm 2003/04/19 01:34:22 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.15 2002/10/14 20:41:07 albertel Exp $ +# $Id: lonpreferences.pm,v 1.19 2003/04/19 01:34:22 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -148,7 +148,7 @@ sub verify_and_change_screenname { } # Nickname $message.='
'; - my $newscreen = $ENV{'form.nickname'}; + $newscreen = $ENV{'form.nickname'}; $newscreen=~s/[^ \w]//g; if ($newscreen) { &Apache::lonnet::put('environment',{'nickname' => $newscreen}); @@ -172,69 +172,146 @@ ENDVCSCREEN } ################################################################ -# Message Forward # +# Colors # ################################################################ -sub msgforwardchanger { +sub colorschanger { my $r = shift; - my $user = $ENV{'user.name'}; - my $domain = $ENV{'user.domain'}; - my %userenv = &Apache::lonnet::get('environment',['msgforward']); - my $msgforward=$userenv{'msgforward'}; my $bodytag=&Apache::loncommon::bodytag( - 'Change Your Message Forwarding'); - $r->print(< 'Page Background', + 'tabbg' => 'Header Background', + 'sidebg'=> 'Header Border', + 'font' => 'Font', + 'link' => 'Un-Visited Link', + 'vlink' => 'Visited Link', + 'alink' => 'Active Link'); + my $chtable=''; + foreach my $item (keys %colortypes) { + my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain); + $chtable.=''.$colortypes{$item}.'      Select'; + } + $r->print(< + $bodytag
- -New Forwarding Address(es) (user:domain,user:domain,...): - + + +$chtable +
-ENDMSG +ENDCOL } -sub verify_and_change_msgforward { +sub verify_and_change_colors { my $r = shift; - my $user = $ENV{'user.name'}; - my $domain = $ENV{'user.domain'}; - my $newscreen = ''; +# figure out colors + my $function='student'; + if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { + $function='coordinator'; + } + if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { + $function='admin'; + } + if (($ENV{'request.role'}=~/^(au|ca)/) || + ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) { + $function='author'; + } + my $domain=&Apache::loncommon::determinedomain(); + my %colortypes=('pgbg' => 'Page Background', + 'tabbg' => 'Header Background', + 'sidebg'=> 'Header Border', + 'font' => 'Font', + 'link' => 'Un-Visited Link', + 'vlink' => 'Visited Link', + 'alink' => 'Active Link'); + my $message=''; - foreach (split(/\,/,$ENV{'form.msgforward'})) { - my ($msuser,$msdomain)=split(/[\@\:]/,$_); - $msuser=~s/\W//g; - $msdomain=~s/\W//g; - if (($msuser) && ($msdomain)) { - if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') { - $newscreen.=$msuser.':'.$msdomain.','; - } else { - $message.='No such user: '.$msuser.':'.$msdomain.'
'; - } - } - } - $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'; - } +# 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
'; +# } + my $bodytag=&Apache::loncommon::bodytag( - 'Change Your Message Forwarding'); - $r->print(<print(< $bodytag

$message -ENDVCMSG +ENDVCCOL } ###################################################### @@ -378,7 +455,8 @@ ENDHEADER "Password data was blank.\n

"); return; } - # Get the keysecen my $lonhost = $r->dir_config('lonHostID'); + # Get the keys + my $lonhost = $r->dir_config('lonHostID'); my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost); if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) { # I do not a have a better idea about how to handle this @@ -393,9 +471,9 @@ ENDERROR } my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo); # - my $currentpass = &des_decrypt($ckey ,$currentpass); - my $newpass1 = &des_decrypt($n1key,$newpass1); - my $newpass2 = &des_decrypt($n2key,$newpass2); + $currentpass = &des_decrypt($ckey ,$currentpass); + $newpass1 = &des_decrypt($n1key,$newpass1); + $newpass2 = &des_decrypt($n2key,$newpass2); # if ($newpass1 ne $newpass2) { &passwordchanger($r, @@ -477,6 +555,10 @@ sub handler { &msgforwardchanger($r); } elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') { &verify_and_change_msgforward($r); + } elsif ($ENV{'form.action'} eq 'changecolors') { + &colorschanger($r); + } 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.debug'}) { @@ -514,7 +596,7 @@ ENDSCREENNAMEFORM $r->print(< - + ENDMSGFORWARDFORM # The "about me" page @@ -523,9 +605,16 @@ ENDMSGFORWARDFORM $r->print(< - + ENDABOUTME + $r->print(< + + + +ENDCOLORFORM + if ($ENV{'user.name'} eq 'albertel') { $r->print(<