loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.3, 2001/01/11 16:33:44	version 1.6, 2001/04/26 21:27:50
Line 24 sub start_displayduedate {	Line 24 sub start_displayduedate {
my $id = $Apache::inputtags::part;	my $id = $Apache::inputtags::part;
my $date = &Apache::lonnet::EXT("resource.$id.duedate");	my $date = &Apache::lonnet::EXT("resource.$id.duedate");
&Apache::lonxml::debug("duedatebox found $date for $id");	&Apache::lonxml::debug("duedatebox found $date for $id");
$result ='<table border="on"><tr><td>Due at '.	if ($date) {
POSIX::strftime($format,localtime($date)).	$result ='<table border="on"><tr><td>Due at '.
'</td></tr></table>';	POSIX::strftime($format,localtime($date)).
	'</td></tr></table>';
	} else {
	$result ='<table border="on"><tr><td>No due date set.</td></tr></table>';
	}
}	}
return $result;	return $result;
}	}

sub end_displayduedate {	sub end_displayduedate {
	return '';
}	}

sub start_displaytitle {	sub start_displaytitle {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
	my $result='';
if ($target eq 'web') {	if ($target eq 'web') {
return "<h1>$Apache::lonhomework::name</h1>";	$result="<h1>$Apache::lonhomework::name</h1>";
}	}
	return $result;
}	}

sub end_displaytitle {	sub end_displaytitle {
	return '';
}	}

1;	1;