WalWiki/カスタマイズ/履歴ページに月毎の見出し表示

差分表示

• 最後の更新で追加された行はこのように表示します。
• 最後の更新で削除された行はこのように表示します。

RecentChangesに月毎の見出しを表示します。
*%page_commandへの追加

 my %page_command = (
     $IndexPage => 'index',
     $SearchPage => 'searchform',
     $CreatePage => 'create',
     $RssPage => 'rss',
     $AdminChangePassword => 'adminchangepasswordform',
     $FrontPage => 'FrontPage',
     $RecentChanges => 'recent',                             # yakty add [modify recentpage]
 );

*%command_doへの追加

 my %command_do = (
     read => \&do_read,
     edit => \&do_edit,
     adminedit => \&do_adminedit,
     adminchangepasswordform => \&do_adminchangepasswordform,
     adminchangepassword => \&do_adminchangepassword,
     write => \&do_write,
     index => \&do_index,
     searchform => \&do_searchform,
     search => \&do_search,
     create => \&do_create,
     createresult => \&do_createresult,
     FrontPage => \&do_FrontPage,
     comment => \&do_comment,
     rss => \&do_rss,
     diff => \&do_diff,
     interwikibox => \&do_interwiki_box, # Walrus add [InterWikiBox]
     recent => \&do_recent,                                  # yakty add [modify recentpage]
 );

*do_recent()追加

 # yakty add [modify recentpage] start
 sub do_recent {
     &print_header($RecentChanges);
     my $content = $database{$RecentChanges};
     my %check;
     $content =~ s/^- (\d\d\d\d-\d\d)/($check{$1}++ ? $& : qq(*$1\n$&))/gme;
     &print_content($content);
     &print_footer($RecentChanges);
 }
 # yakty add [modify recentpage] end