sub basic_list {
	my (%entry) = @_;
	
	if ($entry{'subtitle'} ne "") {
		$entry{'subtitle'} = "<h4>$entry{'subtitle'}</h4>" }

	print <<END;
   
<li><h3>$entry{'title'}</h3>$entry{'subtitle'}$entry{'long_date'}<br/>$entry{'description'}</li>
END
}