Web Liberty&freoカスタマイズ集

lib/webliberty/Plugin/Tagging.pm を下記のように修正します。

1. 172行目の

   my @dir = sort { $b <=> $a } readdir(DIR);

   の部分を、

   my @dir = sort { $a <=> $b } readdir(DIR);

   に変更（緑字を赤字に）します。
2. 286行目以降を

   foreach my $entry (@dir) {
     if ($entry !~ /^¥d¥d¥d¥d¥d¥d¥.$self->{init}->{data_ext}$/) {
       next;
     }

   から

   my $sort;
     if ($self->{plugin}->{data_sort}) {
       $sort = 'reverse';
     }
   
   foreach (eval "$sort " . '@dir') {
     my $entry = $_;
   
     if ($entry !~ /^¥d¥d¥d¥d¥d¥d¥.$self->{init}->{data_ext}$/) {
       next;
     }

   に変更します。
3. 299行目の

   while (<FH>) {

   の部分を、

   foreach (eval "$sort <FH>") {

   に変更します。
4. lib/webliberty/Plugin/Tagging/init.cgi の表示設定に

   #検索結果の表示順(0 … 新しい順 / 1 … 古い順)
   $init->{data_sort} = 1;

   を加入します。

WDP、WCPでは同様の改造をしてみたら反映されませんでした（なぜ？）