--- loncom/interface/lonpreferences.pm 2003/04/30 15:49:45 1.23 +++ loncom/interface/lonpreferences.pm 2003/07/05 10:07:11 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.23 2003/04/30 15:49:45 matthew Exp $ +# $Id: lonpreferences.pm,v 1.26 2003/07/05 10:07:11 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -180,16 +180,20 @@ sub msgforwardchanger { my $r = shift; my $user = $ENV{'user.name'}; my $domain = $ENV{'user.domain'}; - my %userenv = &Apache::lonnet::get('environment',['msgforward']); + my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']); my $msgforward=$userenv{'msgforward'}; my $notification=$userenv{'notification'}; my $critnotification=$userenv{'critnotification'}; my $bodytag=&Apache::loncommon::bodytag( 'Change Your Message Forwarding and Notification'); + my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding", + "What are forwarding ". + "and notification ". + "addresses"); $r->print(< $bodytag - +$forwardingHelp
New Forwarding Address(es) (user:domain,user:domain,...): @@ -651,7 +655,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 { @@ -706,7 +712,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(<