[% FILTER html_para %]
      [% reply.blog_text %]
	  [% END %]
      <small>
      tags: 
      [% FOREACH tag IN reply.blog_tags.split(',') %]
      <a href="[% Catalyst.uri_for('/blog/do_search')_'?q='_ tag %]"> [% tag %]</a> ,
	  [% END %]
	   <p><a href="[% Catalyst.uri_for('/blog/reply/')_ reply.blog_id %]">comment</a></p>
	  </li>
	  
	  
	  [% IF recurse %]
	  
		<ul>
		[% FOREACH child_reply IN blog.replies -%]
			<li>
			
				<p>[% child_reply.blog_title %]</p>
				<p>[% child_reply.blog_text %]</p>
			
			</li>
		[% END %]
		</ul>
	[% END %]
	 </ul>
    
      </small>
	 
	  </td>
      </tr>
	  [% END %]

##</code><code>##

YourSpaceDB::Blog.pm stuff:
## Thanks to YourMother of Perlmonks
__PACKAGE__->belongs_to('blog_parent' => __PACKAGE__);
__PACKAGE__->has_many('replies' => __PACKAGE__, 'blog_parent',
                      undef,
                      { order_by => 'blog_date' } );

sub parents {
    my ( $self, @parents ) = @_;
    my $parent = $self->parent;
    return @parents unless $parent;
    push @parents, $parent;
    die "Endless lineage loop suspected!" if @parents > 100;
    $parent->parents(@parents);
}
####

reply page: 
sub reply : Local {
   my ($self, $c, $blog_id) = @_;
    
    # Set the TT template to use
	$c->stash->{blog}        = $c->model('YourSpaceDB::Blog')->find($blog_id);
	$c->stash->{replies}     = [
	    $c->model('YourSpaceDB::Blog')->search( 
		{ 
		 blog_is_reply    => 1, 
		 blog_parent => $blog_id,
		 blog_is_draft    => 0,
		 }
	    )
	];
	$c->stash->{recurse} = 1;
    $c->stash->{template} = 'blog/reply.tt2';
}


##</code><code>##

original node
-reply to original node
--reply to reply, but with same title as reply to original node