ぜろちゃんねるスクリプトを改造するスレ

609 ：名無しさん＠ぜろちゃんねる：2006/01/18(水) 07:21:59 ID:???0

ついでにひとネタ。
/datおよび/poolにて、
subject再作成（全更新）時に、元のsubject.txt/cgiがあれば、
その並び順を新しいsubject.txt/cgiに反映させる修正です。
全更新の際にスレの並び順がリセットされなくなります。

baggins.pl
BILBO::UpdateAll および FRODO::UpdateAll

370行目、および714行目の
my (@dirSet,$id,$base,$n,$num,$first,$dumy,$subj);
と、372行目、および716行目の
undef($this->{'SUBJECT'});
の間、２ヵ所それぞれに以下を追加

my @sort;
if ($this->{'NUM'}){
@sort = @{$this->{'SORT'}};
}

↓つづく

610 ：名無しさん＠ぜろちゃんねる：2006/01/18(水) 07:23:12 ID:???0

384〜403行目、および728〜747行目の
foreach $el (@dirSet){
　(省略)
}
と、404行目、および748行目の
$this->{'NUM'} = $num;
の間、２ヶ所それぞれに以下を追加

if ($this->{'NUM'}){
foreach $dumy (@sort){
$n = 0;
foreach $id (@{$this->{'SORT'}}){
if ($id eq $dumy){
splice(@{$this->{'SORT'}},$n,1);
push(@{$this->{'SORT'}},$id);
last;
}
$n++;
}
}
}

以上
バージョンは051231です。