# template_l10n.pl
# A plugin for easier localization of the template of Movable Type 2.51.
#
use MT::Template::Context;
use MT::L10N;

MT::Template::Context->add_tag(Language => sub { &_hdlr_language; });
MT::Template::Context->add_tag(Encoding => sub { &_hdlr_encoding; });

sub _hdlr_language {
    my ($ctx, $args) = @_;
    my $blog = $ctx->stash('blog')
	or return $ctx->error("No blog in context");
    my $language = $blog->language or $ctx->error("No language in context");
    $language eq 'jp' ? 'ja' : $language;
}

sub _hdlr_encoding {
    my ($ctx, $args) = @_;
    my $blog = $ctx->stash('blog')
	or return $ctx->error("No blog in context");
    my $language = $blog->language;
    return $ctx->error("No language in context") unless $language;
    $language = $language eq 'jp' ? 'ja' : $language;
    my $lh = MT::L10N->get_handle($language);
    $lh->encoding or $ctx->error("No encoding in context");
}

1;