|
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 { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface