2004年11月 9日（火曜日）
Blockquoteタグに改行を入れる方法
blockquoteタグを挿入したときに、タグ内の文字に自動的にpとかbrを挿入するTips
3.01Dのときは、きちんと挿入されていたような気がします。うろ覚えですが、たぶんそう。
lib/mt/Util.pmの260行目あたり
sub html_text_transform {
my $str = shift;
$str ||= '';
my @paras = split /\r?\n\r?\n/, $str;
for my $p (@paras) {
if ($p !~ m@^</?(?:h1|h2|h3|h4|h5|h6|table|ol|dl|ul|menu|dir|p|pre|
center|form|fieldset|blockquote|address|div|hr)@) {
$p =~ s!\r?\n!<br />\n!g;
$p = "<p>$p</p>";
}
elsif ($p =~ m@^</?(?:blockquote|div|p)@){
$p =~ s!\r?\n!<br />\n!g;
}
}
join "\n\n", @paras;
}
太字の部分を追加しました。
できてます。
覚え書きとして、ソースを引用させて頂きました。感謝。
2004年11月09日 15:33| EDIT
トラックバック
このエントリーのトラックバックURL:
http://niko.s14.xrea.com/mt/mt-tb.cgi/52
