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では同様の改造をしてみたら反映されませんでした（なぜ？）