--- loncom/interface/lonpreferences.pm 2003/04/19 15:34:06 1.21 +++ loncom/interface/lonpreferences.pm 2003/06/20 19:22:14 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.21 2003/04/19 15:34:06 www Exp $ +# $Id: lonpreferences.pm,v 1.25 2003/06/20 19:22:14 bowersj2 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. @@ -185,10 +186,14 @@ sub msgforwardchanger { 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,...): @@ -295,7 +300,7 @@ 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'; } + my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); $r->print(<