use strict;
use MT::Template::Context;
use vars qw($VERSION);
my $VERSION = '0.01';

#
# In the Templates, "Main Index", "Category Archive",
# "Individual Entry Archive", "Date-Based Archive" and so on:
#
# <$MTEntryBody isbn="1"$>
#
# And you can write "ISBN:4-8443-1812-8" or "ISBN:4844318128"
# in an Entry.
#

#
# SET LINK HTML
#
my $ISBN_HTML =<<'__EOF__';
<a href="http://www.amazon.co.jp/exec/obidos/ASIN/$isbn/pamya-22" target="_blank"><img alt="$comment" src="http://images-jp.amazon.com/images/P/$isbn.09.THUMBZZZ.jpg"><br/>$title</a>
__EOF__

#
#######################################################################

MT::Template::Context->add_global_filter(isbn => sub {
my ($str, $onoff, $ctx) = @_;
$str =~ s/(ISBN:\s*[-\w]+:TITLE:\s*\S+:COMMENT:\s*\S*:)/to_html($1)/ge if $onoff && $str =~ /ISBN:\s*[-\w]+:TITLE:\s*\S+:COMMENT:\s*\S*:/;
return $str;
});

sub to_html {
my $data = shift;
my $isbn = $data;
my $title = $data;
my $comment = $data;
$isbn =~ s/ISBN:\s*([-\w]+):TITLE:\s*\S+:COMMENT:\s*\S*:/$1/ge;
$isbn =~ tr/-//d if $isbn =~ /\-/;
$title =~ s/ISBN:\s*[-\w]+:TITLE:\s*(\S+):COMMENT:\s*\S*:/$1/ge;
$comment =~ s/ISBN:\s*[-\w]+:TITLE:\s*\S+:COMMENT:\s*(\S*):/$1/ge;

my $html = $ISBN_HTML;
$html =~ s/\$isbn/$isbn/g if $html =~ /\$isbn/;
$html =~ s/\$title/$title/g if $html =~ /\$title/;
$html =~ s/\$comment/$comment/g if $html =~ /\$comment/;
return $html;
}

1;
__END__
### Local Variables:
### mode: perl
### End: