--- loncom/interface/lonpreferences.pm 2009/02/18 19:34:08 1.140 +++ loncom/interface/lonpreferences.pm 2009/02/23 20:25:44 1.144 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.140 2009/02/18 19:34:08 schafran Exp $ +# $Id: lonpreferences.pm,v 1.144 2009/02/23 20:25:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1215,8 +1215,10 @@ sub passwordchanger { Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/preferences?action=changepass', text => 'Change Password'}); - $r->print(Apache::loncommon::start_page('Change Password')); - $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password')); + unless ($caller eq 'reset_by_email') { + $r->print(Apache::loncommon::start_page('Change Password')); + $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password')); + } if ((!defined($caller)) || ($caller eq 'preferences')) { $user = $env{'user.name'}; $domain = $env{'user.domain'}; @@ -1552,14 +1554,20 @@ ENDERROR # Inform the user the password has (not?) been changed my $message; if ($result =~ /^ok$/) { - $message = &mt('The password for [_1] was successfully changed',$user); - print_main_menu($r, $message); + $message = &mt('The password for [_1] was successfully changed.',$user); + if ($caller eq 'reset_by_email') { + $r->print($message.'
'); + } else { + &print_main_menu($r, $message); + } # $r->print("

".&mt('The password for [_1] was successfully changed',$user)."

"); } else { # error error: run in circles, scream and shout - $message = &mt("The password for [_1] was not changed",$user) + $message = &mt("The password for [_1] was not changed.",$user).' '. .&mt('Please make sure your old password was entered correctly.'); - print_main_menu($r, $message); + unless ($caller eq 'reset_by_email') { + &print_main_menu($r, $message); + } # $r->print("

".&mt("The password for [_1] was not changed",$user)."

". # &mt('Please make sure your old password was entered correctly.')); return 1; @@ -1667,15 +1675,8 @@ END END $r->print(&Apache::loncommon::end_data_table_row(). &Apache::loncommon::end_data_table()); - $r->print(<<"END"); -
-
- -
-
-Note: $lt{'thde'} - -END + + $r->print('



'.&mt('Note').': '.$lt{'thde'}.''); } sub verify_and_change_discussion { @@ -1738,17 +1739,17 @@ sub coursedisplaychanger { } my %pagenames = &Apache::lonlocal::texthash( firstres => 'First resource', - whatsnew => "What's New page", + whatsnew => "What's New Page", ); my $whatsnew_off=&mt('Display the [_1]first resource[_2] in the course.','',''); - my $whatsnew_on=&mt("Display the [_1]What's New page[_2] - a summary of items in the course which require attention.",'',''); + my $whatsnew_on=&mt("Display the [_1]What's New Page[_2] - a summary of items in the course which require attention.",'',''); $r->print('
' .&mt('Set the default page to be displayed when you select a course role') .' ' .&mt('(Currently: [_1])',$pagenames{$currvalue}) .'
' - .&mt("The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the [_1]What's New page[_2] in the course.",'','') + .&mt("The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the [_1]What's New Page[_2] in the course.",'','') .'

' ); $r->print(< 'you will be taken to the start of the course.', 'apwb' => 'a page will be displayed that lists items in the course that may require action from you.', 'gtts' => 'Go to the start of the course', - 'dasp' => "Display the What's New page listing course action items", + 'dasp' => "Display the What's New Page listing course action items", ); my $newdisp = $env{'form.newdisp'}; $message = ''.$lt{'defs'}.': '.$lt{'when'}.', '; @@ -1821,7 +1822,7 @@ if (&Apache::lonnet::usertools_access($u my @menu= ({ categorytitle=>'Personal Data', items =>[ - { linktext => 'Personal Homepage', + { linktext => 'Personal Information Page', url => $aboutmeurl, permission => $permissions{'aboutme'}, #help => 'Prefs_About_Me', @@ -2158,7 +2159,7 @@ sub handler2 { '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; push (@Options,{ action => 'none', linktext => - q{Edit the Personal Homepage}, + q{Edit the Personal Information Page}, help => 'Prefs_About_Me', href => $aboutmeaction}); push (@Options,({ action => 'changecolors',