カテゴリーを好きな順番で並べる(4)　sort_method編

■応用編
本によるとカテゴリ名が日本語では上手くいかないこともあるようなことが書かれてます（私が試した範囲では問題なく動作しましたが）。もしそういう場合は、カテゴリ名ではなく、カテゴリのベースネームで並び変えることもできます。
以下は基本編を自分なりにアレンジしたものです。といっても「label」を「basename」で置き換えただけなんですが。カテゴリ名の部分はベースネーム（ファイル名）にします。

package CategorySort;
my %category_priorities = (
'cat2' => 1,
'cat4' => 01,
'cat3' => 02,
'mt' => 2,
'cat1' => 3,
);
sub cat_sort ($$) {
my ($a, $b) = @_;
my $a_pri = $category_priorities{$a->basename} || 1000;
my $b_pri = $category_priorities{$b->basename} || 1000;
unless ($a_pri == 1000 && $b_pri == 1000) {
return $a_pri <=> $b_pri;
}
return $a->basename cmp $b->basename;
}

ベースネームは自分で設定している場合は設定した名前を記入。MT任せの場合はカテゴリ一覧や出力ファイル名で確認して下さい（日本語名はcat1など、英数混じりはカテゴリ名の英数字部分になっていると思います）。

なお、CategorySort.pmやsort_method="CategorySort::cat_sort"で使われているCategorySortの文字列ですが、ファイル名・ファイルの中の１行目・sort_method内に使われる名前の３か所を同じ文字列にして統一しておけば、CategorySortでもCatSortでも何でもいいようです。

で、なんでカテゴリの並び替えがこういう方法で出来ることに気付きながら、半角法だとかデコード法だとかを使って苦労していたかというと。実はこの技、

ダイナミック・パブリッシングでは動かないんですorz。

つまりダイナミック派には存在しないも同じ技だったわけでして（汗）。

てことで私的には圏外技のためこれまで触れてこなかったのですが、何かの役に立つこともあるかもしれない、ということで覚え書きしておきます(^^;。