loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.369.2.11, 2012/05/28 22:22:20	version 1.369.2.12, 2012/05/29 16:49:23
Line 2024 sub countdown_timer {	Line 2024 sub countdown_timer {
($env{'request.filename'}=~/$LONCAPA::assess_re/) &&	($env{'request.filename'}=~/$LONCAPA::assess_re/) &&
($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {	($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {
my $duedate = &Apache::lonnet::EXT("resource.0.duedate");	my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
if ($duedate && $duedate > time) {	my @interval=&Apache::lonnet::EXT("resource.0.interval");
	if (($duedate && $duedate > time) \|\|
	(!$duedate && @interval > 1)) {
my ($collapse,$expand,$alttxt,$title,$currdisp);	my ($collapse,$expand,$alttxt,$title,$currdisp);
my @interval=&Apache::lonnet::EXT("resource.0.interval");
if (@interval > 1) {	if (@interval > 1) {
$currdisp = 'inline';	$currdisp = 'inline';
$collapse = '► ';	$collapse = '► ';