MT ISBN BookmarkletでAタグを出さない方法

すちゃらかCSS素材集: BOOKMARKLETを使ってみよう

こちらを参考に、MT ISBNプラグイン用のBookmarkletでaタグが入らないようにする方法を見つけたのでメモ。

./lib/MT/App/CMS.pmの640行目付近を変更します。
必ずファイルのバックアップを取ってから試してください。
Bookmarkletの文字化け対策、カスタマイズなどで人によって表示が違うと思うので読み替えてください。

$param{text} = sprintf qq(<a title="%s" href="%s" target="_blank">%s</a>\n\n%s),
map { Jcode->new(CGI::unescape($_))->$charset() }
scalar $q->param('link_title'),
scalar $q->param('link_href'),
scalar $q->param('link_title'),
$param{text};
}

my $show = $q->param('bm_show') || '';
if ($show =~ /trackback/) {

この部分を以下のように書き換えます。

my $show = $q->param('bm_show') || '';
if ($show =~ /mtisbn/) {
$param{text} = sprintf qq(%s%s%s%s),
map { Jcode->new(CGI::unescape($_))->$charset() }
scalar $q->param('link_title'),
scalar $q->param('link_href'),
scalar $q->param('link_title'),
$param{text};
}else{
$param{text} = sprintf qq(<a title="%s" href="%s" target="_blank">%s</a>\n\n%s),
map { Jcode->new(CGI::unescape($_))->$charset() }
scalar $q->param('link_title'),
scalar $q->param('link_href'),
scalar $q->param('link_title'),
$param{text};
}

if ($show =~ /trackback/) {

それから、Bookmarkletの

bm_show=category

この部分を

bm_show=mtisbn,category

と書き換えれば完了です。
かなり面倒な作業なので、それほど使わないのであれば、手作業でaタグを消すということで充分かと思います。