# $Id: MTMTTags.pl,v 1.1 2003/03/04 03:33:53 akosut Exp $
# by Alexei Kosut <akosut@cs.stanford.edu>
#
# Add mt_tags="1" to a template tag to parse its output for
# MT template tags.

use MT;
use MT::Template::Context;

use strict;
use warnings;

MT::Template::Context->add_global_filter(mt_tags => sub {
    my ($s, $val, $ctx) = @_;

    my $builder = $ctx->stash('builder');
    my $tokens = $builder->compile($ctx, $s);
    $s = $builder->build($ctx, $tokens);
    return $ctx->error($builder->errstr) unless defined $s;

    return $s;
});