my $V=getVars $USER;

my $pt = (exists $$V{customnodetitledefinition} and
          defined $$V{customnodetitledefinition} )?
         $$V{customnodetitledefinition} : undef;

return qq{<TITLE>$$NODE{title}</TITLE>} unless $pt;

$pt =~ s/\%T/$$NODE{title}/;
$pt =~ s/\%N/$$NODE{node_id}/;
$pt =~ s/\%D/$$NODE{createtime}/;

return qq{<TITLE>$pt</TITLE>};