use strict;
package MT::Plugin::CatListDescriptions;

require MT::Plugin;
require MT;

my $plugin = MT::Plugin->new({
	name => "CatListDescriptions",
	description => 'Display descriptions on the Categories listing.'
});
MT->add_plugin($plugin);

MT->add_callback('bigpapi::template::edit_categories', 9, $plugin, \&_template);
MT->add_callback('bigpapi::param::edit_categories', 9, $plugin, \&_param);

sub _template {
	my ($cb, $app, $template) = @_;
	my $old = qq{<TMPL_VAR NAME=CATEGORY_LABEL></a>};
	$old = quotemeta($old);
	my $new = <<HTML;
<TMPL_VAR NAME=CATEGORY_LABEL></a>
<TMPL_VAR NAME=CATLISTDESCRIPTIONS_DESCRIPTION>
HTML
	$$template =~ s/$old/$new/;
}

sub _param {
	my ($cb, $app, $param) = @_;
	require MT::Category;
	for my $row (@{$param->{'category_loop'}}) {
		my $cat = MT::Category->load({ 'id' => $row->{'category_id'} });
		$row->{'catlistdescriptions_description'} = $cat->description;
	}
}

1;