loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.102, 2010/04/14 00:38:19	version 1.104, 2011/04/15 13:57:18
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 1434 sub checkversions {	Line 1434 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;