|
version 1.509.2.5, 2016/11/29 15:13:19
|
version 1.509.2.5.4.1, 2017/06/21 19:54:58
|
|
Line 4632 sub duedate {
|
Line 4632 sub duedate {
|
| my $date; |
my $date; |
| my @interval=$self->parmval("interval", $part); |
my @interval=$self->parmval("interval", $part); |
| my $due_date=$self->parmval("duedate", $part); |
my $due_date=$self->parmval("duedate", $part); |
| if ($interval[0] =~ /\d+/) { |
if ($interval[0] =~ /^(\d+)/) { |
| my $first_access=&Apache::lonnet::get_first_access($interval[1], |
my $timelimit = $1; |
| |
my $first_access=&Apache::lonnet::get_first_access($interval[1], |
| $self->{SYMB}); |
$self->{SYMB}); |
| if (defined($first_access)) { |
if (defined($first_access)) { |
| my $interval = $first_access+$interval[0]; |
my $interval = $first_access+$timelimit; |
| $date = (!$due_date || $interval < $due_date) ? $interval |
$date = (!$due_date || $interval < $due_date) ? $interval |
| : $due_date; |
: $due_date; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnavmaps.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface