 4.62 ( No.6 ) |
- 日時： 2012/02/22 13:53
- 名前： きりしま◆.CzKQna1OU ID:WKZ9ct/Q
- 参照： http://kirishima.it/mt/
- admin.cgiでのタイトルの扱いを修正しているようです。
4.62
admin.cgi
L.454
&edit_form($subject,$mode,$log,$data);
↓
# スレッドタイトル
my ($sub2) = (split(/<>/, $top))[1];
# 個別修正フォーム
&edit_form($subject,$mode,$log,$data,$sub2);
L.492の後に追加
# 親記事の場合
if ($in{art} == 0) {
my ($num,$sub2,$res,$key) = split(/<>/, $top);
$top = "$num<>$in{sub}<>$res<>$key<>\n";
}
L.497の後に追加
# 親記事の場合indexも更新する
if ($in{art} == 0) {
my $idx = $in{data_now} ? $cf{nowfile} : $cf{pastfile};
my @log;
open(DAT,"+< $idx") or &error("open err: $idx");
eval "flock(DAT, 2);";
my $top = <DAT> if ($in{data_now});
while(<DAT>) {
chomp;
my ($no,$sub,$res,$nam,$upd,$las,$key,$upl) = split(/<>/);
if ($in{no} == $no) {
$_ = "$no<>$in{sub}<>$res<>$nam<>$upd<>$las<>$key<>$upl<>";
}
push(@log,"$_\n");
}
unshift(@log,$top) if ($in{data_now});
seek(DAT, 0, 0);
print DAT @log;
truncate(DAT, tell(DAT));
close(DAT);
}
L.549
my ($subject,$mode,$log,$data) = @_;
↓
my ($subject,$mode,$log,$data,$sub2) = @_;
L.574
<p class="ttl">■データメンテ[現行ログ] > 個別メンテ > スレッド名「q」 > 記事「$sub」</p>
↓
<p class="ttl">■データメンテ[現行ログ] > 個別メンテ > スレッド名「$sub2」 > 記事「$sub」</p>
regist.cgi
L.1085
$com =~ s/<br>/\n/;
↓
$com =~ s/<br>/\n/g;
 |
|
[35] 本家 4.0 リリース