version 1.102, 2010/04/14 00:38:19
|
version 1.105, 2012/03/16 21:16:38
|
Line 88 sub handler {
|
Line 88 sub handler {
|
|
|
if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) { |
if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) { |
# Not in a course, or no whn priv in course |
# Not in a course, or no whn priv in course |
$env{'user.error.msg'}="/adm/whatsnew::whn:0:0:Cannot display what's new page"; |
$env{'user.error.msg'}="/adm/whatsnew:whn:0:0:Cannot display what's new page"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
|
|
Line 999 sub check_thresholds {
|
Line 999 sub check_thresholds {
|
$av_attempts = $attempts/$users; |
$av_attempts = $attempts/$users; |
$av_attempts = sprintf("%.2f",$av_attempts); |
$av_attempts = sprintf("%.2f",$av_attempts); |
} |
} |
|
&Apache::lonnet::statslog($symb,$part,$users,$av_attempts,$degdiff); |
if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) || ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) { |
if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) || ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) { |
$stats{$part}{degdiff} = $degdiff; |
$stats{$part}{degdiff} = $degdiff; |
$stats{$part}{attempts} = $av_attempts; |
$stats{$part}{attempts} = $av_attempts; |
Line 1434 sub checkversions {
|
Line 1435 sub checkversions {
|
'lastrevisiondate'); |
'lastrevisiondate'); |
$revdate = &Apache::lonlocal::locallocaltime($revdate); |
$revdate = &Apache::lonlocal::locallocaltime($revdate); |
my $linkurl=&Apache::lonnet::clutter($key); |
my $linkurl=&Apache::lonnet::clutter($key); |
my $usedversion=$navmap->usedVersion('version_'.$linkurl); |
my $usedversion=$navmap->usedVersion($linkurl); |
my @resources = $navmap->getResourceByUrl($linkurl,1); |
my @resources = $navmap->getResourceByUrl($linkurl,1); |
if (($usedversion) && ($usedversion ne 'mostrecent')) { |
if (($usedversion) && ($usedversion ne 'mostrecent')) { |
$version = $usedversion; |
$version = $usedversion; |