--- loncom/interface/lonpreferences.pm 2008/01/20 22:38:06 1.112 +++ loncom/interface/lonpreferences.pm 2008/01/21 04:30:05 1.113 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.112 2008/01/20 22:38:06 raeburn Exp $ +# $Id: lonpreferences.pm,v 1.113 2008/01/21 04:30:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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 for which notification is sent').''. + &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| -
+

@@ -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=