loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.405, 2007/11/20 00:26:17	version 1.406, 2007/11/20 17:53:46
Line 3819 sub awarded {	Line 3819 sub awarded {
sub duedate {	sub duedate {
(my $self, my $part) = @_;	(my $self, my $part) = @_;
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 =~ /\d+/) {	if ($interval[0] =~ /\d+/) {
my $first_access=&Apache::lonnet::get_first_access('map',$self->symb);	my $first_access=&Apache::lonnet::get_first_access($interval[1],
	$self->symb);
if (defined($first_access)) {	if (defined($first_access)) {
$interval = $first_access+$interval;	my $interval = $first_access+$interval[0];
$date = (!$due_date \|\| $interval < $due_date) ? $interval	$date = (!$due_date \|\| $interval < $due_date) ? $interval
: $due_date;	: $due_date;
} else {	} else {