loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2001/01/30 20:04:54	version 1.12, 2001/01/30 22:26:33
Line 158 sub astatus {	Line 158 sub astatus {
my $answerdate=&parmval('0.answerdate',$symb);	my $answerdate=&parmval('0.answerdate',$symb);
my $now=time;	my $now=time;
my $tcode=0;	my $tcode=0;
	if ($opendate) {
if ($now<$duedate) {	if ($now<$duedate) {
$tcode=2;	$tcode=2;
$ctext='Due: '.localtime($duedate);	$ctext='Due: '.localtime($duedate);
Line 175 sub astatus {	Line 176 sub astatus {
$ctext='Answer: '.localtime($duedate);	$ctext='Answer: '.localtime($duedate);
}	}
}	}
	} else {
	$tcode=1;
	}
my $answer=&Apache::lonnet::reply(	my $answer=&Apache::lonnet::reply(
"restore:$ENV{'user.domain'}:$ENV{'user.name'}:".	"restore:$ENV{'user.domain'}:$ENV{'user.name'}:".
$ENV{'request.course.id'}.':'.	$ENV{'request.course.id'}.':'.