--- loncom/interface/lonwhatsnew.pm 2006/01/06 22:50:29 1.46 +++ loncom/interface/lonwhatsnew.pm 2006/01/09 22:55:47 1.48 @@ -1,5 +1,5 @@ # -# $Id: lonwhatsnew.pm,v 1.46 2006/01/06 22:50:29 albertel Exp $ +# $Id: lonwhatsnew.pm,v 1.48 2006/01/09 22:55:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -564,21 +564,34 @@ sub display_discussion_config { if ($current eq '') { $current = 'on'; } - my %status = ( $current => 'checked="checked"'); - - $r->print('
'.&mt('Choose whether or not to display a count of the number of new posts for each resource or bulletin board which has unread posts.').'
'.&mt('This can increase the time taken to gather data for the [_1] page by a few seconds.',"What's New?").'  '); + my %opposite = ( + 'on' => 'off', + 'off' => 'on', + ); + $r->print(''); + $r->print('
'.&mt('Choose whether or not to display a count of the number of new posts for each resource or bulletin board which has unread posts.').'
'.&mt('This can increase the time taken to gather data for the [_1] page by a few seconds.',"What's New?").'  '.&mt('Currently set to [_1].',''.$current.'')); $r->print('

-
'. -&mt('Display of unread post counts?').'  + - -    - + '); - $r->print('

-
'); + $r->print('
+ +         + + '); return; } @@ -877,6 +890,9 @@ sub check_thresholds { if ($resource->handgrade($part) eq 'yes') { next; } + if ($resource->is_survey($part)) { + next; + } %{$stats{$part}} = (); my ($attempts,$users,$corrects,$degdiff,$av_attempts); if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) {