--- loncom/interface/lonpreferences.pm 2008/01/17 16:37:28 1.110 +++ loncom/interface/lonpreferences.pm 2008/03/06 22:27:45 1.115 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.110 2008/01/17 16:37:28 bisitz Exp $ +# $Id: lonpreferences.pm,v 1.115 2008/03/06 22:27:45 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -581,7 +581,7 @@ sub clickerchanger { $clickers=~s/\,/\n/gs; my $text=&mt('Enter response device ("clicker") numbers'); my $change=&mt('Register'); - my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration', 'Locating your clicker ID'); + my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('Locating your clicker ID')); $r->print(< @@ -624,6 +624,7 @@ sub msgforwardchanger { crit => 'Critical only', reg => 'Non-critical only', foad => 'Forwarding Address(es)', + noti => 'Notification E-mail Address(es)', foad_exmpl => 'e.g. userA:domain1,userB:domain2,...', mnot => 'Email Address(es) which should be notified about new LON-CAPA messages', # old: 'Message Notification Email Address(es)', mnot_exmpl => 'e.g. joe@doe.com', @@ -633,10 +634,9 @@ sub msgforwardchanger { toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", prme => 'Back to preferences menu', ); - my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding", - &mt("What are forwarding and notification addresses?")); - my $criticalMessageHelp = Apache::loncommon::help_open_topic("Course_Critical_Message", - &mt("What are critical messages?")); + my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding"); + my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification"); + my $criticalMessageHelp = &Apache::loncommon::help_open_topic("Course_Critical_Message"); my @allow_html = split(/,/,$userenv{'notifywithhtml'}); my %allnot = &get_notifications(\%userenv); my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email(); @@ -699,12 +699,12 @@ $validatescript $r->print(<$lt{'foad'} $forwardingHelp
$lt{'foad'} ($lt{'foad_exmpl'}): -
-$criticalMessageHelp +
+

$lt{'noti'} $notificationHelp

$lt{'mnot'} ($lt{'mnot_exmpl'}):
ENDMSG my @sortforwards = sort (keys(%allnot)); @@ -713,7 +713,8 @@ ENDMSG ' '. ''.&mt('Action').''. ''.&mt('Notification address').''. - &mt('Types of message to forward to this address').''. + &mt('Types of message for which notification is sent'). + $criticalMessageHelp.''. &mt('Excerpt retains HTML tags in message').''. &Apache::loncommon::end_data_table_header_row(); my $num = 0; @@ -796,7 +797,7 @@ ENDMSG $num ++; $r->print($output); $r->print(qq| -
+

@@ -1164,7 +1165,7 @@ sub jscript_send { sub client_form { my ($caller,$hexkey,$currentpass,$defdom) = @_; my %lt=&Apache::lonlocal::texthash( - 'email' => 'EMail Address', + 'email' => 'E-mail Address', 'username' => 'Username', 'domain' => 'Domain', 'currentpass' => 'Current Password', @@ -1185,7 +1186,7 @@ sub client_form { -: +: |; $output .= &Apache::loncommon::select_dom_form($defdom,'udom').' @@ -1667,16 +1668,17 @@ sub handler { push (@Options,({ action => 'changemsgforward', linktext => 'Change Message Forwarding and Notification Email Addresses', href => '/adm/preferences', - help => 'Prefs_Forwarding', + help => 'Prefs_Messages', breadcrumb => { href => '/adm/preferences?action=changemsgforward', - text => 'Change Message Forwarding'}, + text => 'Change Message Forwarding/Notification'}, subroutine => \&msgforwardchanger, }, { action => 'verify_and_change_msgforward', + help => 'Prefs_Messages', breadcrumb => { href => '/adm/preferences?action=changemsgforward', - text => 'Change Message Forwarding'}, + text => 'Change Message Forwarding/Notification'}, printmenu => 'no', subroutine => \&verify_and_change_msgforward })); my $aboutmeaction=