[%
my $limit;

$limit = int($$VARS{newnodes_limit}) if (exists $$VARS{newnodes_limit});
$limit ||= 15;

my $str;
my $ref = getNodeWhere({}, "", "createtime DESC", $limit);

foreach my $N (@$ref) {
	$str .= linkNode($N) . "<BR>\n" if $N->hasAccess($USER, 'r');	
}

$str;
%]