2009-04 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
カテゴライズしていない記事を救うために(?)、「未分類」というカテゴリ
を作りました。今回は ChangeLogReader.pm へのパッチです。意外に簡単
でした。
--- ChangeLogReader.pm.org 2005-08-10 11:31:46.000000000 +0900 +++ ChangeLogReader.pm 2009-04-08 21:00:41.000000000 +0900 @@ -152,6 +152,8 @@ # print "[[[[$ih]]]\n"; if ($ih =~ s/\s*\[(.+)\]$//) { # category @cat = split(/\s*\]\s*\[\s*/, $1); + } else { + push(@cat, "未分類"); } # Processing item content
ついでに軽い不具合も発見したので修正。カテゴリに含まれる記事の数が
$cat_page_entry_max の倍数だと、「次ページ」を 1 つ多く作っていました。
--- chalow.org 2007-10-19 23:15:01.000000000 +0900 +++ chalow 2009-04-08 21:54:41.000000000 +0900 @@ -661,6 +661,10 @@ my $n = $cat_page_entry_max; my $num_of_old_pages = int(@ents / $n); + if (int(@ents % $n) == 0) { + $num_of_old_pages -= 1; + } + my @fnames; for (my $i = 0; $i <= $num_of_old_pages; $i++) { $fnames[$i] = get_category_filename($catname);
追記(2011-07-06):
後者の修正は GitHub に push しました。
2009-04 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30