version 1.45, 2005/12/12 22:10:32
|
version 1.47, 2006/04/20 19:09:48
|
Line 69 sub start_displayduedate {
|
Line 69 sub start_displayduedate {
|
my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval); |
my $style = &Apache::lonxml::get_param('style',$parstack,$safeeval); |
my $format = &Apache::lonxml::get_param('format', $parstack, $safeeval); |
my $format = &Apache::lonxml::get_param('format', $parstack, $safeeval); |
if (!$format) { |
if (!$format) { |
$format = '%c'; |
$format = undef; |
} |
} |
if (($status =~ /CAN.*_ANSWER/)) { |
if (($status =~ /CAN.*_ANSWER/)) { |
my $id = $Apache::inputtags::part; |
my $id = $Apache::inputtags::part; |
my $date = &Apache::lonnet::EXT("resource.$id.duedate"); |
my $date; |
|
my $interval= &Apache::lonnet::EXT("resource.$id.interval"); |
|
if ($interval) { |
|
my $first_access=&Apache::lonnet::get_first_access('map'); |
|
if ($first_access) { $date = $first_access+$interval; } |
|
} |
|
if (!defined($date)) { |
|
$date = &Apache::lonnet::EXT("resource.$id.duedate"); |
|
} |
&Apache::lonxml::debug("duedatebox found $date for $id"); |
&Apache::lonxml::debug("duedatebox found $date for $id"); |
|
|
# Only show the due date if the current date is |
# Only show the due date if the current date is |