version 1.369.2.12, 2012/05/29 16:49:23
|
version 1.369.2.13, 2012/05/29 19:41:27
|
Line 2025 sub countdown_timer {
|
Line 2025 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 { |