WGPでタグ検索結果一覧の表示を古い順にする

2009/11/01 10:46
カテゴリー：Web Liberty
タグ：Web Gallery Pro

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

172行目の

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

の部分を、

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

に変更（緑字を赤字に）します。

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;
  }

に変更します。

299行目の
```
while (<FH>) {
```
の部分を、
```
foreach (eval "$sort <FH>") {
```
に変更します。

lib/webliberty/Plugin/Tagging/init.cgi の表示設定に

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

を加入します。

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

コメント登録

コメントを入力してください。
一旦登録したコメントは、あとで編集できませんのでご注意下さい。

名前

メールアドレス

URL

コメント（コメント本文の装飾について）

コメント本文の装飾について

本文に特定の記号を書くことにより、手軽にマークアップを行うことができます。

引用

概要

文章を >> だけの行と << だけの行で囲うと引用に変換します。

入力例

この部分は通常の文章です。
>>
ここは引用になります。
<<
この部分は通常の文章です。

結果

この部分は通常の文章です。

ここは引用になります。

この部分は通常の文章です。

整形コード

概要

文章を >|| だけの行と ||< だけの行で囲うと整形コードに変換します。プログラムの掲載時に利用すると読みやすくなります。

入力例

この部分は通常の文章です。
>||
<html>
　<body><p>HTMLやプログラムを掲載することができます。</p></body>
</html>
||<
この部分は通常の文章です。

結果

この部分は通常の文章です。

<html>
　<body><p>HTMLやプログラムを掲載することができます。</p></body>
</html>

この部分は通常の文章です。

閲覧制限

基本的には「全体に公開」されますが、内容によっては管理人の方で公開を制限する場合がありますので、その旨ご了承下さい。

freoをカタカナ3文字で入力してください（スパム対策）

登録者情報を記憶する

日	月	火	水	木	金	土
-	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	-	-	-	-

freoカスタマイズ集