--- loncom/interface/lonfeedback.pm 2009/01/12 04:38:40 1.255.2.3 +++ loncom/interface/lonfeedback.pm 2009/03/18 02:49:39 1.255.2.6 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.255.2.3 2009/01/12 04:38:40 raeburn Exp $ +# $Id: lonfeedback.pm,v 1.255.2.6 2009/03/18 02:49:39 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1795,7 +1795,7 @@ sub print_display_options { 'actn' => 'Action', 'deff' => 'Default for all discussions', 'prca' => 'Preferences can be set for this discussion that determine ....', - 'whpo' => 'Which posts are displayed when you display this bulletin board or resource, and', + 'whpo' => 'Which posts are displayed when you display this discussion board or resource, and', 'unwh' => 'Under what circumstances posts are identified as "NEW", and', 'wipa' => 'Whether individual posts can be marked as read/unread', 'allposts' => 'All posts', @@ -1960,7 +1960,7 @@ END $lt{$disctogg} END - my $save = &mt('Save Changes'); + my $save = &mt('Save'); $r->print(&Apache::loncommon::end_data_table_row()); $r->print(&Apache::loncommon::end_data_table()); $r->print(<   - @@ -2164,13 +2164,13 @@ $start_page   - $section_sel   - $group_sel @@ -2889,9 +2889,18 @@ sub show_preview { my $end_page = &Apache::loncommon::end_page(); - $r->print($start_page.'
'. - ''.&mt('Subject').': '.$subject.'

'. - $message.'
'.$end_page); + $r->print($start_page + .'

'.&mt('Preview').'

' + .&Apache::lonhtmlcommon::start_pick_box() + .&Apache::lonhtmlcommon::row_title(&mt('Subject')) + .$subject + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title(&mt('Message')) + .$message + .&Apache::lonhtmlcommon::row_closure(1) + .&Apache::lonhtmlcommon::end_pick_box() + .$end_page + ); } @@ -3435,7 +3444,7 @@ sub handler { my %lt = &Apache::lonlocal::texthash( 'mnpa' => 'Marked "New" posts as read in a total of', 'robb' => 'resources/bulletin boards.', - 'twnp' => 'There are currently no resources or bulletin boards with unread discussion postings.' + 'twnp' => 'There are currently no resources or discussion boards with unread discussion postings.' ); foreach my $res (@resources) { my $ressymb=$res;