#
# Get Query Param
# 2005/10/24 1.00 First Release
# 2006/08/16 1.01 Modified
#
# Copyright(c) by H.Fujimoto
#
package MT::Plugin::GetQueryParam;

use strict;

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

# show plugin information to main menu
eval("use Storable;");
if (!$@ && MT->can('add_plugin')) {
    my $plugin = MT::Plugin->new;
    if (MT->version_number >= 3.2) {
        $plugin->name('Get Query Param');
        $plugin->version('1.01');
        $plugin->author_name('Hajime Fujimoto');
        $plugin->author_link('http://www.h-fj.com/blog/');
    }
    else {
        $plugin->name('Get Query Param 1.01');
    }
    $plugin->description('Get query parameter value of get/post method.');
    MT->add_plugin($plugin);
}

# add tags
MT::Template::Context->add_tag(GetQueryParam => \&get_query_param);
MT::Template::Context->add_conditional_tag(IfQueryParam => \&if_query_param);

# MTGetQueryParam tag
sub get_query_param
{
    my ($ctx, $args) = @_;

    my $app = MT->instance;
    my $value = $app->{query}->param($args->{'name'}) || '';
    $value;
}

# MTIfQueryParam tag
sub if_query_param
{
    my ($ctx, $args) = @_;

    my $app = MT->instance;
    my $value = $app->{query}->param($args->{'name'}) || '';
    my $comp = $args->{'value'};
    ($value eq $comp);
}

1;