loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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