
$c->{set_eprint_defaults} = sub
{
	my( $data, $session ) = @_;

	$data->{type} = "article";
};

