--- loncom/interface/lonpreferences.pm 2008/12/23 19:22:13 1.132 +++ loncom/interface/lonpreferences.pm 2009/02/17 21:18:05 1.138 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.132 2008/12/23 19:22:13 raeburn Exp $ +# $Id: lonpreferences.pm,v 1.138 2009/02/17 21:18:05 schafran Exp $ # # Copyright Michigan State University Board of Trustees # @@ -126,7 +126,7 @@ $warning
ENDLSCREEN - $r->print('
'); + $r->print('
'); } @@ -172,7 +172,7 @@ sub languagechanger {
$pref: $selectionbox ENDLSCREEN - $r->print('
'); + $r->print('
'); } @@ -227,7 +227,7 @@ sub texenginechanger { my %lt=&Apache::lonlocal::texthash( 'headline' => 'Change Math Preferences', 'preftxt' => 'Preferred method to display Math', - 'change' => 'Change', + 'change' => 'Save', 'exmpl' => 'Examples', 'jsmath' => 'jsMath:', 'tth' => 'tth (TeX to HTML):', @@ -239,8 +239,9 @@ sub texenginechanger {

-$lt{'preftxt'}:
-$selectionbox +$lt{'preftxt'}: $selectionbox +
+


@@ -402,7 +403,7 @@ sub rolesprefchanger {

'.$roles_check_list.'
- + '); } @@ -515,27 +516,30 @@ sub screennamechanger { ('environment',['screenname','nickname']); my $screenname=$userenv{'screenname'}; my $nickname=$userenv{'nickname'}; - my %lt = &Apache::lonlocal::texthash( - text_screenname => 'New screenname (shown if you post anonymously):', - text_nickname => 'New nickname (shown if you post non-anonymously):', - text_submit => 'Change', - ); Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/preferences?action=changescreenname', text => 'Change Screen Name'}); $r->print(Apache::loncommon::start_page('Change Screen Name')); $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Screen Name')); - $r->print(< - -
$lt{'text_screenname'} - -
$lt{'text_nickname'} - -
- - -ENDSCREEN + $r->print('

' + .&mt('Change the name that is displayed in your posts.') + .'

' + ); + $r->print('
' + .'' + .&Apache::lonhtmlcommon::start_pick_box() + .&Apache::lonhtmlcommon::row_title(&mt('New screenname (shown if you post anonymously)')) + .'' + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title(&mt('New nickname (shown if you post non-anonymously)')) + .'' + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title() + .'' + .&Apache::lonhtmlcommon::row_closure(1) + .&Apache::lonhtmlcommon::end_pick_box() + .'
' + ); } sub verify_and_change_screenname { @@ -604,7 +608,7 @@ sub iconchanger { my $useicons=&mt('Use icons and text'); my $usebuttons=&mt('Use buttons and text'); my $useicononly=&mt('Use icons only'); - my $change=&mt('Change'); + my $change=&mt('Save'); $r->print(< @@ -697,7 +701,7 @@ sub domcoordchanger { } my $text=&mt('By default, the Domain Coordinator can enter your construction space.'); my $construction=&mt('Block access to construction space'); - my $change=&mt('Change'); + my $change=&mt('Save'); $r->print(< @@ -776,11 +780,11 @@ sub msgforwardchanger { mnot => 'E-mail Address(es) which should be notified about new LON-CAPA messages', # old: 'Message Notification Email Address(es)', mnot_exmpl => 'e.g. joe@doe.com', - chg => 'Change', + chg => 'Save', email => 'The e-mail address entered in row ', notv => 'is not a valid e-mail address', toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", - prme => 'Back to preferences menu', + prme => 'Back', ); Apache::lonhtmlcommon::add_breadcrumb( { href => '/adm/preferences?action=changemsgforward', @@ -952,8 +956,8 @@ ENDMSG $r->print(qq|

- + |); @@ -1112,6 +1116,9 @@ sub colorschanger { } my $end_data_table = &Apache::loncommon::end_data_table(); my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); + my $save = &mt('Save'); + my $rstall = &mt('Reset All'); + my $resetdefault = &mt('Reset All Colors to Default'); $r->print(< @@ -1150,8 +1157,8 @@ $start_data_table $chtable $end_data_table - - + + ENDCOL } @@ -1179,7 +1186,7 @@ sub verify_and_change_colors { $message.=&mt('Set '.$colortypes{$item}.' to ').'"'.$color.'".
'; } else { &Apache::lonnet::del('environment',[$entry]); - &Apache::lonnet::delenv('environment\.'.$entry); + &Apache::lonnet::delenv('environment.'.$entry); $message.=&mt('Reset '.$colortypes{$item}.'.').'
'; } } @@ -1335,7 +1342,7 @@ sub client_form { 'currentpass' => 'Current Password', 'newpass' => 'New Password', 'confirmpass' => 'Confirm Password', - 'changepass' => 'Change Password'); + 'changepass' => 'Save'); my $output = qq|
@@ -1598,9 +1605,9 @@ sub discussionchanger { 'pref' => 'Display Preference', 'curr' => 'Current setting ', 'actn' => 'Action', - 'sdpf' => 'Set display preferences for discussion posts for both bulletin boards and individual resources in all your courses.', + 'sdpf' => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.', 'prca' => 'Preferences can be set that determine', - 'whpo' => 'Which posts are displayed when you display a bulletin board or resource, and', + 'whpo' => 'Which posts are displayed when you display a discussion board or resource, and', 'unwh' => 'Under what circumstances posts are identfied as "New"', 'allposts' => 'All posts', 'unread' => 'New posts only', @@ -1663,7 +1670,7 @@ END $r->print(<<"END");

- +

Note: $lt{'thde'} @@ -1729,14 +1736,21 @@ sub coursedisplaychanger { $whatsnewselect = ''; } } - my %pagenames = ( + 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] in the course.','first resource'); - my $whatsnew_on=&mt('Display the "[_1]" page - a summary of items in the course which require attention.',"What's New"); + 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.",'',''); - $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]" page in the course',"What's New").'

'); + $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.",'','') + .'

' + ); $r->print(< @@ -1807,7 +1821,7 @@ if (&Apache::lonnet::usertools_access($u my @menu= ({ categorytitle=>'Personal Data', items =>[ - { linktext => 'About Me', + { linktext => 'Personal Homepage', url => $aboutmeurl, permission => $permissions{'aboutme'}, #help => 'Prefs_About_Me', @@ -1888,7 +1902,7 @@ my @menu= permission => 'F', #help => 'Change_Discussion_Display', icon => 'mail-message-new.png', - linktitle => 'Set display preferences for discussion posts for both bulletin boards and individual resources in all your courses.' + linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.' }, ] }, @@ -2144,7 +2158,7 @@ sub handler2 { '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; push (@Options,{ action => 'none', linktext => - q{Edit the 'About Me' Personal Information Screen}, + q{Edit the Personal Homepage}, help => 'Prefs_About_Me', href => $aboutmeaction}); push (@Options,({ action => 'changecolors',