--- loncom/interface/lonwhatsnew.pm 2006/01/06 22:37:27 1.45
+++ loncom/interface/lonwhatsnew.pm 2006/01/12 09:32:26 1.49
@@ -1,5 +1,5 @@
#
-# $Id: lonwhatsnew.pm,v 1.45 2006/01/06 22:37:27 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.49 2006/01/12 09:32:26 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -100,28 +100,33 @@ sub handler {
({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage,
text=>"Change thresholds"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs
- (undef,"What's New?",'Course_Action_Items_Thresholds'));
+ (undef,"What's New?",#'Course_Action_Items_Thresholds'
+ ));
} elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage,
text=>"Change interval"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs
- (undef,"What's New?",'Course_Action_Items_Intervals'));
+ (undef,"What's New?",#'Course_Action_Items_Intervals'
+ ));
} elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage,
text=>"Change discussion display"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs
- (undef,"What's New?",'Course_Action_Items_Intervals'));
+ (undef,"What's New?",#'Course_Action_Items_Intervals'
+ ));
} elsif ($command eq 'courseinit') {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage,
text=>"Course initialization preference"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs
- (undef,"What's New?",'Course_Action_Items_Initialization'));
+ (undef,"What's New?",#'Course_Action_Items_Initialization'
+ ));
} else {
$r->print(&Apache::lonhtmlcommon::breadcrumbs
- (undef,"What's New?",'Course_Action_Items_Display'));
+ (undef,"What's New?",#'Course_Action_Items_Display'
+ ));
}
&display_main_box($r,$command,$refpage,\%checkallowed);
return OK;
@@ -311,7 +316,7 @@ sub display_actions_box {
}
}
$r->print($lt{'pgse'}.' '.&mt('Currently: [_1]',''.$currinit.'').
- ' '.&mt('[_1] for just [_2]','Change',
+ ' '.&mt('[_1] for just [_2]','Change',
'this course').' '.&mt('or for all [_1].',
' 'checked="checked"',
- );
- $status{$current} = '';
- $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.");
+ 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('
-');
+ $r->print('
+
+  
+
+ ');
return;
}
@@ -880,6 +895,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"})) {