--- loncom/interface/lonpreferences.pm 2009/02/18 07:06:15 1.139
+++ loncom/interface/lonpreferences.pm 2009/02/24 16:16:35 1.146
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.139 2009/02/18 07:06:15 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.146 2009/02/24 16:16:35 hauer 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,19 @@ 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)
- .&mt('Please make sure your old password was entered correctly.');
- print_main_menu($r, $message);
+ $message = &mt("The password for [_1] was not changed.",$user).' '.&mt('Please make sure your old password was entered correctly.');
+ 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 +1674,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 +1738,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.",'','')
.'
');
}
@@ -1771,7 +1771,7 @@ sub verify_and_change_coursepage {
'ywbt' => '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",
);
my $newdisp = $env{'form.newdisp'};
$message = ''.$lt{'defs'}.': '.$lt{'when'}.', ';
@@ -1821,7 +1821,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 +2158,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',