--- loncom/interface/lonpreferences.pm 2004/03/08 17:31:37 1.36 +++ loncom/interface/lonpreferences.pm 2004/03/26 20:29:35 1.41 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.36 2004/03/08 17:31:37 www Exp $ +# $Id: lonpreferences.pm,v 1.41 2004/03/26 20:29:35 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,18 +25,6 @@ # # http://www.lon-capa.org/ # -# (Internal Server Error Handler -# -# (Login Screen -# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, -# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) -# -# 3/1/1 Gerd Kortemeyer) -# -# 3/1 Gerd Kortemeyer -# -# 2/13/02 2/14 2/15 Matthew Hall -# # This package uses the "londes.js" javascript code. # # TODOs that have to be completed: @@ -668,7 +656,7 @@ sub handler { my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain); if ($currentauth =~ /^(unix|internal):/) { push (@Options,({ action => 'changepass', - linktext => 'Change password', + linktext => 'Change Password', href => '/adm/preferences', help => 'Change_Password', subroutine => \&passwordchanger, @@ -721,7 +709,7 @@ sub handler { '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme'; push (@Options,{ action => 'none', linktext => - q{Edit the 'About Me' personal information screen}, + q{Edit the 'About Me' Personal Information Screen}, href => $aboutmeaction}); push (@Options,({ action => 'changecolors', linktext => 'Change Color Scheme', @@ -740,7 +728,7 @@ sub handler { subroutine => \&verify_and_change_colors, })); push (@Options,({ action => 'changelanguages', - linktext => 'Change Language Prefences', + linktext => 'Change Language Preferences', href => '/adm/preferences', breadcrumb=> { href => '/adm/preferences?action=changelanguages', @@ -770,7 +758,6 @@ ENDHEADER my $printmenu = 'yes'; foreach my $option (@Options) { if ($option->{'action'} eq $ENV{'form.action'}) { - &Apache::lonnet::logthis('got action '.$option->{'action'}); $call = $option->{'subroutine'}; $printmenu = $option->{'printmenu'}; if (exists($option->{'breadcrumb'})) { @@ -788,7 +775,7 @@ ENDHEADER if ($printmenu eq 'yes') { my $optionlist = ''; if ($ENV{'user.name'} =~ - /^(albertel|koretemey|korte|hallmat3|turtle)$/ + /^(albertel|kortemey|korte|hallmat3|turtle)$/ ) { push (@Options,({ action => 'debugtoggle', linktext => 'Toggle Debug Messages',