ぜろちゃんねるプラス質問スレ

689 ：0ch+開発担当 ◆0chp.sx.ik ：2013/11/16(土) 17:37:26.10 ID:8Wp6Cdou0

>>688
module/varda.pl の147行目と p.cgi の235行目のGetKeySetの行の後に以下のコードを加えてください。
  my %mdate = ();
  my $basePath = $Sys->Get('BBSPATH') . '/' . $Sys->Get('BBS');
  foreach my $key (@threadSet) {
    $mdate{$key} = (-M "$basePath/dat/$key.dat");
  }
  @threadSet = sort {$mdate{$a} <=> $mdate{$b}} @threadSet;

p.cgiの方はさらに3ヶ所書き換えてください。
-67:  $max = CreateThreadList($Threads, $Set, \@tList, \%pPath, '');
+67:  $max = CreateThreadList($Sys, $Threads, $Set, \@tList, \%pPath, '');

-71:  $max = CreateThreadList($Threads, $Set, \@tList, \%pPath, $Form->Get('word', ''));
+71:  $max = CreateThreadList($Sys, $Threads, $Set, \@tList, \%pPath, $Form->Get('word', ''));

-230:  my ($Threads, $Set, $pList, $pHash, $keyWord) = @_;
+230:  my ($Sys, $Threads, $Set, $pList, $pHash, $keyWord) = @_;