loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.380, 2012/05/29 16:25:53	version 1.381, 2012/05/29 19:40:44
Line 1815 sub countdown_timer {	Line 1815 sub countdown_timer {
($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");
my @interval=&Apache::lonnet::EXT("resource.0.interval");	my @interval=&Apache::lonnet::EXT("resource.0.interval");
	my $hastimeleft;
	if (@interval > 1) {
	my $first_access=&Apache::lonnet::get_first_access($interval[1]);
	if ($first_access > 0) {
	if ($first_access+$interval[0] > time) {
	$hastimeleft = 1;
	}
	}
	}
if (($duedate && $duedate > time) \|\|	if (($duedate && $duedate > time) \|\|
(!$duedate && @interval > 1)) {	(!$duedate && $hastimeleft)) {
my ($collapse,$expand,$alttxt,$title,$currdisp);	my ($collapse,$expand,$alttxt,$title,$currdisp);
if (@interval > 1) {	if (@interval > 1 && $hastimeleft) {
$currdisp = 'inline';	$currdisp = 'inline';
$collapse = '► ';	$collapse = '► ';
} else {	} else {